equal
deleted
inserted
replaced
496 |
496 |
497 (defun my-prevent-kill-buffer () |
497 (defun my-prevent-kill-buffer () |
498 (if (member (buffer-name) '("*scratch*" "NOTE.org")) nil t)) |
498 (if (member (buffer-name) '("*scratch*" "NOTE.org")) nil t)) |
499 (add-to-list 'kill-buffer-query-functions 'my-prevent-kill-buffer) |
499 (add-to-list 'kill-buffer-query-functions 'my-prevent-kill-buffer) |
500 |
500 |
501 (define-key global-map "\C-ct" (lambda nil (interactive) (switch-to-buffer "*scratch*"))) |
501 (define-key global-map "\C-v" nil) |
|
502 (define-key global-map "\C-vt" (lambda nil (interactive) (switch-to-buffer "*scratch*"))) |
502 |
503 |
503 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
504 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
504 (message "package, elpa") |
505 (message "package, elpa") |
505 |
506 |
506 (setq package-archives |
507 (setq package-archives |
1212 org-tags-column 64 |
1213 org-tags-column 64 |
1213 ) |
1214 ) |
1214 (setq my-org-agenda-todo-file (concat org-directory "/TODO.org")) |
1215 (setq my-org-agenda-todo-file (concat org-directory "/TODO.org")) |
1215 (setq my-org-agenda-note-file (concat org-directory "/NOTE.org")) |
1216 (setq my-org-agenda-note-file (concat org-directory "/NOTE.org")) |
1216 (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file)) |
1217 (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file)) |
1217 (define-key global-map "\C-ca" 'org-agenda) |
1218 (define-key global-map "\C-va" 'org-agenda) |
1218 (define-key global-map "\C-ce" (lambda nil (interactive) (find-file my-org-agenda-note-file))) |
1219 (define-key global-map "\C-ve" (lambda nil (interactive) (find-file my-org-agenda-note-file))) |
1219 |
1220 |
1220 ;; My tags for remember buffer. |
1221 ;; My tags for remember buffer. |
1221 (setq org-tag-persistent-alist |
1222 (setq org-tag-persistent-alist |
1222 '( |
1223 '( |
1223 ("ADMIN" . ?a) |
1224 ("ADMIN" . ?a) |
1234 |
1235 |
1235 (when (or (featurep 'remember) (fboundp 'remember)) |
1236 (when (or (featurep 'remember) (fboundp 'remember)) |
1236 (setq remember-annotation-functions '(org-remember-annotation)) |
1237 (setq remember-annotation-functions '(org-remember-annotation)) |
1237 (setq remember-handler-functions '(org-remember-handler)) |
1238 (setq remember-handler-functions '(org-remember-handler)) |
1238 (add-hook 'remember-mode-hook 'org-remember-apply-template) |
1239 (add-hook 'remember-mode-hook 'org-remember-apply-template) |
1239 (define-key global-map "\C-cr" 'org-remember) |
1240 (define-key global-map "\C-vr" 'org-remember) |
1240 (setq org-remember-templates |
1241 (setq org-remember-templates |
1241 ;; With one item org-mode do not prompt choose template. |
1242 ;; With one item org-mode do not prompt choose template. |
1242 `( |
1243 `( |
1243 ("todo" ?t "* TODO %?" ,my-org-agenda-todo-file) |
1244 ("todo" ?t "* TODO %?" ,my-org-agenda-todo-file) |
1244 ;; ("note" ?n "* %?\n" ,my-org-agenda-note-file) |
1245 ;; ("note" ?n "* %?\n" ,my-org-agenda-note-file) |