mirror of
https://github.com/js0ny/dotfiles.git
synced 2025-12-21 08:43:00 +00:00
266 lines
8.6 KiB
EmacsLisp
266 lines
8.6 KiB
EmacsLisp
;;; init-org.el
|
|
|
|
;; Use =M-x org-mode-restart= to take effects
|
|
;; After =M-x eval-buffer=
|
|
|
|
;; Org General
|
|
|
|
(use-package org
|
|
:straight (:type built-in) ;; Tell straight to not install org
|
|
:config
|
|
(setq org-log-done 'time)
|
|
(setq org-startup-indented nil)
|
|
;; Use inline image
|
|
(setq org-startup-with-inline-images t)
|
|
(setq org-display-remote-inline-images 'cache) ; 预览网络图片
|
|
|
|
;; Use LaTeX rendering
|
|
(setq org-startup-with-latex-preview nil)
|
|
(setq org-image-actual-width 600)
|
|
;; Conceal on markup markers
|
|
(setq org-hide-emphasis-markers t)
|
|
(setq org-directory "~/OrgFiles/")
|
|
(setq org-agenda-files (list (concat org-directory "tasks/")))
|
|
(setq org-pretty-entities t)
|
|
(setq org-src-fontify-natively t)
|
|
(setq org-src-tab-acts-natively t) ; Use TAB to indent inside source block
|
|
(setq org-src-preserve-indentation t) ; Prevent from auto-indent
|
|
(with-eval-after-load 'org
|
|
(define-key org-mode-map (kbd "C-j") 'org-return-indent)
|
|
(evil-define-key 'normal org-mode-map (kbd "TAB") 'org-cycle))
|
|
(evil-define-key 'normal org-mode-map (kbd "SPC a") 'org-agenda-list) ; TODO: Here Simulates the leader
|
|
)
|
|
|
|
;; Org Styling
|
|
|
|
;; Set Org Styles
|
|
(setq org-emphasis-alist
|
|
'(("*" (bold :foreground "cyan" ))
|
|
("/" (italic :foreground "green"))
|
|
("_" underline)
|
|
("=" (org-verbatim verbatim :background "maroon" :foreground "white"))
|
|
("~" (org-code verbatim :background "deep sky blue" :foreground "MidnightBlue"))
|
|
("+" (:strike-through t))))
|
|
|
|
|
|
;; Org Preview
|
|
|
|
;; Better LaTeX preview
|
|
|
|
(setq org-latex-preview-ltxpng-directory (expand-file-name "emacs/org/latex" xdg-cache-home))
|
|
(setq org-preview-latex-default-process 'dvisvgm)
|
|
(setq org-format-latex-options (plist-put org-format-latex-options :scale 0.8))
|
|
|
|
|
|
(use-package org-latex-impatient
|
|
:defer t
|
|
:hook (org-mode . org-latex-impatient-mode)
|
|
:init
|
|
(setq org-latex-impatient-tex2svg-bin
|
|
;; location of tex2svg executable
|
|
"~/.local/share/pnpm/tex2svg"))
|
|
|
|
(use-package org-fragtog
|
|
:after org
|
|
:hook (org-mode . org-fragtog-mode))
|
|
|
|
;; Pasting Images
|
|
;; Use =M-x org-download-clipboard= to paste image
|
|
;; Additional program required: magick
|
|
;; Windows: scoop install imagemagick
|
|
;; org-download config
|
|
(use-package org-download
|
|
:ensure t
|
|
:after org
|
|
:config
|
|
;; Hardcoding the image dir
|
|
(setq-default org-download-image-dir "~/OrgFiles/Attachments")
|
|
|
|
(setq org-download-heading-lvl nil ; don't use heading when creating files
|
|
org-download-timestamp "%Y%m%d-%H%M%S"
|
|
org-download-screenshot-method "screencapture -i %s" ; for macOS only
|
|
org-download-backend 'curl) ; use curl to `download` image
|
|
|
|
(org-download-enable)
|
|
|
|
:bind (:map org-mode-map
|
|
("C-c d c" . org-download-clipboard) ; 粘贴剪贴板内容
|
|
("C-c d s" . org-download-screenshot))) ; 截图
|
|
|
|
|
|
;; 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)))
|
|
|
|
(global-set-key (kbd "C-c b") (lambda () (interactive) (my/insert-emphasis-with-zws ?*)))
|
|
(global-set-key (kbd "C-c i") (lambda () (interactive) (my/insert-emphasis-with-zws ?/)))
|
|
|
|
;; Pomodoro for org clock
|
|
(use-package org-pomodoro)
|
|
|
|
(use-package org-modern
|
|
:ensure t
|
|
:config
|
|
(setopt org-modern-star 'replace
|
|
org-modern-replace-stars '("§")
|
|
org-modern-hide-stars "§")
|
|
(setopt org-modern-list '((?- . "•")))
|
|
(setopt org-modern-timestamp '(" %Y-%m-%d " . " %H:%M "))
|
|
(setopt org-modern-block-fringe nil)
|
|
|
|
;; https://github.com/neoheartbeats/.emacs.d/blob/main/lisp/init-org.el#L126C1-L159C47
|
|
(defun sthenno/org-modern-spacing ()
|
|
"Adjust line-spacing for `org-modern' to correct svg display."
|
|
|
|
;; FIXME: This may not set properly
|
|
(setq-local line-spacing (cond ((eq major-mode #'org-mode) 0.20)
|
|
(t nil))))
|
|
(add-hook 'org-mode-hook #'sthenno/org-modern-spacing)
|
|
|
|
|
|
;; Hooks
|
|
(add-hook 'org-mode-hook #'org-modern-mode))
|
|
|
|
;; WARNING: This package will cause infinite recursion when initialising org
|
|
;; Test on 2025-03-14 Emacs 30 and Arch Linux
|
|
;(use-package mixed-pitch
|
|
; :hook
|
|
; (text-mode . org-mode))
|
|
|
|
;; Org Agenda
|
|
|
|
(with-eval-after-load 'org-agenda
|
|
(evil-define-key 'motion org-agenda-mode-map
|
|
(kbd "n") #'org-agenda-next-line
|
|
(kbd "e") #'org-agenda-previous-line
|
|
(kbd "gn") #'org-agenda-next-item
|
|
(kbd "ge") #'org-agenda-previous-item
|
|
(kbd "N") #'org-agenda-priority-up
|
|
(kbd "E") #'org-agenda-priority-down
|
|
(kbd "i") #'evil-forward-char
|
|
(kbd ",") #'org-agenda-priority
|
|
(kbd "x") #'org-agenda-todo
|
|
(kbd "t") #'org-agenda-set-tags
|
|
(kbd "w") #'org-save-all-org-buffers
|
|
(kbd "ds") #'org-agenda-schedule
|
|
(kbd "dd") #'org-agenda-deadline
|
|
(kbd "$") #'org-agenda-archive
|
|
(kbd "!") #'org-agenda-toggle-deadlines
|
|
(kbd "cp") #'org-pomodoro
|
|
(kbd "vd") #'org-agenda-day-view
|
|
(kbd "vw") #'org-agenda-week-view
|
|
(kbd "vm") #'org-agenda-month-view
|
|
(kbd "vy") #'org-agenda-year-view
|
|
(kbd "v.") #'org-agenda-reset-view))
|
|
|
|
(evil-leader/set-key "A" #'org-agenda)
|
|
|
|
(setq org-agenda-prefix-format '((agenda . " %i %-12:c%?-12t% s")
|
|
(todo . " %i %-12:c %e")
|
|
(tags . " %i %-12:c %e ")
|
|
(search . " %i %-12:c %e ")))
|
|
|
|
|
|
;; Org Babel
|
|
|
|
;; Run source block with C-c C-c
|
|
;; Add supports for non-elisp langs
|
|
(use-package ob-python
|
|
:straight (:type built-in) ; Part of Org Mode
|
|
:after org)
|
|
|
|
(use-package ob-C ;; C++ support is integrated in ob-C
|
|
:straight (:type built-in) ; Part of Org Mode
|
|
:after org)
|
|
|
|
(org-babel-do-load-languages
|
|
'org-babel-load-languages
|
|
'(
|
|
(python . t) ; No need to declare C/C++/emacs-lisp since is integrated
|
|
(shell . t)
|
|
))
|
|
;; Don't ask me again when running source block
|
|
;; Use clang as default C/C++ Compiler on macOS and Windows
|
|
(setq org-confirm-babel-evaluate nil)
|
|
(if (not (eq system-type 'gnu/linux))
|
|
(setq org-babel-C-compiler "clang"))
|
|
|
|
(setq org-babel-default-header-args:C
|
|
'((:includes . "<stdio.h> <stdlib.h> <string.h>")))
|
|
|
|
(setq org-babel-default-header-args:C++
|
|
'((:includes . "<iostream> <vector>")))
|
|
|
|
;; Org Export
|
|
|
|
;; icalendar
|
|
|
|
(setq org-icalendar-use-scheduled '(event-if-todo event-if-not-todo))
|
|
(setq org-icalendar-use-deadline '(event-if-todo event-if-not-todo))
|
|
(setq org-icalendar-combined-agenda-file "~/Dropbox/org.ics")
|
|
|
|
|
|
;; Integrate Emacs Timer with System Notifications
|
|
;; 定义通知函数
|
|
(defun my/org-clock-notification (title message &optional icon)
|
|
"发送一个系统通知"
|
|
(alert message
|
|
:title title
|
|
:icon icon
|
|
:category 'org-clock))
|
|
|
|
;; 添加定时器检查函数
|
|
(defun my/org-clock-check-timer ()
|
|
"检查当前正在运行的 clock 是否到期"
|
|
(when (org-clocking-p)
|
|
(let* ((clocked-time (org-clock-get-clocked-time))
|
|
(effort (org-duration-to-minutes
|
|
(or (org-entry-get (org-clock-is-active) "Effort")
|
|
"0")))
|
|
(remaining (- effort clocked-time)))
|
|
(when (and (> effort 0) (<= remaining 0))
|
|
(my/org-clock-notification
|
|
"Org Clock 提醒"
|
|
(format "任务 '%s' 的预计时间已到！"
|
|
(org-clock-get-clock-string)))))))
|
|
|
|
;; 设置定时器，每分钟检查一次
|
|
(run-with-timer 0 60 #'my/org-clock-check-timer)
|
|
|
|
;; 在 org-clock-in-hook 中添加检查
|
|
(add-hook 'org-clock-in-hook
|
|
(lambda ()
|
|
(let ((effort (org-entry-get (point) "Effort")))
|
|
(when effort
|
|
(my/org-clock-notification
|
|
"开始计时"
|
|
(format "开始计时任务: %s\n预计用时: %s"
|
|
(org-get-heading t t t t)
|
|
effort))))))
|
|
|
|
(use-package org-roam
|
|
:ensure t
|
|
:custom
|
|
(org-roam-directory (file-truename (concat org-directory "roam")))
|
|
:bind (("C-c n l" . org-roam-buffer-toggle)
|
|
("C-c n f" . org-roam-node-find)
|
|
("C-c n g" . org-roam-graph)
|
|
("C-c n i" . org-roam-node-insert)
|
|
("C-c n c" . org-roam-capture)
|
|
;; Dailies
|
|
("C-c n j" . org-roam-dailies-capture-today))
|
|
:config
|
|
;; If you're using a vertical completion framework, you might want a more informative completion interface
|
|
(setq org-roam-node-display-template (concat "${title:*} " (propertize "${tags:10}" 'face 'org-tag)))
|
|
(setq org-roam-db-location (expand-file-name "org-roam.db" user-emacs-data))
|
|
(org-roam-db-autosync-mode)
|
|
;; If using org-roam-protocol
|
|
(require 'org-roam-protocol))
|
|
|
|
|
|
|
|
(provide 'init-org)
|