emacs/.emacs.d/config/life.el

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;;
   3 ;; life.el -- mainly for muse and org for daily use
   4 ;; Author: Bigclean <zhengjujie@gmail>
   5 ;; Time-stamp: <11/14/2009 03:53:38 星期六 by bigclean>
   6 ;;
   7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   8
   9 ;; -----------------------------------------------------------------------------
  10 ;;;;emacs muse setting,for writing
  11 ;; -----------------------------------------------------------------------------
  12 (add-to-list 'load-path
  13                                "~/.emacs.d/lisps/muse-3.12/lisp")
  14 (require 'muse-mode)                              ; load authoring mode
  15 (require 'muse-html)                              ; load publishing styles I use
  16 (require 'muse-texinfo)                           ; load Info publishing style
  17 (require 'muse-docbook)                           ; load DocBook publishing style
  18 (require 'muse-latex)                             ; load LaTeX/PDF publishing styles
  19 (require 'muse-latex2png)                         ; publish <latex> tags
  20 (require 'muse-project)                           ; publish files in projects
  21 (require 'muse-wiki)                              ; load Wiki support
  22 (require 'muse-xml)                               ; load XML support
  23
  24 (setq muse-project-alist
  25       '(("blogs"
  26          ("~/schemeblog" :default "index")
  27          (:base "html" :path "~/schemeblog/html"))))
  28          ;; (:base "pdfcjk" :path "~/notes/pdf")
  29          ;; (:base "info" :path "~/schemeblog/info")
  30          ;; (:base "texi" :path "~/schemeblog/texi"))))
  31
  32 ;; -----------------------------------------------------------------------------
  33 ;; org-mode settings
  34 ;; -----------------------------------------------------------------------------
  35 ;;只高亮显示最后一个代表层级的
  36 (setq org-hide-leading-stars t)
  37 (define-key global-map "\C-ca" 'org-agenda) ;;C-c a进入日程表
  38 ;; 给已完成事项打上时间戳。可选note，附加注释
  39 (setq org-log-done 'time)