Copy over git and org settings from Prot
These need significant changes to match my workflows, but without the base settings in place doing any work is really difficult. So copying over the basics, I will re-arrange and update everything in later commits.
This commit is contained in:
Vedang Manerikar
parent
6c4d9faf24
commit
afdbce556f
4 changed files with 1818 additions and 9 deletions
4
init.el
4
init.el
|
|
@ -91,6 +91,6 @@ making an abbreviation to a function."
|
|||
;; (require 'unravel-search)
|
||||
;; (require 'unravel-dired)
|
||||
;; (require 'unravel-window)
|
||||
;; (require 'unravel-git)
|
||||
;; (require 'unravel-org)
|
||||
(require 'unravel-git)
|
||||
(require 'unravel-org)
|
||||
(require 'unravel-langs)
|
||||
|
|
|
|||
1257
unravel-emacs.org
1257
unravel-emacs.org
File diff suppressed because it is too large
Load diff
78
unravel-modules/unravel-git.el
Normal file
78
unravel-modules/unravel-git.el
Normal file
|
|
@ -0,0 +1,78 @@
|
|||
;;;; `ediff'
|
||||
(use-package ediff
|
||||
:ensure nil
|
||||
:commands (ediff-buffers ediff-files ediff-buffers3 ediff-files3)
|
||||
:init
|
||||
(setq ediff-split-window-function 'split-window-horizontally)
|
||||
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
|
||||
:config
|
||||
(setq ediff-keep-variants nil)
|
||||
(setq ediff-make-buffers-readonly-at-startup nil)
|
||||
(setq ediff-merge-revisions-with-ancestor t)
|
||||
(setq ediff-show-clashes-only t))
|
||||
|
||||
;;;; `project'
|
||||
(use-package project
|
||||
:ensure nil
|
||||
:bind
|
||||
(("C-x p ." . project-dired)
|
||||
("C-x p C-g" . keyboard-quit)
|
||||
("C-x p <return>" . project-dired)
|
||||
("C-x p <delete>" . project-forget-project))
|
||||
:config
|
||||
(setopt project-switch-commands
|
||||
'((project-find-file "Find file")
|
||||
(project-find-regexp "Find regexp")
|
||||
(project-find-dir "Find directory")
|
||||
(project-dired "Root dired")
|
||||
(project-vc-dir "VC-Dir")
|
||||
(project-shell "Shell")
|
||||
(keyboard-quit "Quit")))
|
||||
(setq project-vc-extra-root-markers '(".project")) ; Emacs 29
|
||||
(setq project-key-prompt-style t) ; Emacs 30
|
||||
|
||||
(advice-add #'project-switch-project :after #'prot-common-clear-minibuffer-message))
|
||||
|
||||
;;;; `diff-mode'
|
||||
(use-package diff-mode
|
||||
:ensure nil
|
||||
:defer t
|
||||
:config
|
||||
(setq diff-default-read-only t)
|
||||
(setq diff-advance-after-apply-hunk t)
|
||||
(setq diff-update-on-the-fly t)
|
||||
;; The following are from Emacs 27.1
|
||||
(setq diff-refine nil) ; I do it on demand, with my `agitate' package (more below)
|
||||
(setq diff-font-lock-prettify t) ; I think nil is better for patches, but let me try this for a while
|
||||
(setq diff-font-lock-syntax 'hunk-also))
|
||||
|
||||
;;; Interactive and powerful git front-end (Magit)
|
||||
(use-package transient
|
||||
:defer t
|
||||
:config
|
||||
(setq transient-show-popup 0.5))
|
||||
|
||||
(use-package magit
|
||||
:ensure t
|
||||
:bind ("C-c g" . magit-status)
|
||||
:init
|
||||
(setq magit-define-global-key-bindings nil)
|
||||
;; (setq magit-section-visibility-indicator '("⮧"))
|
||||
:config
|
||||
(setq git-commit-summary-max-length 50)
|
||||
;; NOTE 2023-01-24: I used to also include `overlong-summary-line'
|
||||
;; in this list, but I realised I do not need it. My summaries are
|
||||
;; always in check. When I exceed the limit, it is for a good
|
||||
;; reason.
|
||||
;; (setq git-commit-style-convention-checks '(non-empty-second-line))
|
||||
|
||||
(setq magit-diff-refine-hunk t))
|
||||
|
||||
(use-package magit-repos
|
||||
:ensure nil ; part of `magit'
|
||||
:commands (magit-list-repositories)
|
||||
:init
|
||||
(setq magit-repository-directories
|
||||
'(("~/src/prototypes" . 1))))
|
||||
|
||||
(provide 'unravel-git)
|
||||
488
unravel-modules/unravel-org.el
Normal file
488
unravel-modules/unravel-org.el
Normal file
|
|
@ -0,0 +1,488 @@
|
|||
;;; Calendar
|
||||
(use-package calendar
|
||||
:ensure nil
|
||||
:commands (calendar)
|
||||
:config
|
||||
(setq calendar-mark-diary-entries-flag nil)
|
||||
(setq calendar-mark-holidays-flag t)
|
||||
(setq calendar-mode-line-format nil)
|
||||
(setq calendar-time-display-form
|
||||
'( 24-hours ":" minutes
|
||||
(when time-zone (format "(%s)" time-zone))))
|
||||
(setq calendar-week-start-day 1) ; Monday
|
||||
(setq calendar-date-style 'iso)
|
||||
(setq calendar-time-zone-style 'numeric) ; Emacs 28.1
|
||||
|
||||
(require 'solar)
|
||||
(setq calendar-latitude 35.17 ; Not my actual coordinates
|
||||
calendar-longitude 33.36)
|
||||
|
||||
(require 'cal-dst)
|
||||
(setq calendar-standard-time-zone-name "+0200")
|
||||
(setq calendar-daylight-time-zone-name "+0300"))
|
||||
|
||||
;;; Appt (appointment reminders which also integrate with Org agenda)
|
||||
(use-package appt
|
||||
:ensure nil
|
||||
:commands (appt-activate)
|
||||
:config
|
||||
(setq appt-display-diary nil
|
||||
appt-display-format nil
|
||||
appt-display-mode-line t
|
||||
appt-display-interval 3
|
||||
appt-audible nil ; TODO 2023-01-25: t does nothing because I disable `ring-bell-function'?
|
||||
appt-warning-time-regexp "appt \\([0-9]+\\)" ; This is for the diary
|
||||
appt-message-warning-time 6)
|
||||
|
||||
(with-eval-after-load 'org-agenda
|
||||
(appt-activate 1)
|
||||
|
||||
;; NOTE 2021-12-07: In my `prot-org.el' (see further below), I add
|
||||
;; `org-agenda-to-appt' to various relevant hooks.
|
||||
;;
|
||||
;; Create reminders for tasks with a due date when this file is read.
|
||||
(org-agenda-to-appt)))
|
||||
|
||||
;;; Org-mode (personal information manager)
|
||||
(use-package org
|
||||
:ensure nil
|
||||
:init
|
||||
(setq org-directory (expand-file-name "~/Documents/org/"))
|
||||
(setq org-imenu-depth 7)
|
||||
|
||||
(add-to-list 'safe-local-variable-values '(org-hide-leading-stars . t))
|
||||
(add-to-list 'safe-local-variable-values '(org-hide-macro-markers . t))
|
||||
:bind
|
||||
( :map global-map
|
||||
("C-c l" . org-store-link)
|
||||
("C-c o" . org-open-at-point-global)
|
||||
:map org-mode-map
|
||||
;; I don't like that Org binds one zillion keys, so if I want one
|
||||
;; for something more important, I disable it from here.
|
||||
("C-'" . nil)
|
||||
("C-," . nil)
|
||||
("M-;" . nil)
|
||||
("C-c M-l" . org-insert-last-stored-link)
|
||||
("C-c C-M-l" . org-toggle-link-display)
|
||||
("M-." . org-edit-special) ; alias for C-c ' (mnenomic is global M-. that goes to source)
|
||||
:map org-src-mode-map
|
||||
("M-," . org-edit-src-exit) ; see M-. above
|
||||
:map narrow-map
|
||||
("b" . org-narrow-to-block)
|
||||
("e" . org-narrow-to-element)
|
||||
("s" . org-narrow-to-subtree)
|
||||
:map ctl-x-x-map
|
||||
("i" . prot-org-id-headlines)
|
||||
("h" . prot-org-ox-html))
|
||||
:config
|
||||
;; My custom extras, which I use for the agenda and a few other Org features.
|
||||
(require 'prot-org)
|
||||
|
||||
;;;; general settings
|
||||
(setq org-ellipsis "⮧")
|
||||
(setq org-adapt-indentation nil) ; No, non, nein, όχι!
|
||||
(setq org-special-ctrl-a/e nil)
|
||||
(setq org-special-ctrl-k nil)
|
||||
(setq org-M-RET-may-split-line '((default . nil)))
|
||||
(setq org-hide-emphasis-markers nil)
|
||||
(setq org-hide-macro-markers nil)
|
||||
(setq org-hide-leading-stars nil)
|
||||
(setq org-cycle-separator-lines 0)
|
||||
(setq org-structure-template-alist
|
||||
'(("s" . "src")
|
||||
("e" . "src emacs-lisp")
|
||||
("E" . "src emacs-lisp :results value code :lexical t")
|
||||
("t" . "src emacs-lisp :tangle FILENAME")
|
||||
("T" . "src emacs-lisp :tangle FILENAME :mkdirp yes")
|
||||
("x" . "example")
|
||||
("X" . "export")
|
||||
("q" . "quote")))
|
||||
(setq org-fold-catch-invisible-edits 'show)
|
||||
(setq org-return-follows-link nil)
|
||||
(setq org-loop-over-headlines-in-active-region 'start-level)
|
||||
(setq org-modules '(ol-info ol-eww))
|
||||
(setq org-use-sub-superscripts '{})
|
||||
(setq org-insert-heading-respect-content t)
|
||||
(setq org-read-date-prefer-future 'time)
|
||||
(setq org-highlight-latex-and-related nil) ; other options affect elisp regexp in src blocks
|
||||
(setq org-fontify-quote-and-verse-blocks t)
|
||||
(setq org-fontify-whole-block-delimiter-line t)
|
||||
(setq org-track-ordered-property-with-tag t)
|
||||
(setq org-highest-priority ?A)
|
||||
(setq org-lowest-priority ?C)
|
||||
(setq org-default-priority ?A)
|
||||
(setq org-priority-faces nil))
|
||||
|
||||
;;;; refile, todo
|
||||
(use-package org
|
||||
:ensure nil
|
||||
:config
|
||||
(setq org-refile-targets
|
||||
'((org-agenda-files . (:maxlevel . 2))
|
||||
(nil . (:maxlevel . 2))))
|
||||
(setq org-refile-use-outline-path t)
|
||||
(setq org-refile-allow-creating-parent-nodes 'confirm)
|
||||
(setq org-refile-use-cache t)
|
||||
(setq org-reverse-note-order nil)
|
||||
;; ;; NOTE 2023-04-07: Leaving this here for demo purposes.
|
||||
;; (setq org-todo-keywords
|
||||
;; '((sequence "TODO(t)" "MAYBE(m)" "WAIT(w@/!)" "|" "CANCEL(c@)" "DONE(d!)")
|
||||
;; (sequence "COACH(k)" "|" "COACHED(K!)")))
|
||||
(setq org-todo-keywords
|
||||
'((sequence "TODO(t)" "|" "CANCEL(c@)" "DONE(d!)")
|
||||
(sequence "COACH(k)" "|" "COACHED(K!)")))
|
||||
|
||||
(defface prot/org-bold-done
|
||||
'((t :inherit (bold org-done)))
|
||||
"Face for bold DONE-type Org keywords.")
|
||||
|
||||
(setq org-todo-keyword-faces
|
||||
'(("CANCEL" . prot/org-bold-done)))
|
||||
(setq org-use-fast-todo-selection 'expert)
|
||||
|
||||
(setq org-fontify-done-headline nil)
|
||||
(setq org-fontify-todo-headline nil)
|
||||
(setq org-fontify-whole-heading-line nil)
|
||||
(setq org-enforce-todo-dependencies t)
|
||||
(setq org-enforce-todo-checkbox-dependencies t))
|
||||
|
||||
;;;; tags
|
||||
(use-package org
|
||||
:ensure nil
|
||||
:config
|
||||
(setq org-tag-alist nil)
|
||||
(setq org-auto-align-tags nil)
|
||||
(setq org-tags-column 0))
|
||||
|
||||
;;;; log
|
||||
(use-package org
|
||||
:ensure nil
|
||||
:config
|
||||
(setq org-log-done 'time)
|
||||
(setq org-log-into-drawer t)
|
||||
(setq org-log-note-clock-out nil)
|
||||
(setq org-log-redeadline 'time)
|
||||
(setq org-log-reschedule 'time))
|
||||
|
||||
;;;; links
|
||||
(use-package org
|
||||
:ensure nil
|
||||
:config
|
||||
(require 'prot-org) ; for the above commands
|
||||
|
||||
(setq org-link-context-for-files t)
|
||||
(setq org-link-keep-stored-after-insertion nil)
|
||||
(setq org-id-link-to-org-use-id 'create-if-interactive-and-no-custom-id))
|
||||
|
||||
;;;; code blocks
|
||||
(use-package org
|
||||
:ensure nil
|
||||
:config
|
||||
(setq org-confirm-babel-evaluate nil)
|
||||
(setq org-src-window-setup 'current-window)
|
||||
(setq org-edit-src-persistent-message nil)
|
||||
(setq org-src-fontify-natively t)
|
||||
(setq org-src-preserve-indentation t)
|
||||
(setq org-src-tab-acts-natively t)
|
||||
(setq org-edit-src-content-indentation 0))
|
||||
|
||||
;;;; export
|
||||
(use-package org
|
||||
:ensure nil
|
||||
:init
|
||||
;; NOTE 2023-05-20: Must be evaluated before Org is loaded,
|
||||
;; otherwise we have to use the Custom UI. No thanks!
|
||||
(setq org-export-backends '(html texinfo md))
|
||||
:config
|
||||
(setq org-export-with-toc t)
|
||||
(setq org-export-headline-levels 8)
|
||||
(setq org-export-dispatch-use-expert-ui nil)
|
||||
(setq org-html-htmlize-output-type nil)
|
||||
(setq org-html-head-include-default-style nil)
|
||||
(setq org-html-head-include-scripts nil))
|
||||
|
||||
;;;; capture
|
||||
(use-package org-capture
|
||||
:ensure nil
|
||||
:bind ("C-c c" . org-capture)
|
||||
:config
|
||||
(require 'prot-org)
|
||||
|
||||
(setq org-capture-templates
|
||||
`(("u" "Unprocessed" entry
|
||||
(file+headline "tasks.org" "Unprocessed")
|
||||
,(concat "* %^{Title}\n"
|
||||
":PROPERTIES:\n"
|
||||
":CAPTURED: %U\n"
|
||||
":END:\n\n"
|
||||
"%a\n%i%?")
|
||||
:empty-lines-after 1)
|
||||
;; ("e" "Email note (unprocessed)" entry ; Also see `org-capture-templates-contexts'
|
||||
;; (file+headline "tasks.org" "Unprocessed")
|
||||
;; ,(concat "* TODO %:subject :mail:\n"
|
||||
;; ":PROPERTIES:\n"
|
||||
;; ":CAPTURED: %U\n"
|
||||
;; ":END:\n\n"
|
||||
;; "%a\n%i%?")
|
||||
;; :empty-lines-after 1)
|
||||
("w" "Add to the wishlist (may do some day)" entry
|
||||
(file+headline "tasks.org" "Wishlist")
|
||||
,(concat "* %^{Title}\n"
|
||||
":PROPERTIES:\n"
|
||||
":CAPTURED: %U\n"
|
||||
":END:\n\n"
|
||||
"%a%?")
|
||||
:empty-lines-after 1)
|
||||
("c" "Clock in and do immediately" entry
|
||||
(file+headline "tasks.org" "Clocked tasks")
|
||||
,(concat "* TODO %^{Title}\n"
|
||||
":PROPERTIES:\n"
|
||||
":EFFORT: %^{Effort estimate in minutes|5|10|15|30|45|60|90|120}\n"
|
||||
":END:\n\n"
|
||||
"%a\n")
|
||||
:prepend t
|
||||
:clock-in t
|
||||
:clock-keep t
|
||||
:immediate-finish t
|
||||
:empty-lines-after 1)
|
||||
("t" "Time-sensitive task" entry
|
||||
(file+headline "tasks.org" "Tasks with a date")
|
||||
,(concat "* TODO %^{Title} %^g\n"
|
||||
"%^{How time sensitive it is||SCHEDULED|DEADLINE}: %^t\n"
|
||||
":PROPERTIES:\n"
|
||||
":CAPTURED: %U\n"
|
||||
":END:\n\n"
|
||||
"%a%?")
|
||||
:empty-lines-after 1)
|
||||
("p" "Private lesson or service" entry
|
||||
(file "coach.org")
|
||||
#'prot-org-capture-coach
|
||||
:prepend t
|
||||
:empty-lines 1)
|
||||
("P" "Private service clocked" entry
|
||||
(file+headline "coach.org" "Clocked services")
|
||||
#'prot-org-capture-coach-clock
|
||||
:prepend t
|
||||
:clock-in t
|
||||
:clock-keep t
|
||||
:immediate-finish t
|
||||
:empty-lines 1)))
|
||||
|
||||
;; NOTE 2024-11-10: I realised that I was not using this enough, so
|
||||
;; I decided to simplify my setup. Keeping it here, in case I need
|
||||
;; it again.
|
||||
|
||||
;; (setq org-capture-templates-contexts
|
||||
;; '(("e" ((in-mode . "notmuch-search-mode")
|
||||
;; (in-mode . "notmuch-show-mode")
|
||||
;; (in-mode . "notmuch-tree-mode")))))
|
||||
)
|
||||
|
||||
;;;; agenda
|
||||
(use-package org-agenda
|
||||
:ensure nil
|
||||
:bind
|
||||
;; I bind `org-agenda' to C-c A, so this one puts me straight into my
|
||||
;; custom block agenda.
|
||||
( :map global-map
|
||||
("C-c A" . org-agenda)
|
||||
("C-c a" . (lambda ()
|
||||
"Call Org agenda with `prot-org-custom-daily-agenda' configuration."
|
||||
(interactive)
|
||||
(org-agenda nil "A"))))
|
||||
:config
|
||||
;;;;; Custom agenda blocks
|
||||
|
||||
(setq org-agenda-format-date #'prot-org-agenda-format-date-aligned)
|
||||
|
||||
;; Check the variable `prot-org-custom-daily-agenda' in prot-org.el
|
||||
(setq org-agenda-custom-commands
|
||||
`(("A" "Daily agenda and top priority tasks"
|
||||
,prot-org-custom-daily-agenda
|
||||
((org-agenda-fontify-priorities nil)
|
||||
(org-agenda-prefix-format " %t %s")
|
||||
(org-agenda-dim-blocked-tasks nil)))
|
||||
("P" "Plain text daily agenda and top priorities"
|
||||
,prot-org-custom-daily-agenda
|
||||
((org-agenda-with-colors nil)
|
||||
(org-agenda-prefix-format "%t %s")
|
||||
(org-agenda-current-time-string ,(car (last org-agenda-time-grid)))
|
||||
(org-agenda-fontify-priorities nil)
|
||||
(org-agenda-remove-tags t))
|
||||
("agenda.txt"))))
|
||||
|
||||
;;;;; Basic agenda setup
|
||||
(setq org-default-notes-file (make-temp-file "emacs-org-notes-")) ; send it to oblivion
|
||||
(setq org-agenda-files `(,org-directory))
|
||||
(setq org-agenda-span 'week)
|
||||
(setq org-agenda-start-on-weekday 1) ; Monday
|
||||
(setq org-agenda-confirm-kill t)
|
||||
(setq org-agenda-show-all-dates t)
|
||||
(setq org-agenda-show-outline-path nil)
|
||||
(setq org-agenda-window-setup 'current-window)
|
||||
(setq org-agenda-skip-comment-trees t)
|
||||
(setq org-agenda-menu-show-matcher t)
|
||||
(setq org-agenda-menu-two-columns nil)
|
||||
(setq org-agenda-sticky nil)
|
||||
(setq org-agenda-custom-commands-contexts nil)
|
||||
(setq org-agenda-max-entries nil)
|
||||
(setq org-agenda-max-todos nil)
|
||||
(setq org-agenda-max-tags nil)
|
||||
(setq org-agenda-max-effort nil)
|
||||
|
||||
;;;;; General agenda view options
|
||||
;; NOTE 2021-12-07: Check further below my `org-agenda-custom-commands'
|
||||
(setq org-agenda-prefix-format
|
||||
'((agenda . " %i %-12:c%?-12t% s")
|
||||
(todo . " %i %-12:c")
|
||||
(tags . " %i %-12:c")
|
||||
(search . " %i %-12:c")))
|
||||
(setq org-agenda-sorting-strategy
|
||||
'(((agenda habit-down time-up priority-down category-keep)
|
||||
(todo priority-down category-keep)
|
||||
(tags priority-down category-keep)
|
||||
(search category-keep))))
|
||||
(setq org-agenda-breadcrumbs-separator "->")
|
||||
(setq org-agenda-todo-keyword-format "%-1s")
|
||||
(setq org-agenda-fontify-priorities 'cookies)
|
||||
(setq org-agenda-category-icon-alist nil)
|
||||
(setq org-agenda-remove-times-when-in-prefix nil)
|
||||
(setq org-agenda-remove-timeranges-from-blocks nil)
|
||||
(setq org-agenda-compact-blocks nil)
|
||||
(setq org-agenda-block-separator ?—)
|
||||
|
||||
;;;;; Agenda marks
|
||||
(setq org-agenda-bulk-mark-char "#")
|
||||
(setq org-agenda-persistent-marks nil)
|
||||
|
||||
;;;;; Agenda diary entries
|
||||
(setq org-agenda-insert-diary-strategy 'date-tree)
|
||||
(setq org-agenda-insert-diary-extract-time nil)
|
||||
(setq org-agenda-include-diary nil)
|
||||
;; I do not want the diary, but there is no way to disable it
|
||||
;; altogether. This creates a diary file in the /tmp directory.
|
||||
(setq diary-file (make-temp-file "emacs-diary-"))
|
||||
(setq org-agenda-diary-file 'diary-file) ; TODO 2023-05-20: review Org diary substitute
|
||||
|
||||
;;;;; Agenda follow mode
|
||||
(setq org-agenda-start-with-follow-mode nil)
|
||||
(setq org-agenda-follow-indirect t)
|
||||
|
||||
;;;;; Agenda multi-item tasks
|
||||
(setq org-agenda-dim-blocked-tasks t)
|
||||
(setq org-agenda-todo-list-sublevels t)
|
||||
|
||||
;;;;; Agenda filters and restricted views
|
||||
(setq org-agenda-persistent-filter nil)
|
||||
(setq org-agenda-restriction-lock-highlight-subtree t)
|
||||
|
||||
;;;;; Agenda items with deadline and scheduled timestamps
|
||||
(setq org-agenda-include-deadlines t)
|
||||
(setq org-deadline-warning-days 0)
|
||||
(setq org-agenda-skip-scheduled-if-done nil)
|
||||
(setq org-agenda-skip-scheduled-if-deadline-is-shown t)
|
||||
(setq org-agenda-skip-timestamp-if-deadline-is-shown t)
|
||||
(setq org-agenda-skip-deadline-if-done nil)
|
||||
(setq org-agenda-skip-deadline-prewarning-if-scheduled 1)
|
||||
(setq org-agenda-skip-scheduled-delay-if-deadline nil)
|
||||
(setq org-agenda-skip-additional-timestamps-same-entry nil)
|
||||
(setq org-agenda-skip-timestamp-if-done nil)
|
||||
(setq org-agenda-search-headline-for-time nil)
|
||||
(setq org-scheduled-past-days 365)
|
||||
(setq org-deadline-past-days 365)
|
||||
(setq org-agenda-move-date-from-past-immediately-to-today t)
|
||||
(setq org-agenda-show-future-repeats t)
|
||||
(setq org-agenda-prefer-last-repeat nil)
|
||||
(setq org-agenda-timerange-leaders
|
||||
'("" "(%d/%d): "))
|
||||
(setq org-agenda-scheduled-leaders
|
||||
'("Scheduled: " "Sched.%2dx: "))
|
||||
(setq org-agenda-inactive-leader "[")
|
||||
(setq org-agenda-deadline-leaders
|
||||
'("Deadline: " "In %3d d.: " "%2d d. ago: "))
|
||||
;; Time grid
|
||||
(setq org-agenda-time-leading-zero t)
|
||||
(setq org-agenda-timegrid-use-ampm nil)
|
||||
(setq org-agenda-use-time-grid t)
|
||||
(setq org-agenda-show-current-time-in-grid t)
|
||||
(setq org-agenda-current-time-string (concat "Now " (make-string 70 ?.)))
|
||||
(setq org-agenda-time-grid
|
||||
'((daily today require-timed)
|
||||
( 0500 0600 0700 0800 0900 1000
|
||||
1100 1200 1300 1400 1500 1600
|
||||
1700 1800 1900 2000 2100 2200)
|
||||
"" ""))
|
||||
(setq org-agenda-default-appointment-duration nil)
|
||||
|
||||
;;;;; Agenda global to-do list
|
||||
(setq org-agenda-todo-ignore-with-date t)
|
||||
(setq org-agenda-todo-ignore-timestamp t)
|
||||
(setq org-agenda-todo-ignore-scheduled t)
|
||||
(setq org-agenda-todo-ignore-deadlines t)
|
||||
(setq org-agenda-todo-ignore-time-comparison-use-seconds t)
|
||||
(setq org-agenda-tags-todo-honor-ignore-options nil)
|
||||
|
||||
;;;;; Agenda tagged items
|
||||
(setq org-agenda-show-inherited-tags t)
|
||||
(setq org-agenda-use-tag-inheritance
|
||||
'(todo search agenda))
|
||||
(setq org-agenda-hide-tags-regexp nil)
|
||||
(setq org-agenda-remove-tags nil)
|
||||
(setq org-agenda-tags-column -100)
|
||||
|
||||
;;;;; Agenda entry
|
||||
;; NOTE: I do not use this right now. Leaving everything to its
|
||||
;; default value.
|
||||
(setq org-agenda-start-with-entry-text-mode nil)
|
||||
(setq org-agenda-entry-text-maxlines 5)
|
||||
(setq org-agenda-entry-text-exclude-regexps nil)
|
||||
(setq org-agenda-entry-text-leaders " > ")
|
||||
|
||||
;;;;; Agenda logging and clocking
|
||||
;; NOTE: I do not use these yet, though I plan to. Leaving everything
|
||||
;; to its default value for the time being.
|
||||
(setq org-agenda-log-mode-items '(closed clock))
|
||||
(setq org-agenda-clock-consistency-checks
|
||||
'((:max-duration "10:00" :min-duration 0 :max-gap "0:05" :gap-ok-around
|
||||
("4:00")
|
||||
:default-face ; This should definitely be reviewed
|
||||
((:background "DarkRed")
|
||||
(:foreground "white"))
|
||||
:overlap-face nil :gap-face nil :no-end-time-face nil
|
||||
:long-face nil :short-face nil)))
|
||||
(setq org-agenda-log-mode-add-notes t)
|
||||
(setq org-agenda-start-with-log-mode nil)
|
||||
(setq org-agenda-start-with-clockreport-mode nil)
|
||||
(setq org-agenda-clockreport-parameter-plist '(:link t :maxlevel 2))
|
||||
(setq org-agenda-search-view-always-boolean nil)
|
||||
(setq org-agenda-search-view-force-full-words nil)
|
||||
(setq org-agenda-search-view-max-outline-level 0)
|
||||
(setq org-agenda-search-headline-for-time t)
|
||||
(setq org-agenda-use-time-grid t)
|
||||
(setq org-agenda-cmp-user-defined nil)
|
||||
(setq org-agenda-sort-notime-is-late t) ; Org 9.4
|
||||
(setq org-agenda-sort-noeffort-is-high t) ; Org 9.4
|
||||
|
||||
;;;;; Agenda column view
|
||||
;; NOTE I do not use these, but may need them in the future.
|
||||
(setq org-agenda-view-columns-initially nil)
|
||||
(setq org-agenda-columns-show-summaries t)
|
||||
(setq org-agenda-columns-compute-summary-properties t)
|
||||
(setq org-agenda-columns-add-appointments-to-effort-sum nil)
|
||||
(setq org-agenda-auto-exclude-function nil)
|
||||
(setq org-agenda-bulk-custom-functions nil)
|
||||
|
||||
;; ;;;;; Agenda habits
|
||||
;; (require 'org-habit)
|
||||
;; (setq org-habit-graph-column 50)
|
||||
;; (setq org-habit-preceding-days 9)
|
||||
;; ;; Always show the habit graph, even if there are no habits for
|
||||
;; ;; today.
|
||||
;; (setq org-habit-show-all-today t)
|
||||
)
|
||||
|
||||
(use-package prot-coach
|
||||
:ensure nil
|
||||
:commands (prot-coach-done-sessions-with-person))
|
||||
|
||||
(provide 'unravel-org)
|
||||
Loading…
Reference in a new issue