diff options
| -rw-r--r-- | custom/jao-custom-org.el | 44 |
1 files changed, 20 insertions, 24 deletions
diff --git a/custom/jao-custom-org.el b/custom/jao-custom-org.el index 01f324e..9dabf2d 100644 --- a/custom/jao-custom-org.el +++ b/custom/jao-custom-org.el @@ -52,30 +52,42 @@ org-gnus-prefer-web-links nil)) ;;; Agenda +(defun jao-org-agenda-fmt-date (date) + (org-agenda-format-date-aligned date)) + (setq org-agenda-custom-commands - '(("j" agenda "" ((org-agenda-ndays 14) - (org-agenda-overriding-header " "))) + '(("j" agenda "" ((org-agenda-overriding-header "Agenda \n") + (org-agenda-ndays-to-span 14))) ("w" todo "WAITING" nil) ("W" agenda "" ((org-agenda-ndays 21)))) org-agenda-files (mapcar (lambda (f) (expand-file-name f jao-org-dir)) - '("inbox.org" "bigml.org")) + '("inbox.org")) org-agenda-block-separator " " org-agenda-breadcrumbs-separator "•" org-agenda-current-time-string "•" ;; "*" - ;; '((daily today require-timed) - ;; (800 1000 1200 1400 1600 1800 2000) "" "·") + org-agenda-format-date #'jao-org-agenda-fmt-date org-agenda-hide-tags-regexp ".*" org-agenda-include-diary t org-agenda-include-inactive-timestamps t org-agenda-inhibit-startup nil + org-agenda-prefix-format + '((agenda . " %i %?-12t% s") + (todo . " %i %-12:c") + (tags . " %i %-12:c") + (search . " %i %-12:c")) org-agenda-restore-windows-after-quit t org-agenda-show-all-dates t org-agenda-skip-deadline-if-done t - org-agenda-skip-scheduled-if-done nil + org-agenda-skip-scheduled-if-done t + org-agenda-skip-timestamp-if-done t + org-agenda-skip-timestamp-if-deadline-is-shown t + org-agenda-skip-scheduled-if-deadline-is-shown t org-agenda-span 14 - org-agenda-start-on-weekday nil - org-agenda-time-grid '((daily require-timed) () "" "·") + ;; org-agenda-start-on-weekday nil + ;; ;; org-agenda-time-grid '((daily require-timed) () "" "·") + ;; '((daily today require-timed) + ;; (800 1000 1200 1400 1600 1800 2000) "" "·") org-agenda-window-setup 'current-window) (defun jao-org-agenda () @@ -297,22 +309,6 @@ (org-show-subtree)))) (add-hook 'org-mode-hook 'jao-org--show-if-hidden t) -;;; org-modern -(use-package org-modern - :ensure t - :init - (setq org-modern-fold-stars - '(("▶" . "▼") ("▷" . "▽") ("▶" . "▼") ("▹" . "▿") ("▸" . "▾"))) - - (define-derived-mode jao-org-inbox-mode org-mode - "Org inbox" - (org-indent-mode) - (org-modern-mode)) - - (add-to-list 'auto-mode-alist '("inbox\\.org\\'" . jao-org-inbox-mode)) - - :hook ((org-agenda-finalize . org-modern-agenda))) - ;;; jao-org-focus (use-package jao-org-focus :after org |