diff options
Diffstat (limited to '')
| -rw-r--r-- | doom.d/config.el | 304 |
1 files changed, 304 insertions, 0 deletions
diff --git a/doom.d/config.el b/doom.d/config.el new file mode 100644 index 0000000..e3e72c4 --- /dev/null +++ b/doom.d/config.el @@ -0,0 +1,304 @@ +;;; $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 "Matthew Lemon" + user-mail-address "matt@matthewlemon.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 +;; +(setq doom-font (font-spec :family "Iosevka Regular" :size 18) + doom-variable-pitch-font (font-spec :family "Iosevka Regular" :size 20)) +;; +;; 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-gruvbox) + +;; 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 t) + +;; 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! +;; +;; Basic agenda stuff + +(after! org + (setq org-directory "~/org/") + (setq org-clock-persist 'history) + (org-clock-persistence-insinuate) + (setq org-agenda-span 'day) + (setq org-directory "~/org") + (setq org-agenda-files (quote ("~/org/home.org" + "~/org/projects.org" + "~/org/journal.org" + "~/org/work.org" + "~/org/notes.org" + "~/org/habits.org" + "~/org/calendar/cal.org"))) + (setq org-default-notes-file (concat org-directory "/notes.org")) + (setq org-agenda-window-setup 'current-window) + (setq org-agenda-start-with-log-mode t) + (setq org-M-RET-may-split-line '(default . nil)) + (setq org-enforce-todo-dependencies t) + (setq org-log-done 'time) + (setq org-log-done-with-time 'note) + (setq diary-file "~/org/diary") + (setq org-agenda-include-diary t) + (setq org-agenda-diary-file "~/org/calendar/cal.org") + (setq org-agenda-show-future-repeats t) + (setq org-agenda-skip-deadline-if-done t) + (setq org-agenda-skip-scheduled-if-done t) + (setq org-reverse-note-order t) + (setq org-habit-graph-column 45) + (setq org-sort-agenda-notime-is-late nil) + (setq org-columns-default-format "%50ITEM(Task) %10CLOCKSUM %25TIMESTAMP_IA") + (setq org-archive-location "~/org/archive.org::* From %s") + (setq org-refile-targets (quote ((nil :maxlevel . 9) + (org-agenda-files :maxlevel . 9)))) + + ;; Basic org keybindings + (global-set-key "\C-cl" 'org-store-link) + (global-set-key "\C-ca" 'org-agenda) + (global-set-key "\C-cb" 'org-iswitchb) + (global-set-key "\C-cc" 'org-capture) + ;; + ;; Agenda dispatcher + (setq org-agenda-custom-commands + '(("w" . "Work") + ("wt" "Agenda + Work TODO" + ( + (agenda "") + (tags-todo "+@work-TODO=\"WAITING\"-SCHEDULED>=\"<today>\"" + ((org-agenda-overriding-header "Work TODO UNSCHEDULED"))) + (tags-todo "+@work+TODO=\"WAITING\"" + ((org-agenda-overriding-header "Work WAITING"))) + )) + ("wn" "Agenda + Work NEXT" + ( + (agenda) + (tags-todo "+@work+TODO=\"NEXT\"-SCHEDULED>=\"<today>\"" + ((org-agenda-overriding-header "Work NEXT UNSCHEDULED"))) + (tags-todo "+@work+TODO=\"WAITING\"" + ((org-agenda-overriding-header "Work WAITING"))) + )) + ("wp" "Work Project NEXT" + ( + (agenda) + (tags-todo "+@work+TODO=\"NEXT\"+CATEGORY=\"Project\"" + ((org-agenda-overriding-header "Work Project NEXT actions"))) + )) + ("h" . "Home") + ("hh" "Agenda + Home TODO" + ( + (agenda "") + (tags-todo "@home-SCHEDULED>=\"<today>\"-TODO=\"WAITING\"-TODO=\"DOING\"" + ((org-agenda-overriding-header "Home TODO UNSCHEDULED") + (org-agenda-sorting-strategy '(deadline-down scheduled-down priority-down)))) + (tags-todo "+@home+TODO=\"WAITING\"" + ((org-agenda-overriding-header "Home WAITING"))) + (tags-todo "+@home+TODO=\"DOING\"" ((org-agenda-overriding-header "Home in progress"))) + )) + ("hn" "Agenda + Home NEXT" + ( + (agenda "") + (tags-todo "+@home+TODO=\"NEXT\"-SCHEDULED>=\"<today>\"" + ((org-agenda-overriding-header "Home NEXT UNSCHEDULED") + (org-agenda-sorting-strategy '(deadline-down scheduled-down priority-down)))) + (tags-todo "+@home+TODO=\"DOING\"" + ((org-agenda-overriding-header "Home in progress"))) + )) + ("n" "Agenda + All NEXT" + ( + (agenda "") + (todo "NEXT"))) + ("t" "Agenda + All TODO" + ( + (agenda "") + (alltodo ""))) + ("W" "Agenda + All WAITING" + ( + (agenda "") + (todo "WAITING"))) + ("i" tags "idea") + )) + + ;; org capture templates + (setq org-capture-templates + (quote (("h" "Home Tasks & Notes") + ("ht" "Home TODO" entry (file+headline "~/org/home.org" "Single Actions") + "** TODO %?\nEntered on %U\n" + :prepend t) + ("hn" "Home NEXT" entry (file+headline "~/org/home.org" "Single Actions") + "** NEXT %?\nEntered on %U\n" + :prepend t) + ("hN" "Home Note" entry (file+headline "~/org/home.org" "Notes") + "** %?\nEntered on %U\n") + ("hj" "Journal" entry (file+datetree "~/org/journal.org") + "* %?\nEntered on %U\n") + ("hi" "Home Idea" entry (file+headline "~/org/notes.org" "Notes") + "** %? :idea:\nEntered on %U\n") + ("hc" "Home Calendar" entry (file+olp+datetree "~/org/calendar/cal.org" "Home Calendar") + "* %?\n:PROPERTIES:\n%^G\n:END:\n%^T") + ("w" "Work Tasks & Notes") + ("wt" "Work TODO" entry (file+headline "~/org/work.org" "Single Actions") + "** TODO %?\nEntered on %U\n" + :prepend t) + ("wn" "Work NEXT" entry (file+headline "~/org/work.org" "Single Actions") + "** NEXT %?\nEntered on %U\n" + :prepend t) + ("wN" "Note" entry (file+headline "~/org/work.org" "Notes") + "* %?\nEntered on %U\n") + ("wc" "Note from Clipboard" entry (file+headline "~/org/work.org" "Notes") + "* %?\n\t\n%c") + ("wr" "Note from Region" entry (file+headline "~/org/work.org" "Notes") + "* %?\n\t\n%i") + ("wj" "Journal" entry (file+olp+datetree "~/org/work.org" "Journal") + "** %?\nEntered on %U\n") + ("wd" "Retrospective Single Action" entry (file+headline "~/org/work.org" "Single Actions") + "* DONE %?\nCLOSED: %U") + ("e" "Emacs Tip") + ("et" "Emacs Tip" entry (file+headline "~/org/emacs-tips.org" "Emacs Tips") + "* %?\n\t%a") + ("er" "Emacs Tip from Region" entry (file+headline "~/org/emacs-tips.org" "Emacs Tips") + "* %?\n\t%i") + ))) + ;; org tags + (setq org-tag-alist '( + ;; Depth + ("@immersive" . ?i) ;; "Deep" + ("@process" . ?p) ;; "Shallow" + ("@offdesk" . ?o) ;; "Away from desk" + ;; Type + ("brainstorm" . ?b) + ("idea" . ?d) + ;; Context + ("@work" . ?w) + ("@home" . ?h) + ("@errand" . ?e) + ("@emacs" . ?E) + ;; Time + ("15min" . ?<) + ("30min" . ?=) + ("1h" . ?>) + ;; Energy + ("Challenge" . ?1) + ("Average" . ?2) + ("Easy" . ?3) + ;; Misc + ("Maybe" . ?m) + )) + + ;; org agenda should be full screen + (defun open-agenda () + "Open the org-agenda." + (interactive) + (let ((agenda "*Org Agenda*")) + (if (equal (get-buffer agenda) nil) + (org-agenda-list) + (unless (equal (buffer-name (current-buffer)) agenda) + (switch-to-buffer agenda)) + (org-agenda-redo t) + (beginning-of-buffer)))) + + ;; org handling to-do items + + ;; Put state transition logs into a drawer called LOGBOOK + (setq org-log-into-drawer t) + + (setq org-todo-keywords + (quote ((sequence "TODO(t)" "NEXT(n)" "DOING" "|" "DONE(d!)") + (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)") + ))) + + (setq org-todo-keyword-faces + (quote (("TODO" :foreground "red" :weight bold) + ("NEXT" :foreground "cyan" :weight bold) + ("DOING" :foreground "orchid" :weight bold) + ("DONE" :foreground "forest green" :weight bold) + ("WAITING" :foreground "orange" :weight bold) + ("HOLD" :foreground "magenta" :weight bold) + ("CANCELLED" :foreground "forest green" :weight bold)))) + + ;; tag stuff automatically dependent on a change of state + (setq org-todo-state-tags-triggers + (quote (("CANCELLED" ("CANCELLED" . t)) + ("WAITING" ("WAITING" . t)) + ("HOLD" ("WAITING") ("HOLD" . t)) + (done ("WAITING") ("HOLD")) + ("TODO" ("WAITING") ("CANCELLED") ("HOLD")) + ("NEXT" ("WAITING") ("CANCELLED") ("HOLD")) + ("DONE" ("WAITING") ("CANCELLED") ("HOLD"))))) + + ;; Get more priority options + (setq org-highest-priority ?A) + (setq org-default-priority ?C) + (setq org-lowest-priority ?E) + + (setq org-priority-faces + '((?A . (:foreground "#CC0000" :background "#FFE3E3")) + (?B . (:foreground "#64992C" :background "#EBF4DD")) + (?C . (:foreground "#64992C" :background "#FFFFFF")))) + (setq org-ellipsis "...") + ) + + + + + + + +;; 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 get information about any 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. |