feat(android): Add Android platform support

Configure dirvish, org, and package loading for Android: - Use
shared storage paths for org notes on Android - Adjust dirvish
layout and hide details for smaller screens - Disable async package on Android due to compatibility
This commit is contained in:
2026-05-19 21:47:30 +08:00
parent ff77b5cafe
commit 4024ded7c6
3 changed files with 33 additions and 12 deletions

View File

@@ -46,7 +46,7 @@
;; agenda相关
(with-eval-after-load 'recentf
(add-to-list 'recentf-exclude "~/org/.*\\.org\\'"))
(add-to-list 'recentf-exclude (if *is-android* "~/storage/shared/my-org-note/.*\\.org\\'" "~/org/.*\\.org\\'")))
(cond
(*is-windows*
@@ -55,7 +55,9 @@
(*is-mac*
(setq org-agenda-files '("~/org/my-org-note/20260509T232442==agenda--all-my-todos__org.org")))
(*is-linux*
(setq org-agenda-files '("~/org/my-org-note/20260509T232442==agenda--all-my-todos__org.org"))))
(setq org-agenda-files '("~/org/my-org-note/20260509T232442==agenda--all-my-todos__org.org")))
(*is-android*
(setq org-agenda-files '("~/storage/shared/my-org-note/20260509T232442==agenda--all-my-todos__org.org"))))
(setq org-agenda-span 'day)
(setq org-default-priority ?C)
@@ -186,8 +188,9 @@
(:name "someday" :todo "SOMEDAY")))))))))
;; capture模板
(unless *is-windows*
(setq org-capture-templates
(setq org-capture-templates
(cond
((or *is-linux* *is-mac*)
'(("t" "TODO" entry
(file+headline "~/org/my-org-note/20260509T232442==agenda--all-my-todos__org.org" "Something to do")
"* TODO %<%m-%d> %?\n%T"
@@ -195,7 +198,17 @@
("s" "SOMEDAY" entry
(file+headline "~/org/my-org-note/20260509T232442==agenda--all-my-todos__org.org" "Something to do")
"* SOMEDAY %<%m-%d> %?\n%T"
:empty-lines 1))))
:empty-lines 1)))
(*is-android*
'(("t" "TODO" entry
(file+headline "~/storage/shared/my-org-note/20260509T232442==agenda--all-my-todos__org.org" "Something to do")
"* TODO %<%m-%d> %?\n%T"
:empty-lines 1)
("s" "SOMEDAY" entry
(file+headline "~/storage/shared/my-org-note/20260509T232442==agenda--all-my-todos__org.org" "Something to do")
"* SOMEDAY %<%m-%d> %?\n%T"
:empty-lines 1)))
(t nil)))
(setq org-bookmark-names-plist nil)