;;; $DOOMDIR/config.el -*- lexical-binding: t; -*- ;; Place your private configuration here! Remember, you do not need to run 'doom ;; sync' after modifying this file! ;; Some functionality uses this to identify you, e.g. GPG configuration, email ;; clients, file templates and snippets. It is optional. (setq user-full-name "Phil Bajsicki" user-mail-address "phil@bajsicki.com") ;; Doom exposes five (optional) variables for controlling fonts in Doom: ;; ;; - `doom-font' -- the primary font to use ;; - `doom-variable-pitch-font' -- a non-monospace font (where applicable) ;; - `doom-big-font' -- used for `doom-big-font-mode'; use this for ;; presentations or streaming. ;; - `doom-unicode-font' -- for unicode glyphs ;; - `doom-serif-font' -- for the `fixed-pitch-serif' face ;; ;; See 'C-h v doom-font' for documentation and more examples of what they ;; accept. For example: ;; ;;(setq doom-font (font-spec :family "Fira Code" :size 12 :weight 'semi-light) ;; doom-variable-pitch-font (font-spec :family "Fira Sans" :size 13)) ;; ;; If you or Emacs can't find your font, use 'M-x describe-font' to look them ;; up, `M-x eval-region' to execute elisp code, and 'M-x doom/reload-font' to ;; refresh your font settings. If Emacs still can't find your font, it likely ;; wasn't installed correctly. Font issues are rarely Doom issues! ;; There are two ways to load a theme. Both assume the theme is installed and ;; available. You can either set `doom-theme' or manually load a theme with the ;; `load-theme' function. This is the default: (setq doom-theme 'doom-one) ;; This determines the style of line numbers in effect. If set to `nil', line ;; numbers are disabled. For relative line numbers, set this to `relative'. (setq display-line-numbers-type 'relative) (setq next-screen-context-lines 4) ;; If you use `org' and don't want your org files in the default location below, ;; change `org-directory'. It must be set before org loads! (add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode)) (global-set-key "\C-cl" 'org-store-link) (global-set-key "\C-ca" 'org-agenda) (global-set-key "\C-cne" 'elgantt-open) (global-set-key "\C-ch" 'counsel-org-link) (define-prefix-command 'org-roam-map) (global-set-key "\C-r" 'org-roam-map) (define-key org-roam-map "o" 'org-roam-buffer-toggle) (define-key org-roam-map "f" 'org-roam-node-find) (define-key org-roam-map "i" 'org-roam-node-insert) (define-key org-roam-map "n" 'org-roam-capture) (define-prefix-command 'org-agenda-map) (global-set-key "\C-a" 'org-agenda-map) (define-key org-agenda-map "n" 'org-agenda-capture) (define-key org-agenda-map "a" 'org-agenda) (setq org-directory "~/enc/org/") ;; (setq org-tag-alist '2(("TBD"))) (setq org-agenda-start-day nil ;; start today org-agenda-span '14 ;; and show only two weeks org-agenda-dim-blocked-tasks 'invisible ;; Don't show me any blocked todos. Next actions only - doesn't work for tags searches ;; org-agenda-todo-ignore-scheduled 'future ;; org-agenda-todo-ignore-deadlines 'near org-agenda-sorting-strategy '((agenda habit-down time-up priority-down category-keep) (todo priority-down category-keep) (search category-keep)) org-deadline-warning-days 3 org-agenda-include-diary "~/enc/org/phil-diary.org" org-agenda-insert-diary-extract-time t org-log-into-drawer t org-clock-into-drawer t) (setq org-agenda-files '("~/enc/org/")) ;; from /home/phil/.emacs.d/modules/lang/org/config.el, edited (setq org-todo-keywords '((sequence "INBOX(i)" "TASK(t)" ; A task that needs doing & is ready to do "PROJ(p)" ; A project, which usually contains other tasks "LOOP(r)" ; A recurring task "WAIT(w)" ; Something external is holding up this task "HOLD(h)" ; This task is paused/on hold because of me "|" "DONE(d)" ; Task successfully completed "KILL(k)") ; Task was cancelled, aborted or is no longer applicable (sequence "DECIDE()" ; for making decisions "|" "OKAY(o)" ; okay as-is "YES(y)" ; take action "NO(n)")) ; don't take action org-todo-keyword-faces '(("[-]" . +org-todo-active) ("STRT" . +org-todo-active) ("[?]" . +org-todo-onhold) ("WAIT" . +org-todo-onhold) ("HOLD" . +org-todo-onhold) ("PROJ" . +org-todo-project) ("NO" . +org-todo-cancel) ("KILL" . +org-todo-cancel))) (setq hl-todo-keyword-faces '(("HOLD" . "#d0bf8f") ("TODO" . "#cc9393") ("NEXT" . "#dca3a3") ("THEM" . "#dc8cc3") ("PROG" . "#7cb8bb") ("OKAY" . "#7cb8bb") ("DONT" . "#5f7f5f") ("FAIL" . "#8c5353") ("DONE" . "#afd8af") ("NOTE" . "#d0bf8f") ("KLUDGE" . "#d0bf8f") ("HACK" . "#d0bf8f") ("TEMP" . "#d0bf8f") ("FIXME" . "#cc9393") ("XXXX*" . "#cc9393"))) (add-to-list 'load-path "~/.emacs.d/.local/straight/repos/elgantt/") (setq elgantt-header-type 'outline elgantt-draw-overarching-headers t elgantt-insert-header-even-if-no-timestamp nil elgantt-scroll-to-current-month-at-startup t) ;; elgantt-even-numbered-line-change 0.1 ;; elgantt-timestamps-to-display '(deadline timestamp scheduled timestamp-range) ;; elgantt-exclusions '(":noexport:" ":ARCHIVE:") (setq elgantt-user-set-color-priority-counter 0) (setq elgantt-custom-header-line '((:left ((:prop date-at-point ;; you could also use, for example, 'elgantt-get-date-at-point ;; or (lambda () (elgantt-get-date-at-point)) :padding 25) (:prop todo :padding 30))) (:center ((:prop headline))) (:right ((:prop hashtag :padding 40 :text-props (face (:background "red"))))))) (setq org-superstar-special-todo-items t) (setq org-capture-templates '(("t" "inbox" entry (file+headline "~/enc/org/inbox.org" "Inbox") "* TODO %i%?") ("c" "work curve10" entry (file+headline "~/enc/org/inbox.org" "Curve10 Inbox") "* TODO %i%?") ("e" "work the-engine-room" entry (file+headline "~/enc/org/inbox.org" "The Engine Room Inbox") "* TODO %i%?") ("b" "biz inbox" entry (file+headline "~/enc/org/inbox.org" "Business Inbox") "* TODO %i%?") ("i" "idea" entry (file+headline "~/enc/org/inbox.org" "Ideas") "* %?") ("d" "reminder" entry (file+headline "~/enc/org/inbox.org" "Reminders") "* %i%? \n %U") ("p" "person" entry (file+headline "~/enc/org/people.org" "People") "* %(org-contacts-template-name) :PROPERTIES: :EMAIL: %(org-contacts-template-email) :PHONE: %(org-contacts-template-phone) :ALIAS: :NICKNAME: :IGNORE: :ICON: :NOTE: :ADDRESS: :BIRTHDAY: :END:"))) (org-wild-notifier-mode) (setq org-wild-notifier-alert-time '(10)) (setq org-wild-notifier-notification-title "Emacs org-mode agenda") (setq org-wild-notifier-keyword-whitelist nil) (setq org-refile-targets '(("~/enc/org/" :maxlevel . 2))) (setq find-file-visit-truename t) (setq org-roam-v2-ack t) (setq org-roam-completion-everywhere t) (setq org-roam-directory (file-truename "~/enc/org/roam")) (org-roam-db-autosync-mode) (setq org-roam-capture-templates '(("r" "default" plain "%?" :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n") :unnarrowed t))) (org-roam-setup) (setq org-contacts-files (file-expand-wildcards "~/enc/org/*.org")) (setq org-fontify-todo-headline t) (setq org-footnote-section nil) (setq org-table-duration-hour-zero-padding nil) (setq-default org-enforce-todo-dependencies t) (after! persp-mode (setq persp-emacsclient-init-frame-behaviour-override "main")) (setq doom-modeline-persp-name t) (setq global-auto-revert-mode t) (setq auth-sources '("~/.authinfo")) (add-hook 'org-mode-hook (lambda () (add-hook 'after-save-hook 'org-babel-tangle :append :local))) (add-hook 'before-save-hook 'time-stamp) (after! counsel (setq counsel-outline-display-style 'title)) (after! org-id ;; Do not create ID if a CUSTOM_ID exists (setq org-id-link-to-org-use-id 'create-if-interactive-and-no-custom-id)) (defun zz/make-id-for-title (title) "Return an ID based on TITLE." (let* ((new-id (replace-regexp-in-string "[^[:alnum:]]" "-" (downcase title)))) new-id)) (defun zz/org-custom-id-create () "Create and store CUSTOM_ID for current heading." (let* ((title (or (nth 4 (org-heading-components)) "")) (new-id (zz/make-id-for-title title))) (org-entry-put nil "CUSTOM_ID" new-id) (org-id-add-location new-id (buffer-file-name (buffer-base-buffer))) new-id)) (defun zz/org-custom-id-get-create (&optional where force) "Get or create CUSTOM_ID for heading at WHERE. If FORCE is t, always recreate the property." (org-with-point-at where (let ((old-id (org-entry-get nil "CUSTOM_ID"))) ;; If CUSTOM_ID exists and FORCE is false, return it (if (and (not force) old-id (stringp old-id)) old-id ;; otherwise, create it (zz/org-custom-id-create))))) ;; Now override counsel-org-link-action (after! counsel (defun counsel-org-link-action (x) "Insert a link to X. X is expected to be a cons of the form (title . point), as passed by `counsel-org-link'. If X does not have a CUSTOM_ID, create it based on the headline title." (let* ((id (zz/org-custom-id-get-create (cdr x)))) (org-insert-link nil (concat "#" id) (car x))))) ;; Whenever You Reconfigure A package, make sure to wrap your config in an ;; `after!' block, otherwise Doom's defaults may override your settings. E.g. ;; ;; (after! PACKAGE ;; (setq x y)) ;; ;; The exceptions to this rule: ;; ;; - Setting file/directory variables (like `org-directory') ;; - Setting variables which explicitly tell you to set them before their ;; package is loaded (see 'C-h v VARIABLE' to look up their documentation). ;; - Setting doom variables (which start with 'doom-' or '+'). ;; ;; Here are some additional functions/macros that will help you configure Doom. ;; ;; - `load!' for loading external *.el files relative to this one ;; - `use-package!' for configuring packages ;; - `after!' for running code after a package has loaded ;; - `add-load-path!' for adding directories to the `load-path', relative to ;; this file. Emacs searches the `load-path' when you load packages with ;; `require' or `use-package'. ;; - `map!' for binding new keys ;; ;; To getinformation about an y of these functions/macros, move the cursor over ;; the highlighted symbol at press 'K' (non-evil users must press 'C-c c k'). ;; This will open documentation for it, including demos of how they are used. ;; Alternatively, use `C-h o' to look up a symbol (functions, variables, faces, ;; etc). ;; ;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how ;; they are implemented.