first commit

lisp/init-org.el

@@ -0,0 +1,50 @@
+;;; 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)