-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathinit-org.el
executable file
·143 lines (125 loc) · 5.41 KB
/
init-org.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
;; http://emacswiki.org/emacs/OrgMode
;; http://orgmode.org/worg/org-tutorials/orgtutorial_dto.html
;; http://orgmode.org/org.html
;; http://www.emacswiki.org/emacs/OrgJiraMode
;; ----------------------------
;; keymap:
;; 1.outline
;; tab,S-tab
;; C-c C-n下一个, C-c C-p上一个, C-c C-f同级的下一个, C-c C-b同级的下一个, C-c C-u上一级
;; 2.table
;; C-c | 生成表格, C-c C-c 对齐表格, tab横向移动, S-tab横向倒退, ret纵向移动
;; M-上下左右移动行列，M-S-上下左右删除或新增行列, C-c -添加一个横杠, C-c +相加, S-ret数字顺势+1
;; C-c `编辑单元格在单独吃的窗口,<3>设定宽度
;; 3.link
;; [[link][description]], C-c C-l编辑, C-c C-o跳转到
;; [[my-target][find-my-target]] 可以找到内部标签:* my-target或<<my-target>>.如果*my-target,#my-target,my-target
;; [[File:d:/1.txt][1.txt]]可以跳转到文件
;; C-c l 暂存一个location, 当使用C-c C-l时，用上下键可以查找暂存位置
;; C-c l可以在全局使用，如果暂存文件的话C-u C-c l可以保存相对位置，C-u C-u C-c l可以保存绝对位置
;; 4.todo M-shift-RET TODO
;; 已经用*标记的headline C-c C-t可以选择状态, C-u C-c C-t可以直接变成todo，S-左 S-右可以选择
;; C-c / t展现todo tree， C-c a t展现全局todo, C-3 C-c C-t取todo sequence中的第3项
;; S-上下 调优先级
;; [/][%]C-c C-c进度条
;; 在headline上C-c C-c可以加tag, C-c \ 高亮所有标签（带层级）
;; 每一个Plain List 都可以在开头加[ ]然后C-c C-c变成checkbox
;; properties C-c C-x p
;; 5.attachments C-c C-a
;; hit "t" to mark an item DONE, or hit RET to jump to the source file where the TODO is located
;; C-c C-s to run org-schedule
;; C-c a a for org-agenda. A display of this week's scheduled items are displayed
;; export to html
(define-key global-map "\C-cl" 'org-store-link)
(global-set-key "\C-c o" 'org-open-at-point-global)
(define-key global-map "\C-ca" 'org-agenda)
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
;; Various preferences
(setq org-log-done t
org-completion-use-ido t
org-startup-indented t;;这个属性把多个星变为一个星加缩进
org-edit-timestamp-down-means-later t
org-agenda-start-on-weekday nil
org-agenda-span 14
org-agenda-include-diary t
org-agenda-window-setup 'current-window
org-fast-tag-selection-single-key 'expert
org-export-kill-product-buffer-when-displayed t
org-tags-column 80)
; Refile targets include this file and any file contributing to the agenda - up to 5 levels deep
(setq org-refile-targets (quote ((nil :maxlevel . 5) (org-agenda-files :maxlevel . 5))))
; Targets start with the file name - allows creating level 1 tasks
(setq org-refile-use-outline-path (quote file))
; Targets complete in steps so we start with filename, TAB shows the next level of targets etc
(setq org-outline-path-complete-in-steps t)
;; 设置todo keywords
(setq org-todo-keywords
(quote ((sequence "TODO(t@)" "STARTED(s)" "|" "DONE(d!/!)")
(sequence "WAITING(w@/!)" "SOMEDAY(S)" "PROJECT(P@)" "|" "CANCELLED(c@/!)"))))
(setq org-todo-keyword-faces
'(("TODO" . org-warning) ("STARTED" . (:foreground "orange" :weight bold)) ("DONE" . (:foreground "green" :weight bold))))
;; Save the running clock and all clock history when exiting Emacs, load it on startup
(setq org-clock-persistence-insinuate t)
(setq org-clock-persist t)
(setq org-clock-in-resume t)
;; Change task state to STARTED when clocking in
(setq org-clock-in-switch-to-state "STARTED")
;; Save clock data and notes in the LOGBOOK drawer
(setq org-clock-into-drawer t)
;; Removes clocked tasks with 0:00 duration
(setq org-clock-out-remove-zero-time-clocks t)
;; ;; Show iCal calendars in the org agenda
;; (when *is-a-mac*
;; (eval-after-load "org"
;; '(if *is-a-mac* (require 'org-mac-iCal)))
;; (setq org-agenda-include-diary t)
;;
;; (setq org-agenda-custom-commands
;; '(("I" "Import diary from iCal" agenda ""
;; ((org-agenda-mode-hook
;; (lambda ()
;; (org-mac-iCal)))))))
;;
;; (add-hook 'org-agenda-cleanup-fancy-diary-hook
;; (lambda ()
;; (goto-char (point-min))
;; (save-excursion
;; (while (re-search-forward "^[a-z]" nil t)
;; (goto-char (match-beginning 0))
;; (insert "0:00-24:00 ")))
;; (while (re-search-forward "^ [a-z]" nil t)
;; (goto-char (match-beginning 0))
;; (save-excursion
;; (re-search-backward "^[0-9]+:[0-9]+-[0-9]+:[0-9]+ " nil t))
;; (insert (match-string 0)))))
;; )
(eval-after-load 'org
'(progn
(require 'org-exp)
(require 'org-clock)
; @see http://irreal.org/blog/?p=671
(setq org-src-fontify-natively t)
;;(require 'org-checklist)
(require 'org-fstree)
(setq org-ditaa-jar-path (format "%s%s" (if *cygwin* "c:/cygwin" "")
(expand-file-name "~/.emacs.d/elpa/contrib/scripts/ditaa.jar")) )
(add-hook 'org-mode-hook 'soft-wrap-lines)
(defun soft-wrap-lines ()
"Make lines wrap at window edge and on word boundary,
in current buffer."
(interactive)
(setq truncate-lines nil)
(setq word-wrap t)
)
))
(add-hook 'org-mode-hook 'inhibit-autopair)
;; 让 Emacs Org 直接显示图片的 iimage 模式
(auto-image-file-mode t)
(defun org-toggle-iimage-in-org ()
"display images in your org file"
(interactive)
(if (face-underline-p 'org-link)
(set-face-underline-p 'org-link nil)
(set-face-underline-p 'org-link t))
(iimage-mode))
(provide 'init-org)