emacs_bak

;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(package-initialize)

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(package-selected-packages (quote (json-mode))))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(default ((t (:family "微软雅黑" :foundry "outline" :slant normal :weight normal :height 98 :width normal)))))


;;关闭欢迎界面  
(setq inhibit-startup-message t)

(global-set-key [f11] 'my-fullscreen)


;;显示行列号,它显示在minibuffer上面那个杠上
(setq column-number-mode t)
(setq line-number-mode t)

;;取消滚动栏
(set-scroll-bar-mode 0)

;;取消工具栏
(tool-bar-mode 0)

;; 禁用菜单栏，F10 开启关闭菜单
(menu-bar-mode 0)


;;设置字体颜色为黑色，默认为黑色
(set-foreground-color "grey")
;;设置背景为黑色，默认为白色，你也可以自由设置其它颜色
(set-background-color "black")
;;设置光标的颜色为金黄，默认为黑色
(set-cursor-color "gold1")
;;设置鼠标的颜色
(set-mouse-color "gold1")


;;启用时间显示设置，在minibuffer上面的那个杠上
(display-time-mode 1)

;;时间使用24小时制
(setq display-time-24hr-format t)

;;时间显示包括日期和具体时间
(setq display-time-day-and-date t)


;;设置默认读入文件编码
(prefer-coding-system 'utf-8)

;;设置写入文件编码
(setq default-buffer-file-coding-system 'utf-8)








(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)



(defun now ()
  "Insert string for the current time formatted like '2:34 PM'."
  (interactive "*")                 ; permit invocation in minibuffer
  ;;(insert (format-time-string "%-I:%M %p"))
  (insert (format-time-string "%Y/%m/%d %H:%M:%S" (current-time)))
)


(defun today ()
  "Insert string for today's date nicely formatted in American style,
e.g. Sunday, September 17, 2000."
  (interactive)                 ; permit invocation in minibuffer
  (insert (format-time-string "%A, %B %e, %Y"))
)

;;设置默认文件夹
(setq default-directory "E:/lumen/" )
(put 'set-goal-column 'disabled nil)

(eval-after-load "org"
  '(require 'ox-md nil t))

;; org mode todo
;; record a note along with the timestamp
(setq org-log-done 'time)

(setq org-todo-keywords
      '((sequence "TODO" "DOING" "DONE" )))

(setq org-todo-keyword-faces '(("TODO" . "red")
                               ("DOING" . "yellow")
                               ("DONE" . "green")))

;; python
(defvar myPackages   
  '(better-defaults     
    elpy ;; add the elpy package     
    material-theme))


;; org mode export to html _
(setq org-export-with-sub-superscripts (quote {}))