feat(emacs): Better vanilla emacs

tools/emacs.d/lisp/init-org.el

@@ -3,22 +3,24 @@
 ;; Use =M-x org-mode-restart= to take effects
 ;; After =M-x eval-buffer=
 
+;; Org General
+
 (use-package org
   :ensure nil ;; Use Emacs built-in Org Mode
   :config
   (setq org-log-done 'time)
-  (setq org-startup-indented t)
+  (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 t)
+  (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 '("~/OrgFiles"))
+  (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
@@ -29,6 +31,7 @@
     (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
@@ -40,33 +43,18 @@
     ("+" (: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-fragtog
   :after org
   :hook (org-mode . org-fragtog-mode))
 
-;; Run source block with C-c C-c
-;; Add supports for non-elisp langs
-(use-package ob-python
-  :ensure nil  ; Part of Org Mode
-  :after org)
-
-(use-package ob-C ;; C++ support is integrated in ob-C
-  :ensure nil  ; 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)
-   ))
-;; Use clang as default C/C++ Compiler (Easier to install and configure in Windows)
-(setq org-babel-C-compiler "clang")
-(setq org-babel-C++-compiler "clang++")
-;; Don't ask me again when running source block
-(setq org-confirm-babel-evaluate nil)
-
 ;; Pasting Images
 ;; Use =M-x org-download-clipboard= to paste image
 ;; Additional program required: magick
@@ -105,26 +93,107 @@
 ;; Pomodoro for org clock
 (use-package org-pomodoro)
 
-;; Org Styles Integration
 (use-package org-modern
   :ensure t
-  :after (org)
   :config
-  (with-eval-after-load 'org (global-org-modern-mode))
-;; https://github.com/minad/org-modern/issues/232
-  (setq org-modern-fold-stars
-      '(("▶" . "▼")
-        ("▷" . "▽")
-        ;; ("⯈" . "⯆")
-        ("▷" . "▽")
-        ("▹" . "▿")
-        ("▸" . "▾"))
-)
-)
+  (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
+  :ensure nil  ; Part of Org Mode
+  :after org)
+
+(use-package ob-C ;; C++ support is integrated in ob-C
+  :ensure nil  ; 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")
 
-(use-package mixed-pitch
-  :hook
-  (text-mode . org-mode))
 
 ;; Integrate Emacs Timer with System Notifications
 ;; 定义通知函数
@@ -140,12 +209,12 @@
   "检查当前正在运行的 clock 是否到期"
   (when (org-clocking-p)
     (let* ((clocked-time (org-clock-get-clocked-time))
-           (effort (org-duration-to-minutes 
+           (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 
+        (my/org-clock-notification
          "Org Clock 提醒"
          (format "任务 '%s' 的预计时间已到！"
                 (org-clock-get-clock-string)))))))
@@ -158,9 +227,9 @@
           (lambda ()
             (let ((effort (org-entry-get (point) "Effort")))
               (when effort
-                (my/org-clock-notification 
+                (my/org-clock-notification
                  "开始计时"
-                 (format "开始计时任务: %s\n预计用时: %s" 
+                 (format "开始计时任务: %s\n预计用时: %s"
                         (org-get-heading t t t t)
                         effort))))))