mirror of
https://github.com/js0ny/dotfiles.git
synced 2025-12-21 08:43:00 +00:00
104 lines
3.5 KiB
EmacsLisp
104 lines
3.5 KiB
EmacsLisp
;; If you use `org' and don't want your org files in the default location below,
|
|
;; change `org-directory'. It must be set before org loads!
|
|
(setq org-directory "~/OrgFiles/")
|
|
;; (setq org-roam-directory "~/OrgFiles/roam/")
|
|
|
|
(after! org
|
|
;; For CJK users
|
|
;; Insert zero width space around the emphasis symbols, this might be useful for
|
|
;; languages that does not rely on space
|
|
(defun my/insert-emphasis-with-zws (char)
|
|
(interactive "c")
|
|
(insert ?\u200B char)
|
|
(save-excursion (insert char ?\u200B)))
|
|
|
|
;; Directory
|
|
(setq org-archive-location "~/OrgFiles/archive/%s_archive::")
|
|
(setq org-default-notes-file "~/OrgFiles/tasks/inbox.org")
|
|
|
|
;; Initial Visibility
|
|
(setq org-startup-folded "show2levels")
|
|
|
|
;; Log into drawer
|
|
(setq org-log-into-drawer "LOGBOOK")
|
|
|
|
;;
|
|
|
|
(setq org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "WAIT(w@/!)" "|" "DONE(d@/!)" "CANCELLED(c@)")
|
|
(sequence "[ ](T)" "[-](P)" "[?](Q)" "|" "[X](D)")))
|
|
|
|
;; Keymaps
|
|
(map! :map org-mode-map
|
|
:desc "Bold with ZWS" "C-c b" (lambda () (interactive) (my/insert-emphasis-with-zws ?*))
|
|
:desc "Italic with ZWS" "C-c i" (lambda () (interactive) (my/insert-emphasis-with-zws ?/))
|
|
:desc "Underline with ZWS" "C-c u" (lambda () (interactive) (my/insert-emphasis-with-zws ?_))
|
|
:desc "Code with ZWS" "C-c c" (lambda () (interactive) (my/insert-emphasis-with-zws ?~))
|
|
:nvom "M-n" 'org-metadown
|
|
:nvom "M-e" 'org-metaup)
|
|
|
|
(setq org-capture-templates
|
|
'(("t" "Task" entry (file+headline "~/OrgFiles/tasks/inbox.org" "Tasks")
|
|
"* TODO %?\n %U\n %a\n %i"
|
|
:empty-lines 1)
|
|
("n" "Note" entry (file+headline "~/OrgFiles/tasks/inbox.org" "Notes"))
|
|
))
|
|
|
|
;; 处理 Zotero 链接
|
|
(org-link-set-parameters
|
|
"zotero"
|
|
:follow (lambda (path) (browse-url (concat "zotero://" path)))
|
|
:export (lambda (path desc format)
|
|
(cond
|
|
((eq format 'html) (format "<a href=\"zotero://%s\">%s</a>" path (or desc path)))
|
|
((eq format 'latex) (format "\\href{zotero://%s}{%s}" path (or desc path)))
|
|
(t path))))
|
|
|
|
;; 处理 Obsidian 链接
|
|
(org-link-set-parameters
|
|
"obsidian"
|
|
:follow (lambda (path) (browse-url (concat "obsidian://" path)))
|
|
:export (lambda (path desc format)
|
|
(cond
|
|
((eq format 'html) (format "<a href=\"obsidian://%s\">%s</a>" path (or desc path)))
|
|
((eq format 'latex) (format "\\href{obsidian://%s}{%s}" path (or desc path)))
|
|
(t path))))
|
|
|
|
)
|
|
|
|
(after! evil-org
|
|
(map! :map evil-org-mode-map
|
|
:n "L" 'evil-org-insert-line
|
|
:n "I" 'evil-next-buffer
|
|
)
|
|
)
|
|
|
|
(after! org-agenda
|
|
;; (setq org-agenda-files (directory-files-recursively "~/OrgFiles/tasks/" "\\.org$"))
|
|
(setq org-agenda-files (list (concat org-directory "tasks/")))
|
|
)
|
|
|
|
(map! :leader :desc "Org Agenda" "A" #'org-agenda)
|
|
|
|
(map! :after org-agenda
|
|
:map evil-org-agenda-mode-map
|
|
:m "n" #'org-agenda-next-line
|
|
:m "e" #'org-agenda-previous-line
|
|
:m "gn" #'org-agenda-next-item
|
|
:m "ge" #'org-agenda-previous-item
|
|
:m "N" #'org-agenda-priority-up
|
|
:m "E" #'org-agenda-priority-down
|
|
:m "i" #'evil-forward-char)
|
|
|
|
|
|
(after! org-pomodoro
|
|
(setq org-pomodoro-format "🍅~%s")
|
|
(setq org-pomodoro-short-break-format "摸~%s")
|
|
(setq org-pomodoro-long-break-format "猛摸~%s")
|
|
)
|
|
|
|
;; Org-Babel
|
|
|
|
(if (bound-and-true-p ISMAC)
|
|
(setq org-babel-C-compiler "clang"))
|
|
|
|
(load! "+pomodoro-telegram.el")
|