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

Ellipsis fix and why can’t I display habits on my phone?

Browse source
This commit is contained in:
trémeur 2023-03-11 21:52:35 +00:00
parent ab6d22e4d5
commit fcc8d740ce
3 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
config.org
View file

@ -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=

2
custom/dwpost.el
View file

@ -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")

5
custom/org-format.el
View file

@ -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))