got rid of doom config - it has its own repo

1 files changed, 0 insertions, 393 deletions

diff --git a/doom.d/config.el b/doom.d/config.el
deleted file mode 100644
index 5a402b8..0000000
--- a/doom.d/config.el
+++ /dev/null
@@ -1,393 +0,0 @@
-;;; $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
-
-;; Establish which computer I am on
-(defun establish-machine ()
-    (let ((sys (system-name)))
-      (if (string= sys "archdesk")
-          (setq mrl/computer 'desktop)
-        (setq mrl/computer 'laptop))))
-
-(establish-machine)
-
-;; set font accordingly
-
-(if (eq mrl/computer 'desktop)
-    (setq doom-font (font-spec :family "Jetbrains Mono" :size 16)
-          doom-variable-pitch-font (font-spec :family "Jetbrains Mono" :size 16)))
-
-(if (eq mrl/computer 'laptop)
-    (setq doom-font (font-spec :family "Monospace" :size 24)
-          doom-variable-pitch-font (font-spec :family "Monospace" :size 28)))
-
-;;
-;; 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-laserwave)
-
-(load-theme 'gruber-darker t)
-
-;; 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 undo-limit 8000000) ; raise limit to 80Mb
-(setq truncate-string-ellipsis "…") ; better than using dots
-(setq scroll-preserve-screen-position 'always) ; experimental
-(setq scroll-margin 3) ; bit of space
-
-;; --------------------
-;; Some of my own stuff
-;; --------------------
-;; Open cider repl in vertical window
-;; https://stackoverflow.com/questions/65992013/doom-emacs-move-cider-repl-windows-vertical
-(after! cider
-  (set-popup-rules!
-   '(("^\\*cider-repl"
-      :side right
-      :width 100
-      :quit nil
-      :ttl nil))));
-;;
-;;Switch to scratch buffer
-(defun mrl/switch-to-scratch ()
-  (interactive)
-  (switch-to-buffer "*scratch*"))
-
-;; --------------------
-;; Custom keybindings
-;; --------------------
-(global-set-key (kbd "C-c s") 'mrl/switch-to-scratch)
-(global-set-key (kbd "C-c r") 'counsel-rg)
-(global-set-key (kbd "C-c f") 'counsel-fzf)
-(global-unset-key (kbd "C-x C-b")) ;; we don't want the old buffer list!
-
-;; Swiper
-;; (use-package swiper
-;;   :bind ("C-s" . 'swiper-isearch))
-
-;; org-roam
-(use-package! org-roam
-  :custom
-  (org-roam-dailies-directory "daily/")
-  (org-roam-directory "~/org-roam")
-  (org-roam-capture-templates
-        '(("d" "default" plain
-           "%?"
-           :target (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
-           :unnarrowed t)
-          ("e" "encrypted" plain
-           "%?"
-           :target (file+head "%<%Y%m%d%H%M%S>-${slug}.org.gpg" "#+title: ${title}\n")
-           :unnarrowed t)))
-  (org-roam-dailies-capture-templates
-        '(("d" "default" entry "* %<%T>: %?"
-           :target (file+head "%<%Y-%m-%d>.org" "#+title: %<%Y-%m-%d>\n")
-           :unnarrowed t)))
-  ;; Bind this to C-c n I
-  (defun org-roam-node-insert-immediate (arg &rest args)
-    (interactive "P")
-    (let ((args (cons arg args))
-          (org-roam-capture-templates (list (append (car org-roam-capture-templates)
-                                                  '(:immediate-finish t)))))
-      (apply #'org-roam-node-insert args)))
-  :bind (("C-c n I" . org-roam-node-insert-immediate)))
-
-;; Basic agenda stuff
-;; 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!
-(setq org-directory "~/org/")
-(add-to-list 'org-modules 'org-habit)
-
-(after! org
-  (evil-set-initial-state 'org-capture-mode 'insert) ;; from https://www.reddit.com/r/emacs/comments/hzkyrb/org_capture_evil_go_into_insert_mode/
-  (setq org-directory "~/org/")
-  (setq org-startup-indented nil)
-  (setq org-hide-leading-stars nil)
-  (setq org-deadline-warning-days 4)
-  (setq org-clock-persist 'history)
-  (org-clock-persistence-insinuate)
-  (setq org-agenda-span 'day)
-  (setq org-agenda-start-day "today")
-  (setq org-directory "~/org")
-  (setq org-agenda-files (quote ("~/org/home.org"
-                                 "~/org/projects.org"
-                                 "~/org/refile.org"
-                                 "~/org/journal.org"
-                                 "~/org/mod.org"
-                                 "~/org/notes.org"
-                                 "~/org/habits.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 nil)
-  (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-min-width 45)
-  (setq org-habit-show-habits t)
-  (setq org-habit-show-habits-only-for-today nil)
-  (setq org-agenda-sort-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))))
-
-  ;; set for sunrise, sunset in Berwick
-  (setq calendar-latitude 55.77)
-  (setq calendar-longitude -2.01)
-  (setq calendar-location-name "Berwick-upon-Tweed")
-
-  ;; Monday
-  (setq calendar-week-start-day 1)
-
-  ;; Basic org keybindings
-  (global-set-key "\C-cl" 'org-store-link)
-  (global-set-key "\C-ca" 'org-agenda)
-  (global-set-key "\C-cc" 'org-capture)
-  (global-set-key "\C-c-" 'evil-ex-nohighlight)
-  ;;
-  ;; Agenda dispatcher
-  (setq org-agenda-custom-commands
-        '(
-          ("w" "Work"
-           (
-            (agenda)
-            (tags "TODO=\"DOING\"|REFILE+LEVEL=2|current|PRIORITY=\"A\"" ((org-agenda-overriding-header "DEAL")))
-            (tags-todo "TODO=\"WAITING\"" ((org-agenda-overriding-header "MOD WAITING")
-                                           (org-agenda-sorting-strategy '(deadline-down scheduled-down priority-down))))
-            (tags-todo "-SCHEDULED>=\"<today>\"&TODO=\"NEXT\""
-                       ((org-agenda-overriding-header "MOD NEXT UNSCHEDULED")
-                        (org-agenda-sorting-strategy '(deadline-down scheduled-down priority-down))))
-            (tags-todo "TODO=\"PROJ\"" ((org-agenda-overriding-header "Projects")))
-            (tags-todo "TODO=\"NEXT\"" ((org-agenda-overriding-header "All Next Actions")
-                                        (org-agenda-sorting-strategy '(deadline-down scheduled-down priority-down))))
-            (tags-todo "TODO=\"TODO\"" ((org-agenda-overriding-header "TODO"))))
-
-           ((org-agenda-category-filter-preset '("+MOD" "+Meeting" "+WorkTrip" "+refile"))))
-
-          ("h" "Home"
-           (
-            (agenda)
-            (tags "TODO=\"DOING\"|REFILE+LEVEL=2|current|PRIORITY=\"A\"" ((org-agenda-overriding-header "DEAL")))
-            (tags-todo "TODO=\"WAITING\"" ((org-agenda-overriding-header "Home WAITING")
-                                           (org-agenda-sorting-strategy '(deadline-down scheduled-down priority-down))))
-            (tags-todo "-SCHEDULED>=\"<today>\"&TODO=\"NEXT\""
-                       ((org-agenda-overriding-header "Home NEXT UNSCHEDULED")
-                        (org-agenda-sorting-strategy '(deadline-down scheduled-down priority-down))))
-            (tags-todo "TODO=\"PROJ\"" ((org-agenda-overriding-header "Projects")))
-            (tags-todo "TODO=\"NEXT\"" ((org-agenda-overriding-header "All Next Actions")
-                                        (org-agenda-sorting-strategy '(deadline-down scheduled-down priority-down))))
-            (tags-todo "TODO=\"TODO\"" ((org-agenda-overriding-header "TODO"))))
-            
-           ((org-agenda-category-filter-preset '("+home" "+refile"))))
-          ("i" tags "idea")
-          ("r" tags "LEVEL=2+REFILE" ((org-agenda-overriding-header "Stuff to refile")))))
-          
-
-  ;; org capture templates
-  (setq org-capture-templates
-        (quote (("i" "Inbox" entry (file+headline "~/org/refile.org" "Inbox")
-                 "* %?\nCaptured: %U\n")
-                ("h" "Home Tasks & Notes")
-                ;; ("w" "Protocol Capture" entry (file+headline "~/org/refile.org" "Web Capture")
-                ;;  "* %^{Title or Comment}\nDescription: %:description\nSource: %:link\n%:initial\nCaptured: %U\n")
-                ("x" "Protocol Capture" entry (file+headline "~/org/refile.org" "Web Capture")
-                 "* TODO Review %:description\nSource: %:link\n%:initial\nCaptured: %U\n" :immediate-finish t)
-                ("w" "Protocol Capture" entry (file+headline "~/org/refile.org" "Web Capture")
-                 "* %:description\nSource: %:link\n%:initial\nCaptured: %U\n")
-                ("ht" "Home TODO" entry (file+headline "~/org/home.org" "Tasks")
-                 "** TODO %?\nEntered on %U\n"
-                 :prepend t)
-                ("hn" "Home NEXT" entry (file+headline "~/org/home.org" "Tasks")
-                 "** NEXT %?\nEntered on %U\n"
-                 :prepend t)
-                ("hS" "Home Someday" entry (file+headline "~/org/home.org" "Someday")
-                 "** SOMEDAY %?\nEntered on %U\n")
-                ;; ("hN" "Home Note" entry (file+headline "~/org/home.org" "Notes")
-                ;;  "** %?\nEntered on %U\n")
-                ;; ("hj" "Journal" entry (file+olp+datetree "~/org/home.org" "Journal")
-                ;;  "* %?\nEntered on %U\n")
-                ("hi" "Home Idea" entry (file+headline "~/org/home.org" "Notes")
-                 "** %? :idea:\nEntered on %U\n")
-                ("hc" "Home Calendar - Single" entry (file+headline "~/org/home.org" "Calendar")
-                 "* %?\n%^T")
-                ("hb" "Home Calendar - Block" entry (file+headline "~/org/home.org" "Calendar")
-                 "* %?\n%^t--%^t")
-                ("w" "Work Tasks & Notes")
-                ("wt" "Work TODO" entry (file+headline "~/org/mod.org" "Tasks")
-                 "** TODO %?\nEntered on %U\n"
-                 :prepend t)
-                ("wn" "Work NEXT" entry (file+headline "~/org/mod.org" "Tasks")
-                 "** NEXT %?\nEntered on %U\n"
-                 :prepend t)
-                ("wS" "Work Someday" entry (file+headline "~/org/mod.org" "Someday")
-                 "** SOMEDAY %?\nEntered on %U\n")
-                ("wN" "Note" entry (file+headline "~/org/mod.org" "Notes")
-                 "* %?\nEntered on %U\n")
-                ("wc" "Note from Clipboard" entry (file+headline "~/org/mod.org" "Notes")
-                 "* %?\n\t\n%c")
-                ("wr" "Note from Region" entry (file+headline "~/org/mod.org" "Notes")
-                 "* %?\n\t\n%i")
-                ("wj" "Journal" entry (file+olp+datetree "~/org/mod.org" "Journal")
-                 "* %?\nEntered on %U\n")
-                ("wd" "Retrospective Tasks" entry (file+headline "~/org/mod.org" "Tasks")
-                 "* DONE %?\nCLOSED: %U")
-                ("ws" "Work Calendar - Single" entry (file+headline "~/org/mod.org" "Calendar")
-                 "* %?\n%^T")
-                ("wb" "Work Calendar - Block" entry (file+headline "~/org/mod.org" "Calendar")
-                 "* %?\n%^t--%^t")
-                ("wp" "Work Calendar - Trip" entry (file+headline "~/org/mod.org" "Work Trips")
-                 "* %?\n%^t--%^t")
-                ("wm" "Work Calendar - Meeting" entry (file+headline "~/org/mod.org" "Meetings")
-                 "* %?\n:PROPERTIES:\n:CATEGORY: Meeting\n:END:\n%^T")
-                ("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 '(
-                        ;; Type
-                        ("brainstorm" . ?b)
-                        ("idea" . ?d)
-                        ;; Context
-                        ("work" . ?w)
-                        ("home" . ?h)
-                        ("errand" . ?e)
-                        ("emacs" . ?E)
-                        ("orgmode" . ?o)
-                        ("joanna" . ?j)
-                        ("harvey" . ?h)
-                        ("sophie" . ?s)))
-
-
-  ;; 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))))
-
-  ;; Defining stuck projects
-  (setq org-stuck-projects
-        '("+LEVEL=2/+PROJ" ("NEXT" "DOING") nil ""))
-
-  ;; 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(D)" "PROJ(p)"  "|" "DONE(d!)")
-                (sequence "WAITING(w@/!)" "SOMEDAY(s@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)"))))
-                
-
-  (setq org-todo-keyword-faces
-        (quote (("TODO" :foreground "red" :weight bold)
-                ("NEXT" :foreground "cyan" :weight bold)
-                ("PROJ" :foreground "pink" :weight bold)
-                ("DOING" :foreground "orchid" :weight bold)
-                ("DONE" :foreground "forest green" :weight bold)
-                ("WAITING" :foreground "orange" :weight bold)
-                ("SOMEDAY" :foreground "blue" :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 "..."))
-  
-
-(after! deft
-  (setq deft-recursive t))
-
-;; 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.