diff options
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/init.el | 87 |
1 files changed, 80 insertions, 7 deletions
diff --git a/emacs/init.el b/emacs/init.el index 3dbf1f4..71bf065 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -465,14 +465,22 @@ (biblio-bibtex-use-autokey t) (biblio-download-directory "~/Documents/Library/Papers")) + ;;; Taking notes (use-package org :defer t :init :custom + (org-modules '(ol-doi ol-w3m ol-bbdb ol-bibtex ol-docview ol-gnus ol-info ol-irc ol-mhe ol-rmail ol-eww org-habit)) + (org-clock-sound "~/Library/Ringtones/Loud ding.wav") + (org-imenu-depth 3) (org-tags-column 0) - (org-agenda-files '("~/Documents/Notes.org" "~/Documents/Notes/")) + (org-agenda-files '("~/Documents/Agenda.org")) + (org-refile-targets '((org-agenda-files :maxlevel . 3))) + (org-refile-use-outline-path 'file) + (org-outline-path-complete-in-steps nil) + (org-refile-allow-creating-parent-nodes 'confirm) (org-replace-disputed-keys t) (org-support-shift-select 'always) ;; Still refuses to fix on timestamps :/ (org-log-done 'time) @@ -488,34 +496,99 @@ (org-src-tab-acts-natively t) (org-edit-src-content-indentation 0) (org-use-sub-superscripts '{}) + (org-export-preserve-breaks t) + (org-agenda-remove-tags t) + (org-agenda-prefix-format '((agenda . " %?-14t% s") + (todo . "") + (tags . " %i %-12:c") + (search . " %i %-12:c"))) + (org-agenda-scheduled-leaders '("Scheduled: " "Sched.%2dx: ")) + (org-agenda-deadline-leaders '("Deadline: " "In %3d d.: " "%2d d. ago: ")) + (org-agenda-time-grid '((daily today require-timed remove-match) + nil + "" "")) + (org-agenda-show-current-time-in-grid nil) + (org-agenda-format-date "%n%Y-%m-%d %A") + (org-agenda-span 'day) + (org-agenda-custom-commands + '(("n" "Agenda and unassigned to-dos" + ((agenda "") + (alltodo "" + ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done + 'scheduled 'deadline)) + (org-agenda-overriding-header "\nDrifting tasks"))))))) + + ;; ((agenda "") + ;; (tags-todo "-SCHEDULED={.+}"))))) + (org-agenda-skip-scheduled-if-deadline-is-shown t) + (org-treat-insert-todo-heading-as-state-change t) + (org-log-into-drawer t) :custom-face (org-table ((t (:inherit fixed-pitch)))) - (org-date ((t (:inherit fixed-pitch :underline t))))) + (org-date ((t (:inherit fixed-pitch :underline t)))) + ;; :bind (:map org-mode-map + ;; ([remap imenu] . consult-org-heading)) + ) + +(defun log-todo-next-creation-date (&rest ignore) + "Log NEXT creation time in the property drawer under the key 'ACTIVATED'" + (when (and (string= (org-get-todo-state) "NEXT") + (not (org-entry-get nil "ACTIVATED"))) + (org-entry-put nil "ACTIVATED" (format-time-string "[%Y-%m-%d]")))) +(add-hook 'org-after-todo-state-change-hook #'log-todo-next-creation-date) (use-package oc + :defer t :after org :custom - (org-cite-global-bibliography '("~/Documents/Library/References.bib")) + (org-cite-global-bibliography '("~/Documents/References.bib")) (org-cite-export-processors '((beamer csl) (latex csl) (t csl)))) + (use-package oc-csl + :defer t :after oc :custom - (org-cite-csl-styles-dir "~/Documents/Library/Citations styles")) + (org-cite-csl-styles-dir "~/Library/Citation styles")) + +;; Support chinese in latex pdf export +(require 'ox-latex) +(add-to-list 'org-latex-classes '("ctexart" "\\documentclass{ctexart}" + ("\\section{%s}" . "\\section*{%s}") + ("\\subsection{%s}" . "\\subsection*{%s}") + ("\\subsubsection{%s}" . "\\subsubsection*{%s}") + ("\\paragraph{%s}" . "\\paragraph*{%s}") + ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))) + +(add-to-list 'org-latex-classes '("ctexbook" "\\documentclass[11pt]{ctexbook}" ("\\part{%s}" . "\\part*{%s}") + ("\\chapter{%s}" . "\\chapter*{%s}") + ("\\section{%s}" . "\\section*{%s}") + ("\\subsection{%s}" . "\\subsection*{%s}") + ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))) + + ;; Not working how i want (use-package org-capture :bind ("C-c c" . org-capture) :custom (org-capture-templates - '(("d" "Today's diary" entry - (file+headline "~/Documents/Notes.org" "Diary") - "** %u\n%?")))) + '(("d" "Today's diary" plain (file+olp+datetree "~/Documents/Diary.org") + "%?") + ("t" "Todo" entry (file "~/Documents/Agenda.org") + "* TODO %?\n%U\n%a\n%i") + ("s" "Source" entry (file "~/Documents/Sources.org") + "* TODO %?\n%U\n#+begin_src bibtex :tangle References.bib\n#+end_src\n") + ("a" "Appointment" entry (file"~/Documents/Agenda.org") + "* %?\n%T\n" :time-prompt t) + ))) ;; See https://llazarek.github.io/blog/2018/07/organization-with-org-mode.html ;; for configuring the org agenda +(use-package org-agenda + :bind ("C-c a" . org-agenda)) ;; Experimental website generator (use-package ox-hugo |