admin/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore(config): Refactor Emacs config for cross-platform compatibility

Browse Source 
Add Android/Termux support with `*is-android*` constant and
conditional GUI/terminal initialization. Remove maximized frame
defaults and custom.el. Replace corfu with corfu-terminal in
TTY. Add god-mode to terminal config with line number sync. Update
org agenda to use org-ql blocks with super-agenda grouping. Switch
solarized-theme to fork. Clean up redundant functions and unify
keyboard bindings across environments.
This commit is contained in:
User
2026-05-18 20:46:26 +08:00
parent 3469cf8472
commit e2a352709c
20 changed files with 163 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
lisp/init-org.el
View File

@@ -64,7 +64,7 @@
;; org-babel scheme
(use-package ob-scheme
:straight (:type built-in)
:straight nil
:config
(add-to-list 'org-babel-load-languages '(scheme . t))
(org-babel-do-load-languages
@@ -137,12 +137,22 @@
;; 自定义agenda视图
(setq org-agenda-custom-commands
'(("pa" "Priority >= A"
((tags-todo "+PRIORITY=\"A\"")))
("pb" "Priority >= B"
((tags-todo "+PRIORITY<=\"B\"")))
("pc" "Priority >= C"
((tags-todo "+PRIORITY<=\"C\"")))
'(("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")
@@ -171,8 +181,7 @@
(:name "priority = A" :priority "A")
(:name "priority = B" :priority "B")
(:name "other priority" :priority< "B")
(:name "someday" :todo "SOMEDAY")
))))))))
(:name "someday" :todo "SOMEDAY")))))))))
;; capture模板
(unless *is-windows*