;;; init-org.el --- org-mode config -*- lexical-binding: t -*- ;;; Commentary: ;;; Code: (use-package org :hook (org-mode . org-indent-mode) (org-mode . visual-line-mode) (org-mode . jinx-mode) (org-mode . my-org-electric-pair-fix) (org-mode . electric-pair-local-mode) :config (require 'org-tempo) (defun my-org-electric-pair-fix () (setq-local electric-pair-inhibit-predicate (lambda (char) (or (eq char ?<) (electric-pair-default-inhibit char))))) ;; log默认放入drawer中 (setq org-log-done t org-log-into-drawer t) ;; 不要在capture时设置bookmark (setq org-bookmark-names-plist nil) ;; 设置todo关键字 (setq org-todo-keywords (quote ((sequence "TODO(t)" "STARTED(S)" "|" "DONE(d!/!)") (sequence "WAITING(w@/!)" "SOMEDAY(s)" "|" "CANCELLED(c@/!)")))) ;; agenda相关 (cond (*is-windows* (setq org-agenda-files '("h:/emacs/hugo/this-is-my-blog/all-blog.org" "h:/emacs/my-org-note/20260509T232442==agenda--all-my-todos__org.org"))) (*is-mac* (setq org-agenda-files '("~/org/my-org-note/20260509T232442==agenda--all-my-todos__org.org"))) (*is-linux* (setq org-agenda-files '("~/org/my-org-note/20260509T232442==agenda--all-my-todos__org.org"))) (*is-android* (setq org-agenda-files '("~/storage/shared/my-org-note/20260509T232442==agenda--all-my-todos__org.org")))) (setq org-agenda-span 'day) (setq org-agenda-skip-function-global '(org-agenda-skip-entry-if 'todo '("COMMENT")))) ;; phscroll，优化表格换行 (use-package phscroll :hook (org-mode . org-phscroll-activate) :init (setq org-startup-truncated nil)) ;; org-babel scheme (use-package ob-scheme :demand t :after org :straight nil :config (add-to-list 'org-babel-load-languages '(scheme . t)) (org-babel-do-load-languages 'org-babel-load-languages org-babel-load-languages)) ;; denote (use-package denote :hook (after-init . denote-rename-buffer-mode) (dired-mode . denote-dired-mode) :config (if *is-android* (setq denote-directory "~/storage/shared/my-org-note/") (setq denote-directory "~/org/my-org-note/")) (setq denote-prompts '(title signature keywords)) (setq denote-title-history nil) (setq denote-signature-history '("note" "project" "fun" "wisdom" "article" "data" "metanote" "agenda")) (setq denote-known-keywords '("emacs" "org" "elisp" "scheme" "programming" "philosophy" "film" "linux" "computerstuff" "game" "masterpiece"))) ;; denote-org (use-package denote-org) ;; denote-journal (use-package denote-journal :hook (calendar-mode . denote-journal-calendar-mode) :config (setq denote-journal-directory (expand-file-name "journal" denote-directory)) (setq denote-journal-keyword nil) (setq denote-journal-signature "journal") (setq denote-journal-keyword "daily")) ;; denote-explore (use-package denote-explore) ;; consult-notes (use-package consult-notes :straight '(consult-notes :fork (:host github :repo "Andsy10/consult-notes")) :hook (after-init . consult-notes-denote-mode) :config (setq consult-notes-denote-display-keywords-indicator "_") (setq consult-notes-denote-display-id-format 'date) (setq consult-notes-denote-display-signature t)) ;; org-download (use-package org-download :after org :demand t :hook (org-mode . org-display-inline-images) :config (setq-default org-download-image-dir "./images/" org-download-heading-lvl nil) (setq org-download-dragndrop t org-download-method 'directory org-image-actual-width nil org-download-image-html-width 600 org-return-follows-link t)) ;; org-ql (use-package org-ql) ;; org-super-agenda 配置 (use-package org-super-agenda :config (org-super-agenda-mode)) ;; agenda (use-package org-agenda :straight nil :config (setq org-agenda-custom-commands '(("pa" "priority >= A" ((org-ql-block '(and (priority "A") (todo)) ((org-ql-block-header "priority = A"))))) ("pb" "priority >= B" ((org-ql-block '(and (priority >= "B") (todo)) ((org-ql-block-header "priority >= B") (org-super-agenda-groups '((:name "priority = A" :priority "A") (:name "priority = B" :priority "B"))))))) ("pc" "priority >= C" ((org-ql-block '(and (priority >= "C") (todo)) ((org-ql-block-header "priority >= C") (org-super-agenda-groups '((:name "priority = A" :priority "A") (:name "priority = B" :priority "B") (:name "priority = C" :priority "C"))))))) ("qd" "TODO entries sort by closed time" ((org-ql-block '(closed) ((org-ql-block-header "Closed TODOs") (org-super-agenda-groups '((:auto-ts t))))))) ("qs" "SOMEDAYs" ((org-ql-block '(todo "SOMEDAY") ((org-ql-block-header "SOMEDAYs") (org-super-agenda-groups '((:auto-ts t))))))) ("qS" "STARTEDs" ((org-ql-block '(todo "STARTED") ((org-ql-block-header "STARTEDs") (org-super-agenda-groups '((:auto-ts t))))))) ("qt" "TODOs sort by start time" ((org-ql-block '(todo) ((org-ql-block-header "TODOs") (org-super-agenda-groups '((:auto-ts t))))))) ("qa" "all TODO entries" ((org-ql-block '(and (not (done)) (todo)) ((org-ql-block-header "all TODOs") (org-super-agenda-groups '((:name "started" :todo "STARTED") (:name "priority = A" :priority "A") (:name "priority = B" :priority "B") (:name "other priority" :priority< "B") (:name "someday" :todo "SOMEDAY")))))))))) ;; capture (use-package org-capture :straight nil :config (setq org-capture-templates (cond ((or *is-linux* *is-mac*) '(("t" "TODO" entry (file+headline "~/org/my-org-note/20260509T232442==agenda--all-my-todos__org.org" "Something to do") "* TODO %<%m-%d> %?\n%T" :empty-lines 1) ("s" "SOMEDAY" entry (file+headline "~/org/my-org-note/20260509T232442==agenda--all-my-todos__org.org" "Something to do") "* SOMEDAY %<%m-%d> %?\n%T" :empty-lines 1))) (*is-android* '(("t" "TODO" entry (file+headline "~/storage/shared/my-org-note/20260509T232442==agenda--all-my-todos__org.org" "Something to do") "* TODO %<%m-%d> %?\n%T" :empty-lines 1) ("s" "SOMEDAY" entry (file+headline "~/storage/shared/my-org-note/20260509T232442==agenda--all-my-todos__org.org" "Something to do") "* SOMEDAY %<%m-%d> %?\n%T" :empty-lines 1))) (t nil)))) ;; hugo (use-package ox-hugo :config (with-eval-after-load 'org-capture (defun org-hugo-new-subtree-post-capture-template () "Returns `org-capture' template string for new Hugo post. See `org-capture-templates' for more information." (let* ((title (read-from-minibuffer "Post Title: ")) ;Prompt to enter the post title (fname (org-hugo-slug title))) (mapconcat #'identity `( ,(concat "* TODO " title) ":PROPERTIES:" ,(concat ":EXPORT_FILE_NAME: " fname) ":END:" "\n\n") ;Place the cursor here finally "\n"))) (if *is-windows* (add-to-list 'org-capture-templates '("h" ;`org-capture' binding + h "Hugo post" entry ;; It is assumed that below file is present in `org-directory' ;; and that it has a "Blog Ideas" heading. It can even be a ;; symlink pointing to the actual location of all-posts.org! (file+headline "h:/emacs/hugo/this-is-my-blog/all-blog.org" "Blog Ideas") (function org-hugo-new-subtree-post-capture-template))) (add-to-list 'org-capture-templates '("h" ;`org-capture' binding + h "Hugo post" entry ;; It is assumed that below file is present in `org-directory' ;; and that it has a "Blog Ideas" heading. It can even be a ;; symlink pointing to the actual location of all-posts.org! (file+headline "~/org/hugo/this-is-my-blog/all-blog.org" "Blog Ideas") (function org-hugo-new-subtree-post-capture-template)))))) ;; 农历日历 (use-package cal-china-x :after calendar :autoload cal-china-x-setup :init (cal-china-x-setup) :config (setq calendar-mark-holidays-flag t cal-china-x-important-holidays cal-china-x-chinese-holidays cal-china-x-general-holidays '((holiday-lunar 1 15 "元宵节") (holiday-lunar 7 7 "七夕节") (holiday-fixed 3 8 "妇女节") (holiday-fixed 3 12 "植树节") (holiday-fixed 5 4 "青年节") (holiday-fixed 6 1 "儿童节") (holiday-fixed 9 10 "教师节")) holiday-other-holidays '((holiday-fixed 2 14 "情人节") (holiday-fixed 4 1 "愚人节") (holiday-fixed 12 25 "圣诞节") (holiday-fixed 6 7 "高考") (holiday-float 5 0 2 "母亲节") (holiday-float 6 0 3 "父亲节") (holiday-float 11 4 4 "感恩节")) calendar-holidays (append cal-china-x-important-holidays cal-china-x-general-holidays holiday-other-holidays))) (provide 'init-org) ;;; init-org.el ends here