|
|
|
|
@ -950,9 +950,10 @@ |
|
|
|
|
Use less verbose reminders: |
|
|
|
|
#+begin_src emacs-lisp |
|
|
|
|
(setq org-agenda-deadline-leaders |
|
|
|
|
'("⇒" "In %3d d. " "%2d d. ago ") |
|
|
|
|
'("⇒" "@ %3d d. " "! %2d d. ago ") |
|
|
|
|
org-agenda-scheduled-leaders |
|
|
|
|
'("→" "↻ %2d×")) |
|
|
|
|
'("→" "↻ %2d×") |
|
|
|
|
org-agenda-habit-leader "·") |
|
|
|
|
#+end_src |
|
|
|
|
Default to daily agenda |
|
|
|
|
#+begin_src emacs-lisp |
|
|
|
|
@ -1039,11 +1040,11 @@ |
|
|
|
|
""))) |
|
|
|
|
|
|
|
|
|
(format (concat "\n" |
|
|
|
|
"%12s %s %4d%s\n" |
|
|
|
|
"%12s \n" |
|
|
|
|
"%12s %-10s\n" |
|
|
|
|
"%12s \n" |
|
|
|
|
"%12s %s\n") |
|
|
|
|
"%9s %s %4d%s\n" |
|
|
|
|
"%9s \n" |
|
|
|
|
"%9s %-10s\n" |
|
|
|
|
"%9s \n" |
|
|
|
|
"%9s %s\n") |
|
|
|
|
(figlet-num day 0) monthname year weekstring |
|
|
|
|
(figlet-num day 1) |
|
|
|
|
(figlet-num day 2) dayname |
|
|
|
|
@ -1052,10 +1053,10 @@ |
|
|
|
|
|
|
|
|
|
(setq org-agenda-format-date #'org-agenda-format-date-figlet) |
|
|
|
|
(setq org-agenda-prefix-format |
|
|
|
|
'((agenda . " %i %9c · %?-12t% s") |
|
|
|
|
(todo . " %i %9c · ") |
|
|
|
|
(tags . " %i %9c · ") |
|
|
|
|
(search . " %i %9c · "))) |
|
|
|
|
'((agenda . " %i %6c %s %?-12t") |
|
|
|
|
(todo . " %i %6c · ") |
|
|
|
|
(tags . " %i %6c · ") |
|
|
|
|
(search . " %i %6c · "))) |
|
|
|
|
#+end_src |
|
|
|
|
- Add a whiteline after the header Now, this is a horrible hack: |
|
|
|
|
the string that forms the header is obtained by constructing |
|
|
|
|
@ -2476,7 +2477,9 @@ |
|
|
|
|
'(("M-x" . helm-M-x) |
|
|
|
|
("C-x f" . helm-find-files) |
|
|
|
|
("C-x b" . helm-mini) |
|
|
|
|
("M-y" . helm-show-kill-ring))) |
|
|
|
|
("M-y" . helm-show-kill-ring) |
|
|
|
|
("C-c s" . helm-occur))) |
|
|
|
|
|
|
|
|
|
(define-key helm-map (kbd "C-h") nil) |
|
|
|
|
(define-key helm-find-files-map (kbd "C-h") nil) |
|
|
|
|
(define-key helm-find-files-map (kbd "C-<backspace>") nil) |
|
|
|
|
|
Jacopo De Simoi
3 years ago