diff --git a/config.org b/config.org index 9b96ee8..d5a1f16 100644 --- a/config.org +++ b/config.org @@ -657,8 +657,8 @@ Set the files to be included. #+BEGIN_SRC emacs-lisp (if (string-equal system-type "android") (if workhours - (setq org-agenda-files '("/storage/emulated/0/Documents/org/calendar/admin.org" "/storage/emulated/0/Documents/org/calendar/music.org" "/storage/emulated/0/Documents/org/calendar/work.org")) - (setq org-agenda-files '("/storage/emulated/0/Documents/org/calendar/admin.org" "/storage/emulated/0/Documents/org/calendar/music.org" "/storage/emulated/0/Documents/org/calendar/personal.org"))) + (setq org-agenda-files '("/storage/emulated/0/Documents/org/calendar/admin.org" "/storage/emulated/0/Documents/org/calendar/music.org" "/storage/emulated/0/Documents/org/calendar/work.org" "/storage/emulated/0/Documents/org/calendar/acwri.org")) + (setq org-agenda-files '("/storage/emulated/0/Documents/org/calendar/admin.org" "/storage/emulated/0/Documents/org/calendar/music.org" "/storage/emulated/0/Documents/org/calendar/personal.org" "/storage/emulated/0/Documents/org/calendar/habit.org"))) (progn (add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/music.org") (add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/admin.org") @@ -711,9 +711,8 @@ Use a horizontal line to divide each day from the next. Set up habit display. #+BEGIN_SRC emacs-lisp - (unless (string-equal system-type "android") - (add-to-list 'org-modules 'org-habit t) - (setq org-habit-show-all-today t)) + (add-to-list 'org-modules 'org-habit t) + (setq org-habit-show-all-today t) #+END_SRC ** =paren= diff --git a/custom/dwpost.el b/custom/dwpost.el index 4d0a433..15f0786 100644 --- a/custom/dwpost.el +++ b/custom/dwpost.el @@ -120,7 +120,7 @@ (goto-char (point-min)) (re-search-forward "RECUR dw posts") (org-shiftright) - (sleep-for 4) + (sleep-for 1) (save-buffer)))) (unless (string-equal system-type "android") diff --git a/custom/org-format.el b/custom/org-format.el index 7fb64ee..9167c48 100644 --- a/custom/org-format.el +++ b/custom/org-format.el @@ -15,7 +15,7 @@ (replace-match "…")) (goto-char (point-min)) (while (re-search-forward "…" nil t) - (replace-match " … ")) + (replace-match " …")) (goto-char (point-min)) (while (re-search-forward "  …" nil t) (replace-match " …")) @@ -23,6 +23,9 @@ (while (re-search-forward "  +…" nil t) (replace-match " …")) (goto-char (point-min)) + (while (re-search-forward "…\\([a-z]\\)" nil t) + (replace-match "… \\1")) + (goto-char (point-min)) (while (re-search-forward "'" nil t) (replace-match "’")) (goto-char (point-min))