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

master
trémeur 2 years ago
parent ab6d22e4d5
commit fcc8d740ce

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

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

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

Loading…
Cancel
Save