[doom] Here be doom

dot_doom.d/config.el.tmpl

@@ -0,0 +1,69 @@
+;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
+
+(setq user-full-name "{{ .me.name }}"
+      user-mail-address "{{ .me.email }}"
+      doom-font (font-spec :family "JetBrains Mono" :size 14)
+      doom-variable-pitch-font (font-spec :family "Fira Sans" :size 14)
+      doom-theme 'doom-one-light
+      org-directory "~/Documents/Zettelkasten/"
+      display-line-numbers-type nil
+      delete-selection-mode nil
+      writeroom-width 100
+      ruby-insert-encoding-magic-comment nil
+      git-gutter-fr+-side (quote left-fringe)
+      helm-org-rifle-show-path t
+      )
+
+(map! :leader
+      (:prefix-map ("l" . "org-stuff")
+       :desc "My Agenda" "a" #'bascht/org-agenda
+       :desc "My Inbox" "i" #'bascht/mu4e-inbox
+       :desc "Cycle all agenda files" "o"  #'helm-org-rifle-agenda-files
+       :desc "Go to current clock" "k"  #'org-clock-goto
+       :desc "Start my daily review" "d"  #'bascht/daily-review
+       :desc "Jump to org file" "g"  #'bascht/go-to-org-file
+       :desc "Clock in Alfatraing" "ca" #'bascht/alfatraining-clock-in
+       :desc "Clock in most recent item" "cr" #'org-mru-clock-in
+       :desc "" "td" (lambda () (interactive) (load-theme 'doom-one nil t))
+       :desc "" "tl" (lambda () (interactive) (load-theme 'doom-one-light nil t))
+       )
+      :desc "" "oc" #'org-capture
+      :desc "" "rl" #'org-refile-goto-last-stored
+      :desc "" "jt" #'org-journal-new-entry
+      :desc "" "jy" #'bascht/goto-yesterdays-journal
+      :desc "" "glu" #'mu4e-view-go-to-url
+      :desc "" "drr" #'rake
+      :desc "" "drl" #'rake-rerun
+      )
+
+(add-to-list 'auto-mode-alist '("\\.txt$" . markdown-mode))
+(add-to-list 'auto-mode-alist '("\\.journal\\'" . ledger-mode))
+
+(add-hook 'yaml-mode-hook
+          (lambda ()
+            (indent-guide-mode 1)
+            (auto-fill-mode -1)
+            (flyspell-mode -1)
+            (flyspell-prog-mode)
+            (flycheck-mode 1)
+            (flycheck-yamllint-setup)
+            (flycheck-select-checker 'yaml-yamllint)
+            ))
+
+(add-hook 'git-commit-mode-hook (lambda ()
+                                  (end-of-line)
+                                  (evil-insert-state)))
+
+(add-hook 'org-capture-mode-hook 'evil-insert-state)
+
+(after! forge
+  (add-to-list 'forge-alist '({{- range .git.forges }}"{{.}}" {{ end }}forge-gitlab-repository)))
+
+(setq org-link-abbrev-alist
+      '({{- range .bookmarks -}}
+            ("{{ .name }}" . "{{ .url }}")
+            {{ end -}}
+            ))
+
+(load! "mail.el")
+(load! "org.el")

dot_doom.d/init.el.tmpl

@@ -0,0 +1,84 @@
+;;; init.el -*- lexical-binding: t; -*-
+
+
+(doom! :input
+       :completion
+       company           ; the ultimate code completion backend
+       ivy               ; a search engine for love and life
+
+       :ui
+       doom              ; what makes DOOM look the way it does
+       doom-dashboard    ; a nifty splash screen for Emacs
+       doom-quit         ; DOOM quit-message prompts when you quit Emacs
+       (emoji +unicode)  ; 🙂
+       fill-column       ; a `fill-column' indicator
+       hl-todo           ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
+       ligatures         ; ligatures and symbols to make your code pretty again
+       modeline          ; snazzy, Atom-inspired modeline, plus API
+       nav-flash         ; blink cursor line after big motions
+       ophints           ; highlight the region an operation acts on
+       (popup +defaults)   ; tame sudden yet inevitable temporary windows
+       treemacs          ; a project drawer, like neotree but cooler
+       vc-gutter         ; vcs diff in the fringe
+       vi-tilde-fringe   ; fringe tildes to mark beyond EOB
+       window-select     ; visually switch windows
+       workspaces        ; tab emulation, persistence & separate workspaces
+       zen               ; distraction-free coding or writing
+
+       :editor
+       (evil +everywhere); come to the dark side, we have cookies
+       file-templates    ; auto-snippets for empty files
+       fold              ; (nigh) universal code folding
+       multiple-cursors  ; editing in many places at once
+       snippets          ; my elves. They type so I don't have to
+
+       :emacs
+       dired             ; making dired pretty [functional]
+       electric          ; smarter, keyword-based electric-indent
+       undo              ; persistent, smarter undo for your inevitable mistakes
+       vc                ; version-control and Emacs, sitting in a tree
+
+       :term
+       vterm             ; the best terminal emulation in Emacs
+
+       :checkers
+       (syntax +childframe)              ; tasing you for every semicolon you forget
+       (spell +flyspell) ; tasing you for misspelling mispelling
+       grammar           ; tasing grammar mistake every you make
+
+       :tools
+       docker
+       editorconfig      ; let someone else argue about tabs vs spaces
+       (eval +overlay)     ; run code, run (also, repls)
+       lookup              ; navigate your code and its documentation
+       magit             ; a git porcelain for Emacs
+       make              ; run make tasks from Emacs
+       pdf               ; pdf enhancements
+       terraform         ; infrastructure as code
+       tmux              ; an API for interacting with tmux
+
+       :os
+       (:if IS-MAC macos)  ; improve compatibility with macOS
+       tty               ; improve the terminal Emacs experience
+
+       :lang
+       emacs-lisp        ; drown in parentheses
+       (go +lsp)         ; the hipster dialect
+       json              ; At least it ain't XML
+       ledger            ; an accounting system in Emacs
+       markdown          ; writing docs for people to ignore
+       org               ; organize your plain life in plain text
+       (ruby +rails)     ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"}
+       sh                ; she sells {ba,z,fi}sh shells on the C xor
+       yaml              ; JSON, but readable
+
+       :email
+       (mu4e)
+
+       :app
+       calendar
+       everywhere        ; *leave* Emacs!? You must be joking
+       (rss +org)        ; emacs as an RSS reader
+
+       :config
+       (default +bindings +smartparens))

dot_doom.d/org.el

@@ -0,0 +1,320 @@
+;;; org.el -*- lexical-binding: t; -*-
+
+(after! org
+
+  (setq org-directory "~/Documents/Zettelkasten"
+        calendar-week-start-day 1
+        org-agenda-columns-add-appointments-to-effort-sum t
+        org-agenda-default-appointment-duration 30
+        org-agenda-file-regexp (format-time-string "\\`[^.].*\\.org\\'\\|\\`%Y%m[0-9]+\\'")
+        org-agenda-files '("~/Documents/Zettelkasten")
+        org-agenda-hide-tags-regexp "presents"
+        org-agenda-include-diary t
+        org-agenda-ndays 1
+        org-agenda-show-inherited-tags (quote always)
+        org-agenda-skip-deadline-if-done t
+        org-agenda-skip-scheduled-if-deadline-is-shown t
+        org-agenda-skip-scheduled-if-done t
+        org-agenda-span 1
+        org-agenda-start-with-clockreport-mode t
+        org-agenda-sticky nil
+        org-agenda-tags-column -105
+        org-agenda-time-leading-zero t
+        org-agenda-with-colors t
+        org-alert-notification-title "OrgMode"
+        org-archive-location "%s_archive::"
+        org-clock-in-resume t
+        org-clock-out-remove-zero-time-clocks t
+        org-clock-persist t
+        org-clock-persist-query-resume nil
+        org-clock-report-include-clocking-task t
+        org-clock-sound t
+        org-columns-default-format "%80ITEM(Task) %10Effort(Effort){:} %10CLOCKSUM"
+        org-confirm-babel-evaluate nil
+        org-link-elisp-confirm-function nil
+        org-deadline-warning-days 5
+        org-default-notes-file "~/Documents/Zettelkasten/refile.org"
+        org-ellipsis "  "
+        org-habit-completed-glyph ?🗸
+        org-habit-following-days 3
+        org-habit-graph-column 60
+        org-habit-show-habits-only-for-today nil
+        org-habit-today-glyph ?‖
+        org-hide-emphasis-markers t
+        org-icalendar-alarm-time 120
+        org-icalendar-combined-agenda-file "~/Nextcloud/OrgExport/Org.ics"
+        org-icalendar-include-todo (quote all)
+        org-icalendar-store-UID t
+        org-icalendar-timezone "UTC+2:00"
+        org-icalendar-use-deadline (quote (event-if-todo todo-due))
+        org-icalendar-use-scheduled (quote (event-if-todo todo-start))
+        org-icalendar-with-timestamps nil
+        org-journal-dir "~/Documents/Worklog/"
+        org-journal-enable-agenda-integration t
+        org-journal-file-format "%Y%m%d"
+        org-log-done t
+        org-mu4e-link-query-in-headers-mode nil
+        org-outline-path-complete-in-steps nil
+        org-pretty-entities t
+        org-refile-allow-creating-parent-nodes 'confirm
+        org-refile-history nil
+        org-refile-targets '((org-agenda-files . (:maxlevel . 4)))
+        org-refile-use-outline-path 'file
+        org-return-follows-link t
+        org-scheduled-delay-days 0
+        org-show-notification-handler "notify-send"
+        org-startup-folded t
+        org-tag-faces (quote (("next" . "red") ("waiting" . "blue")))
+        )
+
+  (setq org-agenda-current-time-string "┈	┈	┈	┈	┈	┈	┈ now ┈	┈	┈	┈	┈	┈")
+
+  (setq org-capture-templates
+        '(("t" "Todo" entry (file "~/Documents/Zettelkasten/Todo.org")
+           "* TODO %?\n  %i")
+          ("m" "MailTodo" entry (file "~/Documents/Zettelkasten/Todo.org")
+           "* TODO %?\nSCHEDULED: %(org-insert-time-stamp (org-read-date nil t \"+0d\"))\n%i\n%a\n")
+          ("p" "Print" entry (file+headline "~/Documents/Zettelkasten/Personal.org" "Drucken")
+           "* TODO %a drucken :@home:@print:%?\nSCHEDULED: %(org-insert-time-stamp (org-read-date nil t \"+1d\"))\n%a\n")
+          ("c" "CustomerIssue" entry (file "~/Documents/Zettelkasten/Todo.org")
+           "* TODO issue%?\nSCHEDULED: %(org-insert-time-stamp (org-read-date nil t \"+0d\"))\n")
+
+          ("a" "Alfaview" entry (file+headline "~/Documents/Zettelkasten/CustomerAlfaview.org" "Arbeitszeiten")
+           "* %(org-insert-time-stamp (org-read-date nil t \"+0d\"))\n" :jump-to-captured t :clock-in t)
+          ("r" "RubyShift" entry (file+headline "~/Documents/Zettelkasten/Projects.org" "RubyShift")
+           "* %?\nEntered on %U\n  %i\n  %a")))
+  (let* (
+         (headline-font      `(:font "FantasqueSansMono NF"))
+         (base-font-color     (face-foreground 'default nil 'default))
+         (headline           `(:inherit default :weight bold :foreground ,base-font-color)))
+
+    (custom-theme-set-faces
+     'user
+     `(org-level-8 ((t (,@headline ,@headline-font))))
+     `(org-level-7 ((t (,@headline ,@headline-font))))
+     `(org-level-6 ((t (,@headline ,@headline-font))))
+     `(org-level-5 ((t (,@headline ,@headline-font))))
+     `(org-level-4 ((t (,@headline ,@headline-font))))
+     `(org-level-3 ((t (,@headline ,@headline-font :height 1.1))))
+     `(org-level-2 ((t (,@headline ,@headline-font :height 1.2))))
+     `(org-level-1 ((t (,@headline ,@headline-font :height 1.3 :background "white smoke"))))
+     `(org-document-title ((t (,@headline ,@headline-font :height 1.5 :underline nil))))))
+
+  ;; Resume clocking task when emacs is restarted
+  (org-clock-persistence-insinuate)
+
+  (setq org-agenda-time-grid
+        (quote
+         ((daily require-timed)
+          (800 900 1000 1100 1200 1300 1400 1500 1600 1700 1800 1900 2000)
+          "......" "───────────────")))
+
+  (setq org-modules
+        (quote
+         (org-bbdb
+          org-bibtex
+          org-docview
+          org-gnus
+          org-habit
+          org-info
+          org-irc
+          org-mhe
+          org-habit
+          org-checklist
+          org-rmail
+          org-mouse
+          org-w3m)))
+
+
+
+  (use-package org-super-agenda
+    :config (org-super-agenda-mode))
+
+
+
+  (setq org-agenda-custom-commands
+        '(("l" "Open loops"
+           ((agenda ""))
+           ((org-agenda-start-day "-1d")
+            ;; (org-agenda-span 'week)
+            (org-agenda-show-log nil)
+            (org-agenda-ndays 2)
+            (tags-todo "-imported")
+            (org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
+            (org-agenda-start-with-log-mode '(closed clock state) )))
+          ("D" "Old and DONE items"
+           ((agenda ""))
+           ((org-agenda-start-day "-1d")
+            ;; (org-agenda-span 'week)
+            (org-agenda-show-log nil)
+            (org-agenda-ndays 2)
+            (tags-todo "-imported")
+            (org-agenda-skip-function '(org-agenda-skip-entry-if 'todo))
+            (org-agenda-start-with-log-mode '(closed clock state) )))
+          ("h" "Daily habits"
+           ((agenda ""))
+           ((org-agenda-show-log t)
+            (org-agenda-ndays 7)
+            (org-agenda-log-mode-items '(state))
+            (org-agenda-skip-function '(org-agenda-skip-entry-if 'notregexp ":DAILY:"))))
+          ("u" "Super view"
+           ((agenda "" ((org-super-agenda-groups
+                         '((:name "Today"
+                            :time-grid t)))))
+            (todo "" ((org-agenda-overriding-header "Other")
+                      (org-super-agenda-groups
+                       '((:auto-category t))                     )))
+            (todo "" ((org-agenda-overriding-header "Grouped")
+                      (org-super-agenda-groups
+                       '((:name none  ; Disable super group header
+                          :children todo)
+                         (:discard (:anything t))))))))
+          ("c" "Mega Agenda" agenda
+           (org-super-agenda-mode)
+           ((org-super-agenda-groups
+             '(
+               (:name "Important"
+                :priority "A")
+               (:name "Next Items"
+                :tag ("NEXT" "outbox"))
+               (:name "Immersive + Deep"
+                :tag ("@immersive" "@deep"))
+               (:name "Process + Shallow"
+                :time-grid t
+                :tag ("@process" "@shallow"))
+               (:name "Customer Projects"
+                :file-path "Customer"
+                )
+               (:name "Quick Picks"
+                :effort< "0:30"
+                )
+               (:priority<= "B"
+                :scheduled future
+                :order 1)))
+            )
+           ("d" "Sort during Daily" agenda
+            (org-super-agenda-mode)
+            (setq org-agenda-span 1)
+            ((org-super-agenda-groups
+              '(
+                (:name "Quick Picks"
+                 :effort< "0:30"
+                 )
+                (:name "Immersive + Deep"
+                 :tag ("@immersive" "@deep"))
+                (:name "Immersive + Shallow"
+                 :tag ("@immersive" "@shallow"))
+                (:name "Process + Deep"
+                 :tag ("@process" "@deep"))
+                (:name "Process + Shallow"
+                 :tag ("@process" "@shallow"))
+                (:name "Customer Projects"
+                 :file-path "Customer"
+                 )
+                (:name "Low Prio and future"
+                 :priority<= "B"
+                 :scheduled future
+                 :order 1))))
+            (org-agenda nil "a"))
+           )))
+
+  (setq org-tag-alist '(
+                        (:startgroup . nil)
+                        ("@immersive" . ?i)
+                        ("@process" . ?p)
+                        (:endgroup . nil)
+                        (:startgroup . nil)
+                        ("@deep" . ?d)
+                        ("@shallow" . ?s)
+                        (:endgroup . nil)
+                        (:startgroup . nil)
+                        ("@office" . ?o)
+                        ("@home" . ?h)
+                        (:endgroup . nil)
+                        ("errand" . ?E)
+                        ("phone" . ?P)
+                        ("outbox" . ?O)
+                        ("money" . ?M)
+                        ("paper" . ?P)
+                        ("next" . ?N)))
+
+                                        ; Daily Review
+  (defun bascht/daily-review ()
+    (interactive)
+    (persp-switch "@Org")
+    (find-file "/home/bascht/Documents/Zettelkasten/Todo.org")
+    (goto-char (org-find-exact-headline-in-buffer "Daily Review"))
+    (org-narrow-to-subtree)
+    (org-cycle-hide-drawers 'all)
+    (search-forward "[ ]"))
+
+  (defun bascht/org-agenda ()
+    (interactive)
+    (persp-switch "@Org")
+    (let ((org-agenda-start-with-log-mode 'nil)
+          (org-agenda-show-log 'nil)
+          (org-agenda-span 'day)
+          (org-agenda-use-time-grid t))
+      (org-agenda nil "c")
+      (org-agenda-redo)
+      ))
+
+                                        ; Recent loops callable for daily review
+  (defun bascht/org-agenda-recent-open-loops ()
+    (interactive)
+    (let ((org-agenda-start-with-log-mode t)
+          (org-agenda-span 'day)
+          (org-agenda-use-time-grid nil))
+      (org-agenda nil "l")
+      (beginend-org-agenda-mode-goto-beginning)))
+
+  (defun bascht/sway-org-clock-indicator ()
+    (if (org-clocking-p)
+        (format "%s @ %s"
+                org-clock-heading
+                (format-seconds "%h:%m" (* (org-clock-get-clocked-time) 60)))
+      (format "🕶 chilling")))
+
+  (add-to-list 'org-global-properties
+               '("Effort_ALL". "0:05 0:10 0:15 0:30 1:00 2:00 3:00 4:00"))
+
+                                        ; Via https://www.reddit.com/r/emacs/comments/8kz8dv/tip_how_i_use_orgjournal_to_improve_my/
+  (defun bascht/goto-yesterdays-journal ()
+    (interactive)
+    (find-file (expand-file-name (concat org-journal-dir (format-time-string "%Y%m%d" (time-subtract (current-time) (days-to-time 1)))))))
+
+  (defun bascht/alfatraining-clock-in ()
+    (interactive)
+    (persp-switch "@Org")
+    (find-file "/home/bascht/Documents/Zettelkasten/CustomerAlfaview.org")
+    (goto-char (org-find-exact-headline-in-buffer "Arbeitszeiten"))
+    (goto-char (org-find-exact-headline-in-buffer (format-time-string "%Y-%m")))
+    (search-forward "Total")
+    (previous-line 1)
+    (org-table-insert-row)
+    (org-insert-time-stamp (org-read-date nil t "+0d") t)
+    (save-buffer))
+
+  (defun bascht/alfatraining-hours-a-day (date)
+    (cond
+     ((string-match " Thu" date) "8:00")
+     ((string-match " Wed" date) "4:00")
+     ((string-match " Mon" date) "0:00")
+     ((string-match " Tue" date) "8:00")
+     (t "0:00")))
+
+  (setq org-agenda-category-icon-alist
+        '(("Todo" "~/.icons/emacs/todo-16x16.png" nil nil :ascent center)
+          ("Personal" "~/.icons/emacs/person-16x16.png" nil nil :ascent center)
+          ("Customer.*" "~/.icons/emacs/customer-16x16.png" nil nil :ascent center)
+          ("Freelance.*" "~/.icons/emacs/customer-16x16.png" nil nil :ascent center)
+          ("Projects" "~/.icons/emacs/generic-folder-16x16.png" nil nil :ascent center)
+          ("\\(ROPrivat\\|ROArbeit\\)" "~/.icons/emacs/calendar-16x16.png" nil nil :ascent center)
+          (".*" '(space . (:width (16))))))
+
+                                        ; Save file on every state change
+  (add-hook 'org-trigger-hook 'save-buffer)
+  (add-hook 'org-clock-in-hook 'save-buffer)
+  (add-hook 'org-clock-out-hook 'save-buffer)
+
+  )

dot_doom.d/packages.el.tmpl

@@ -0,0 +1,12 @@
+;; -*- no-byte-compile: t; -*-
+;;; $DOOMDIR/packages.el
+
+(package! org-super-agenda)
+(package! org-mru-clock)
+(package! toml-mode)
+(package! org-journal)
+(package! org-alert)
+
+{{- range .doom.extra_packages }}
+(package! {{ . }})
+{{- end }}