51 lines
1.3 KiB
EmacsLisp
51 lines
1.3 KiB
EmacsLisp
;;; init-org.el
|
|
;;; -*- lexical-binding: t -*-
|
|
|
|
(use-package org)
|
|
|
|
;; (if *is-windows*
|
|
;; (progn (run-with-idle-timer
|
|
;; 0.5 nil
|
|
;; (lambda ()
|
|
;; (with-temp-buffer
|
|
;; (org-mode)
|
|
;; (org-mode))
|
|
;; (message "Org preloaded")))))
|
|
|
|
(setq org-todo-keywords
|
|
(quote ((sequence "TODO(t)" "STARTED(s)" "|" "DONE(d!/!)")
|
|
(sequence "WAITING(w@/!)" "SOMEDAY(S)" "|" "CANCELLED(c@/!)" "MEETING(m)" "PHONE(p)"))))
|
|
|
|
(setq system-time-locale "C")
|
|
|
|
;; org-contrib 和 org-checklist
|
|
(use-package org-contrib
|
|
:straight (org-contrib :type git :host github :repo "emacsmirror/org-contrib"
|
|
:depth 1))
|
|
|
|
(add-hook 'org-mode-hook
|
|
(lambda ()
|
|
(require 'org-checklist nil t)))
|
|
|
|
(setq org-log-done t)
|
|
(setq org-log-into-drawer t)
|
|
|
|
(global-set-key (kbd "C-c a") 'org-agenda)
|
|
(setq org-agenda-files '("d:/emacs/org/learning-org-mode.org"))
|
|
(setq org-agenda-span 'day)
|
|
|
|
(setq org-capture-templates
|
|
'(("t" "Todo" entry (file+headline "d:/emacs/org/learning-org-mode.org" "Workspace")
|
|
"* TODO [#B] %?\n %i\n %U"
|
|
:empty-lines 1)))
|
|
|
|
(global-set-key (kbd "C-c o c") 'org-capture)
|
|
|
|
(setq org-agenda-custom-commands
|
|
'(("c" "important stuff"
|
|
((tags-todo "+PRIORITY=\"A\"")))
|
|
;; ...other commands here
|
|
))
|
|
|
|
(provide 'init-org)
|