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

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

Browse Source
master
trémeur 2 years ago
parent ab6d22e4d5
commit fcc8d740ce
3 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File

7
config.org
Unescape Escape View File

@ -657,8 +657,8 @@ Set the files to be included.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(if (string-equal system-type "android") (if (string-equal system-type "android")
(if workhours (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/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"))) (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 (progn
(add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/music.org") (add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/music.org")
(add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/admin.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. Set up habit display.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(unless (string-equal system-type "android")
(add-to-list 'org-modules 'org-habit t) (add-to-list 'org-modules 'org-habit t)
(setq org-habit-show-all-today t)) (setq org-habit-show-all-today t)
#+END_SRC #+END_SRC
** =paren= ** =paren=

2
custom/dwpost.el
Unescape Escape View File

@ -120,7 +120,7 @@
(goto-char (point-min)) (goto-char (point-min))
(re-search-forward "RECUR dw posts") (re-search-forward "RECUR dw posts")
(org-shiftright) (org-shiftright)
(sleep-for 4) (sleep-for 1)
(save-buffer)))) (save-buffer))))
(unless (string-equal system-type "android") (unless (string-equal system-type "android")

5
custom/org-format.el
Unescape Escape View File

@ -15,7 +15,7 @@
(replace-match "…")) (replace-match "…"))
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward "…" nil t) (while (re-search-forward "…" nil t)
(replace-match " … ")) (replace-match " …"))
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward "  …" nil t) (while (re-search-forward "  …" nil t)
(replace-match " …")) (replace-match " …"))
@ -23,6 +23,9 @@
(while (re-search-forward "  +…" nil t) (while (re-search-forward "  +…" nil t)
(replace-match " …")) (replace-match " …"))
(goto-char (point-min)) (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) (while (re-search-forward "'" nil t)
(replace-match "’")) (replace-match "’"))
(goto-char (point-min)) (goto-char (point-min))

Write Preview
Loading…
Cancel
Save