[Org] Move Agenda customization to init.el
some minor other configurations moved to init.el, too.
This commit is contained in:
parent
626630665a
commit
b8b6842e56
191
init.el
191
init.el
|
@ -650,11 +650,16 @@ _h_ _l_ _o_k _y_ank
|
||||||
(use-package db-org
|
(use-package db-org
|
||||||
:commands (db/find-parent-task
|
:commands (db/find-parent-task
|
||||||
db/ensure-running-clock
|
db/ensure-running-clock
|
||||||
db/save-current-org-task-to-file))
|
db/save-current-org-task-to-file
|
||||||
|
endless/org-ispell
|
||||||
|
db/update-org-agenda-files
|
||||||
|
db/org-agenda-list-deadlines
|
||||||
|
db/org-agenda-skip-tag
|
||||||
|
db/cmp-date-property
|
||||||
|
hydra-org-agenda-view/body))
|
||||||
|
|
||||||
(use-package org
|
(use-package org
|
||||||
:commands (org-agenda
|
:commands (org-capture
|
||||||
org-capture
|
|
||||||
org-store-link
|
org-store-link
|
||||||
hydra-org-clock/body)
|
hydra-org-clock/body)
|
||||||
:bind (:map org-mode-map
|
:bind (:map org-mode-map
|
||||||
|
@ -662,9 +667,24 @@ _h_ _l_ _o_k _y_ank
|
||||||
:config (progn
|
:config (progn
|
||||||
(require 'db-org)
|
(require 'db-org)
|
||||||
|
|
||||||
;; avoid important buffers to end up in `org-agenda-new-buffers’ by
|
;; Color links to file according to whether they exist or not
|
||||||
;; opening them manually
|
(org-link-set-parameters
|
||||||
(mapc #'find-file-noselect org-agenda-files)
|
"file"
|
||||||
|
:face (lambda (path) (if (file-exists-p path) 'org-link 'org-warning)))
|
||||||
|
|
||||||
|
;; File Apps
|
||||||
|
|
||||||
|
(add-to-list 'org-file-apps '(directory . emacs))
|
||||||
|
|
||||||
|
(add-to-list 'org-file-apps '("\\.docx?\\'" . default))
|
||||||
|
(add-to-list 'org-file-apps '("\\.pptx?\\'" . default))
|
||||||
|
(add-to-list 'org-file-apps '("\\.xlsx?\\'" . default))
|
||||||
|
|
||||||
|
(when (eq system-type 'cygwin)
|
||||||
|
(add-to-list 'org-file-apps '(t . "cygstart %s") t))
|
||||||
|
|
||||||
|
;; Skip some org mode regions to be skipped by ispell
|
||||||
|
(add-hook 'org-mode-hook #'endless/org-ispell)
|
||||||
|
|
||||||
(unless (memq #'org-clock-save
|
(unless (memq #'org-clock-save
|
||||||
(mapcar #'timer--function timer-list))
|
(mapcar #'timer--function timer-list))
|
||||||
|
@ -696,6 +716,7 @@ _h_ _l_ _o_k _y_ank
|
||||||
:type 'string)
|
:type 'string)
|
||||||
|
|
||||||
(use-package org-clock
|
(use-package org-clock
|
||||||
|
:defer t
|
||||||
:init (setq org-clock-history-length 23
|
:init (setq org-clock-history-length 23
|
||||||
org-clock-in-resume t
|
org-clock-in-resume t
|
||||||
org-clock-into-drawer t
|
org-clock-into-drawer t
|
||||||
|
@ -736,6 +757,164 @@ _h_ _l_ _o_k _y_ank
|
||||||
;; Communicate the currently clocked in task to the outside world
|
;; Communicate the currently clocked in task to the outside world
|
||||||
(add-hook 'org-clock-in-hook #'db/save-current-org-task-to-file)))
|
(add-hook 'org-clock-in-hook #'db/save-current-org-task-to-file)))
|
||||||
|
|
||||||
|
;; Agenda
|
||||||
|
|
||||||
|
(defcustom db/org-default-work-file ""
|
||||||
|
"Path to default org-mode file at work."
|
||||||
|
:group 'personal-settings
|
||||||
|
:type 'string
|
||||||
|
:set #'db/update-org-agenda-files)
|
||||||
|
|
||||||
|
(defcustom db/org-default-home-file ""
|
||||||
|
"Path to default org-mode file at home."
|
||||||
|
:group 'personal-settings
|
||||||
|
:type 'string
|
||||||
|
:set #'db/update-org-agenda-files)
|
||||||
|
|
||||||
|
(defcustom db/org-default-notes-file ""
|
||||||
|
"Path to default org-mode file for notes."
|
||||||
|
:group 'personal-settings
|
||||||
|
:type 'string
|
||||||
|
:set #'db/update-org-agenda-files)
|
||||||
|
|
||||||
|
(defcustom db/org-default-refile-file ""
|
||||||
|
"Path to default org-mode file for capturing."
|
||||||
|
:group 'personal-settings
|
||||||
|
:type 'string
|
||||||
|
:set #'db/update-org-agenda-files)
|
||||||
|
|
||||||
|
(defcustom db/org-default-pensieve-file ""
|
||||||
|
"Path to default org-mode file for private notes."
|
||||||
|
:group 'personal-settings
|
||||||
|
:type 'string
|
||||||
|
:set #'db/update-org-agenda-files)
|
||||||
|
|
||||||
|
(use-package org-agenda
|
||||||
|
:commands (org-agenda)
|
||||||
|
:bind (:map org-agenda-mode-map
|
||||||
|
("v" . hydra-org-agenda-view/body))
|
||||||
|
:init (setq org-agenda-include-diary t
|
||||||
|
org-agenda-span 1
|
||||||
|
org-agenda-diary-file db/org-default-refile-file
|
||||||
|
org-agenda-insert-diary-strategy 'top-level
|
||||||
|
org-catch-invisible-edits 'show
|
||||||
|
org-agenda-sorting-strategy '((agenda time-up habit-up priority-down)
|
||||||
|
(todo category-keep)
|
||||||
|
(tags category-keep)
|
||||||
|
(search category-keep))
|
||||||
|
org-agenda-window-setup 'current-window
|
||||||
|
org-agenda-restore-windows-after-quit t
|
||||||
|
org-agenda-compact-blocks nil
|
||||||
|
org-agenda-todo-ignore-with-date nil
|
||||||
|
org-agenda-todo-ignore-deadlines nil
|
||||||
|
org-agenda-todo-ignore-scheduled nil
|
||||||
|
org-agenda-todo-ignore-timestamp nil
|
||||||
|
org-agenda-skip-deadline-if-done t
|
||||||
|
org-agenda-skip-scheduled-if-done t
|
||||||
|
org-agenda-skip-timestamp-if-done t
|
||||||
|
org-agenda-skip-scheduled-if-deadline-is-shown 'not-today
|
||||||
|
org-agenda-tags-todo-honor-ignore-options t
|
||||||
|
org-agenda-start-with-log-mode nil
|
||||||
|
org-agenda-log-mode-items '(closed state)
|
||||||
|
org-agenda-remove-tags t
|
||||||
|
org-agenda-sticky nil
|
||||||
|
org-agenda-inhibit-startup t
|
||||||
|
org-agenda-tags-todo-honor-ignore-options t
|
||||||
|
org-agenda-dim-blocked-tasks nil
|
||||||
|
org-enforce-todo-checkbox-dependencies t
|
||||||
|
org-enforce-todo-dependencies t
|
||||||
|
org-agenda-use-time-grid t
|
||||||
|
org-agenda-persistent-filter t
|
||||||
|
org-agenda-search-headline-for-time nil
|
||||||
|
|
||||||
|
org-agenda-clock-consistency-checks
|
||||||
|
'(:max-duration 9999999
|
||||||
|
:min-duration 0
|
||||||
|
:max-gap 0
|
||||||
|
:gap-ok-around nil
|
||||||
|
:default-face ((:background "DarkRed") (:foreground "white"))
|
||||||
|
:overlap-face nil :gap-face nil :no-end-time-face nil
|
||||||
|
:long-face nil :short-face nil)
|
||||||
|
|
||||||
|
org-agenda-clockreport-parameter-plist
|
||||||
|
'(:link t :maxlevel 4 :compact t :narrow 60 :fileskip0 t)
|
||||||
|
|
||||||
|
org-stuck-projects
|
||||||
|
'("-DATE-HOLD-REGULAR-HOLD-NOTE+TODO=\"\""
|
||||||
|
("CONT" "TODO" "READ" "WAIT" "GOTO" "DELG")
|
||||||
|
("NOP")
|
||||||
|
"")
|
||||||
|
|
||||||
|
org-agenda-custom-commands
|
||||||
|
`(("A" "Main List"
|
||||||
|
((agenda
|
||||||
|
""
|
||||||
|
((org-agenda-entry-types '(:timestamp :sexp :scheduled :deadline))
|
||||||
|
(org-deadline-warning-days 0)))
|
||||||
|
(db/org-agenda-list-deadlines
|
||||||
|
""
|
||||||
|
((org-agenda-overriding-header "Deadlines")
|
||||||
|
(org-agenda-sorting-strategy '(deadline-up priority-down))
|
||||||
|
(org-deadline-warning-days 30)))
|
||||||
|
(tags-todo "-NOAGENDA/WAIT|DELG"
|
||||||
|
((org-agenda-overriding-header "Waiting-fors")
|
||||||
|
(org-agenda-todo-ignore-deadlines t)
|
||||||
|
(org-agenda-todo-ignore-scheduled t)))
|
||||||
|
(tags "REFILE"
|
||||||
|
((org-agenda-files (list db/org-default-refile-file))
|
||||||
|
(org-agenda-overriding-header "Things to refile")))))
|
||||||
|
("R" "Reading List"
|
||||||
|
((tags-todo "READ/-DONE-CANC"
|
||||||
|
((org-agenda-overriding-header "To Read (unscheduled)")
|
||||||
|
(org-agenda-cmp-user-defined (db/cmp-date-property "CREATED"))
|
||||||
|
(org-agenda-sorting-strategy '(user-defined-up))
|
||||||
|
(org-agenda-todo-ignore-scheduled t)))))
|
||||||
|
("E" "Everything"
|
||||||
|
((tags-todo "/WAIT"
|
||||||
|
((org-agenda-overriding-header "Tasks requiring response/input")))
|
||||||
|
(tags-todo "-HOLD-READ-SOMEWHEN/-DONE"
|
||||||
|
((org-agenda-overriding-header "Things not being scheduled or deadlined")
|
||||||
|
(org-tags-match-list-sublevels t)
|
||||||
|
(org-agenda-todo-ignore-with-date t)
|
||||||
|
(org-agenda-sorting-strategy
|
||||||
|
'(priority-down time-up category-keep))))
|
||||||
|
(stuck ""
|
||||||
|
((org-agenda-overriding-header "Stuck Tasks")))))
|
||||||
|
("S" "Somewhen"
|
||||||
|
((tags-todo "SOMEWHEN/-CANC-DONE"
|
||||||
|
((org-agenda-overriding-header "Things to do somewhen")
|
||||||
|
(org-agenda-todo-ignore-with-date t)
|
||||||
|
(org-tags-match-list-sublevels nil)))
|
||||||
|
(tags-todo "/HOLD"
|
||||||
|
((org-agenda-overriding-header "Tasks on Hold")))))
|
||||||
|
("W" "Weekly Review"
|
||||||
|
((agenda ""
|
||||||
|
((org-agenda-span 7)
|
||||||
|
(org-agenda-archives-mode t)
|
||||||
|
(org-agenda-dim-blocked-tasks nil)
|
||||||
|
(org-agenda-skip-deadline-prewarning-if-scheduled t)))))
|
||||||
|
("M" "Monthly Preview"
|
||||||
|
((db/org-agenda-list-deadlines
|
||||||
|
""
|
||||||
|
((org-agenda-overriding-header "Deadlines")
|
||||||
|
(org-agenda-sorting-strategy '(deadline-up priority-down))
|
||||||
|
(org-deadline-warning-days 90)))
|
||||||
|
(agenda ""
|
||||||
|
((org-agenda-span 'month)
|
||||||
|
(org-agenda-dim-blocked-tasks nil)
|
||||||
|
(org-deadline-warning-days 0) ; covered by display above
|
||||||
|
))))
|
||||||
|
("N" "Notes" tags "NOTE"
|
||||||
|
((org-agenda-overriding-header "Notes")
|
||||||
|
(org-use-tag-inheritance nil)
|
||||||
|
(org-agenda-prefix-format '((tags . " ")))))))
|
||||||
|
:config (progn
|
||||||
|
;; avoid important buffers to end up in `org-agenda-new-buffers’ by
|
||||||
|
;; opening them manually
|
||||||
|
(mapc #'find-file-noselect org-agenda-files)
|
||||||
|
|
||||||
|
(add-hook 'org-agenda-mode-hook #'hl-line-mode 'append)))
|
||||||
|
|
||||||
(use-package ox-icalendar
|
(use-package ox-icalendar
|
||||||
:commands (org-icalendar-combine-agenda-files)
|
:commands (org-icalendar-combine-agenda-files)
|
||||||
:init (setq org-icalendar-include-body nil
|
:init (setq org-icalendar-include-body nil
|
||||||
|
|
|
@ -67,20 +67,6 @@
|
||||||
org-columns-default-format
|
org-columns-default-format
|
||||||
"%80ITEM(Task) %10Effort(Effort){:} %10CLOCKSUM")
|
"%80ITEM(Task) %10Effort(Effort){:} %10CLOCKSUM")
|
||||||
|
|
||||||
|
|
||||||
;;; How to open files
|
|
||||||
|
|
||||||
;; open directory links in emacs itself
|
|
||||||
(add-to-list 'org-file-apps '(directory . emacs))
|
|
||||||
|
|
||||||
;; use system default for Microsoft stuff
|
|
||||||
(add-to-list 'org-file-apps '("\\.docx?\\'" . default))
|
|
||||||
(add-to-list 'org-file-apps '("\\.pptx?\\'" . default))
|
|
||||||
(add-to-list 'org-file-apps '("\\.xlsx?\\'" . default))
|
|
||||||
|
|
||||||
(when (eq system-type 'cygwin)
|
|
||||||
(add-to-list 'org-file-apps '(t . "cygstart %s") t))
|
|
||||||
|
|
||||||
|
|
||||||
;;; Faces
|
;;; Faces
|
||||||
|
|
||||||
|
@ -106,13 +92,10 @@
|
||||||
(?B . (:foreground "firebrick"))
|
(?B . (:foreground "firebrick"))
|
||||||
(?C . (:foreground "tomato"))))
|
(?C . (:foreground "tomato"))))
|
||||||
|
|
||||||
(org-link-set-parameters
|
|
||||||
"file"
|
|
||||||
:face (lambda (path) (if (file-exists-p path) 'org-link 'org-warning)))
|
|
||||||
|
|
||||||
|
|
||||||
;;; Agenda Customization
|
;;; Agenda Customization
|
||||||
|
|
||||||
|
;; For customization of default org agenda files
|
||||||
(defun db/update-org-agenda-files (symbol value)
|
(defun db/update-org-agenda-files (symbol value)
|
||||||
"Set SYMBOL to VALUE and update `org-agenda-files’ afterwards."
|
"Set SYMBOL to VALUE and update `org-agenda-files’ afterwards."
|
||||||
(set-default symbol value)
|
(set-default symbol value)
|
||||||
|
@ -127,90 +110,6 @@
|
||||||
db/org-default-notes-file)))
|
db/org-default-notes-file)))
|
||||||
:test #'cl-equalp)))
|
:test #'cl-equalp)))
|
||||||
|
|
||||||
(defcustom db/org-default-work-file ""
|
|
||||||
"Path to default org-mode file at work."
|
|
||||||
:group 'personal-settings
|
|
||||||
:type 'string
|
|
||||||
:set #'db/update-org-agenda-files)
|
|
||||||
|
|
||||||
(defcustom db/org-default-home-file ""
|
|
||||||
"Path to default org-mode file at home."
|
|
||||||
:group 'personal-settings
|
|
||||||
:type 'string
|
|
||||||
:set #'db/update-org-agenda-files)
|
|
||||||
|
|
||||||
(defcustom db/org-default-notes-file ""
|
|
||||||
"Path to default org-mode file for notes."
|
|
||||||
:group 'personal-settings
|
|
||||||
:type 'string
|
|
||||||
:set #'db/update-org-agenda-files)
|
|
||||||
|
|
||||||
(defcustom db/org-default-refile-file ""
|
|
||||||
"Path to default org-mode file for capturing."
|
|
||||||
:group 'personal-settings
|
|
||||||
:type 'string
|
|
||||||
:set #'db/update-org-agenda-files)
|
|
||||||
|
|
||||||
(defcustom db/org-default-pensieve-file ""
|
|
||||||
"Path to default org-mode file for private notes."
|
|
||||||
:group 'personal-settings
|
|
||||||
:type 'string
|
|
||||||
:set #'db/update-org-agenda-files)
|
|
||||||
|
|
||||||
(setq org-agenda-include-diary t
|
|
||||||
org-agenda-span 1
|
|
||||||
org-agenda-diary-file db/org-default-refile-file
|
|
||||||
org-agenda-insert-diary-strategy 'top-level
|
|
||||||
org-catch-invisible-edits 'show
|
|
||||||
org-agenda-sorting-strategy '((agenda time-up habit-up priority-down)
|
|
||||||
(todo category-keep)
|
|
||||||
(tags category-keep)
|
|
||||||
(search category-keep))
|
|
||||||
org-agenda-window-setup 'current-window
|
|
||||||
org-agenda-restore-windows-after-quit t
|
|
||||||
org-agenda-compact-blocks nil
|
|
||||||
org-agenda-todo-ignore-with-date nil
|
|
||||||
org-agenda-todo-ignore-deadlines nil
|
|
||||||
org-agenda-todo-ignore-scheduled nil
|
|
||||||
org-agenda-todo-ignore-timestamp nil
|
|
||||||
org-agenda-skip-deadline-if-done t
|
|
||||||
org-agenda-skip-scheduled-if-done t
|
|
||||||
org-agenda-skip-timestamp-if-done t
|
|
||||||
org-agenda-skip-scheduled-if-deadline-is-shown 'not-today
|
|
||||||
org-agenda-tags-todo-honor-ignore-options t
|
|
||||||
org-agenda-start-with-log-mode nil
|
|
||||||
org-agenda-log-mode-items '(closed state)
|
|
||||||
org-agenda-remove-tags t
|
|
||||||
org-agenda-sticky nil
|
|
||||||
org-agenda-inhibit-startup t
|
|
||||||
org-agenda-tags-todo-honor-ignore-options t
|
|
||||||
org-agenda-dim-blocked-tasks nil
|
|
||||||
org-enforce-todo-checkbox-dependencies t
|
|
||||||
org-enforce-todo-dependencies t
|
|
||||||
org-agenda-use-time-grid t
|
|
||||||
org-agenda-persistent-filter t
|
|
||||||
org-agenda-search-headline-for-time nil)
|
|
||||||
|
|
||||||
(setq org-agenda-clock-consistency-checks
|
|
||||||
'(:max-duration 9999999
|
|
||||||
:min-duration 0
|
|
||||||
:max-gap 0
|
|
||||||
:gap-ok-around nil
|
|
||||||
:default-face ((:background "DarkRed") (:foreground "white"))
|
|
||||||
:overlap-face nil :gap-face nil :no-end-time-face nil
|
|
||||||
:long-face nil :short-face nil))
|
|
||||||
|
|
||||||
(add-hook 'org-agenda-mode-hook #'hl-line-mode 'append)
|
|
||||||
|
|
||||||
(setq org-agenda-clockreport-parameter-plist
|
|
||||||
'(:link t :maxlevel 4 :compact t :narrow 60 :fileskip0 t)
|
|
||||||
|
|
||||||
org-stuck-projects
|
|
||||||
'("-DATE-HOLD-REGULAR-HOLD-NOTE+TODO=\"\""
|
|
||||||
("CONT" "TODO" "READ" "WAIT" "GOTO" "DELG")
|
|
||||||
("NOP")
|
|
||||||
""))
|
|
||||||
|
|
||||||
(defun db/org-agenda-list-deadlines (&optional match)
|
(defun db/org-agenda-list-deadlines (&optional match)
|
||||||
;; XXX org-agenda-later does not work, fix this
|
;; XXX org-agenda-later does not work, fix this
|
||||||
"Prepare agenda view that only lists upcoming deadlines.
|
"Prepare agenda view that only lists upcoming deadlines.
|
||||||
|
@ -308,70 +207,6 @@ are equal return nil."
|
||||||
(cmp (compare-strings a-date nil nil b-date nil nil)))
|
(cmp (compare-strings a-date nil nil b-date nil nil)))
|
||||||
(if (eq cmp t) nil (cl-signum cmp))))))
|
(if (eq cmp t) nil (cl-signum cmp))))))
|
||||||
|
|
||||||
(setq org-agenda-custom-commands
|
|
||||||
`(("A" "Main List"
|
|
||||||
((agenda
|
|
||||||
""
|
|
||||||
((org-agenda-entry-types '(:timestamp :sexp :scheduled :deadline))
|
|
||||||
(org-deadline-warning-days 0)))
|
|
||||||
(db/org-agenda-list-deadlines
|
|
||||||
""
|
|
||||||
((org-agenda-overriding-header "Deadlines")
|
|
||||||
(org-agenda-sorting-strategy '(deadline-up priority-down))
|
|
||||||
(org-deadline-warning-days 30)))
|
|
||||||
(tags-todo "-NOAGENDA/WAIT|DELG"
|
|
||||||
((org-agenda-overriding-header "Waiting-fors")
|
|
||||||
(org-agenda-todo-ignore-deadlines t)
|
|
||||||
(org-agenda-todo-ignore-scheduled t)))
|
|
||||||
(tags "REFILE"
|
|
||||||
((org-agenda-files (list db/org-default-refile-file))
|
|
||||||
(org-agenda-overriding-header "Things to refile")))))
|
|
||||||
("R" "Reading List"
|
|
||||||
((tags-todo "READ/-DONE-CANC"
|
|
||||||
((org-agenda-overriding-header "To Read (unscheduled)")
|
|
||||||
(org-agenda-cmp-user-defined (db/cmp-date-property "CREATED"))
|
|
||||||
(org-agenda-sorting-strategy '(user-defined-up))
|
|
||||||
(org-agenda-todo-ignore-scheduled t)))))
|
|
||||||
("E" "Everything"
|
|
||||||
((tags-todo "/WAIT"
|
|
||||||
((org-agenda-overriding-header "Tasks requiring response/input")))
|
|
||||||
(tags-todo "-HOLD-READ-SOMEWHEN/-DONE"
|
|
||||||
((org-agenda-overriding-header "Things not being scheduled or deadlined")
|
|
||||||
(org-tags-match-list-sublevels t)
|
|
||||||
(org-agenda-todo-ignore-with-date t)
|
|
||||||
(org-agenda-sorting-strategy
|
|
||||||
'(priority-down time-up category-keep))))
|
|
||||||
(stuck ""
|
|
||||||
((org-agenda-overriding-header "Stuck Tasks")))))
|
|
||||||
("S" "Somewhen"
|
|
||||||
((tags-todo "SOMEWHEN/-CANC-DONE"
|
|
||||||
((org-agenda-overriding-header "Things to do somewhen")
|
|
||||||
(org-agenda-todo-ignore-with-date t)
|
|
||||||
(org-tags-match-list-sublevels nil)))
|
|
||||||
(tags-todo "/HOLD"
|
|
||||||
((org-agenda-overriding-header "Tasks on Hold")))))
|
|
||||||
("W" "Weekly Review"
|
|
||||||
((agenda ""
|
|
||||||
((org-agenda-span 7)
|
|
||||||
(org-agenda-archives-mode t)
|
|
||||||
(org-agenda-dim-blocked-tasks nil)
|
|
||||||
(org-agenda-skip-deadline-prewarning-if-scheduled t)))))
|
|
||||||
("M" "Monthly Preview"
|
|
||||||
((db/org-agenda-list-deadlines
|
|
||||||
""
|
|
||||||
((org-agenda-overriding-header "Deadlines")
|
|
||||||
(org-agenda-sorting-strategy '(deadline-up priority-down))
|
|
||||||
(org-deadline-warning-days 90)))
|
|
||||||
(agenda ""
|
|
||||||
((org-agenda-span 'month)
|
|
||||||
(org-agenda-dim-blocked-tasks nil)
|
|
||||||
(org-deadline-warning-days 0) ; covered by display above
|
|
||||||
))))
|
|
||||||
("N" "Notes" tags "NOTE"
|
|
||||||
((org-agenda-overriding-header "Notes")
|
|
||||||
(org-use-tag-inheritance nil)
|
|
||||||
(org-agenda-prefix-format '((tags . " ")))))))
|
|
||||||
|
|
||||||
;; A Hydra for changing agenda appearance
|
;; A Hydra for changing agenda appearance
|
||||||
;; http://oremacs.com/2016/04/04/hydra-doc-syntax/
|
;; http://oremacs.com/2016/04/04/hydra-doc-syntax/
|
||||||
|
|
||||||
|
@ -382,8 +217,6 @@ are equal return nil."
|
||||||
'org-last-args)))
|
'org-last-args)))
|
||||||
(nth 2 args)))
|
(nth 2 args)))
|
||||||
|
|
||||||
(require 'hydra)
|
|
||||||
|
|
||||||
(defhydra hydra-org-agenda-view (:hint none)
|
(defhydra hydra-org-agenda-view (:hint none)
|
||||||
"
|
"
|
||||||
_d_: ?d? day _g_: time grid=?g? _a_: arch-trees
|
_d_: ?d? day _g_: time grid=?g? _a_: arch-trees
|
||||||
|
@ -430,9 +263,6 @@ _y_: ?y? year _q_: quit _L__l__c_: ?l?
|
||||||
(org-agenda-redo)))
|
(org-agenda-redo)))
|
||||||
("q" (message "Abort") :exit t))
|
("q" (message "Abort") :exit t))
|
||||||
|
|
||||||
(with-eval-after-load 'org-agenda
|
|
||||||
(bind-key "v" #'hydra-org-agenda-view/body org-agenda-mode-map))
|
|
||||||
|
|
||||||
|
|
||||||
;;; Capturing
|
;;; Capturing
|
||||||
|
|
||||||
|
@ -679,8 +509,6 @@ In ~%s~:
|
||||||
(add-to-list 'ispell-skip-region-alist '("=" "="))
|
(add-to-list 'ispell-skip-region-alist '("=" "="))
|
||||||
(add-to-list 'ispell-skip-region-alist '("^#\\+BEGIN_SRC" . "^#\\+END_SRC")))
|
(add-to-list 'ispell-skip-region-alist '("^#\\+BEGIN_SRC" . "^#\\+END_SRC")))
|
||||||
|
|
||||||
(add-hook 'org-mode-hook #'endless/org-ispell)
|
|
||||||
|
|
||||||
|
|
||||||
;;; Hydra
|
;;; Hydra
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user