Doom-emacs Config
About this Config
This config has evolved over the last year and change to reflect my needs an academic. I initially started with emacs to take notes on papers, eventually discovering Org-Roam and supporting packages to develop my own zettlekasten. It has since evolved to become a writing intensive config to create a comfy writing environment. This version is a major departure from my previous published configuration. This config also includes org super agenda and org journal, packages that I use to keep up with my commitments and tasks.
This configuration owes itself to the outstanding work done by tecosaur and Thomas Journa. I hope this config proves itself useful to other academics who are starting out with Doom Emacs and want to replicate my workflows and are looking to incorporate some of the packages I use into their own configs.
Basic stuff
(add-to-list 'load-path "~/.config/doom/elisp")And… Here…We…. Go!
;;; $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.
(setq user-full-name "Sunny Hasija"
user-mail-address "[email protected]")Battery Display
I use the same emacs config on my desktop and my laptop. I added a little snippet that shows battery level on my laptop.
(unless (equal "Battery status not available"
(battery))
(display-battery-mode 1)) ; On laptops it's nice to know how much power you haveFull Screen Emacs
I like to emacs to be fullscreen when I open it for the first time.
(if (eq initial-window-system 'x) ; if started by emacs command or desktop file
(toggle-frame-maximized)
(toggle-frame-fullscreen))Directory setup
Setting up the config to find the Org and Org Roam directories.
;; 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 "~/Dropbox/Org/"
org-roam-directory "~/Dropbox/Org/references/notes")
;; 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)
;; Here are some additional functions/macros that could 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
;; .UI
Cleaning up the internal UI.
(setq default-frame-alist
(append (list
;; '(font . "Roboto Mono Emacs Regular:size=14")
'(min-height . 1) '(height . 45)
'(min-width . 1) '(width . 81)
'(vertical-scroll-bars . nil)
'(internal-border-width . 40)
'(left-fringe . 0)
'(right-fringe . 0)
'(tool-bar-lines . 0)
'(menu-bar-lines . 0))))
; (setq centaur-tabs-style "wave")
; (setq centaur-tabs-set-bar 'under)
;; Note: If you're not using Spacmeacs, in order for the underline to display
;; correctly you must add the following line:
;(setq x-underline-at-descent-line t)
;;
;;; PackagesDoom Theme
Flatwhite is my favorite theme. Its light and looks really good in writing mode. You could put whatever theme you want to in here, but it might mess with the look I have achieved in this config.
(setq doom-theme 'doom-flatwhite)Set fringes to the opposite of the background.
(add-hook! 'solaire-mode-hook
;(set-face-attribute 'solaire-fringe-face nil :background (face-background 'solaire-hl-line-face))
(set-face-attribute 'fringe nil :background (face-background 'solaire-default-face))
)Fonts
Since this is a comfy config for writing, proportional fonts are what we want, but its nice to have both mono and proportional fonts.
(use-package! mixed-pitch
:hook (org-mode . mixed-pitch-mode)
:config
(setq mixed-pitch-face 'variable-pitch))Fira Code is amazing, and so is Roboto.
(setq doom-font (font-spec :family "FiraCode" :size 15 :weight 'light)
doom-variable-pitch-font (font-spec :family "Roboto" :style "Regular" :size 12 :weight 'regular))
;; There are two ways to load a theme. Both assume the theme is installed and
;; available. You an either set `doom-theme' or manually load a theme with the
;; `load-theme' function. This is the default:Doom-modeline settings
(after! doom-modeline
(setq doom-modeline-enable-word-count t
doom-modeline-header-line nil
;doom-modeline-hud nil
doom-themes-padded-modeline t
doom-flatwhite-brighter-modeline nil
doom-plain-brighter-modeline nil))
(add-hook! 'doom-modeline-mode-hook
(progn
(set-face-attribute 'header-line nil
:background (face-background 'mode-line)
:foreground (face-foreground 'mode-line))
))Trying to make my own thing work
(after! doom-modeline
(doom-modeline-def-modeline 'main
'(bar matches buffer-info vcs word-count)
'(buffer-position misc-info major-mode)))Love me some tabs
(after! centaur-tabs
(setq centaur-tabs-style "wave"))Org-Mode customization
Allows you to jump in and out of latex fragments without using `C-c C-x C-l` all the time, beautiful.
(use-package! org-fragtog
:after org
:hook (org-mode . org-fragtog-mode)
)
Org-appear for everything else.
(use-package! org-appear
:after org
:hook (org-mode . org-appear-mode)
:config (setq
org-appear-autolinks t
org-appear-autoentities t
org-appear-autosubmarkers t ))
Nobiot’s org-roam transclusion package. Slightly buggy but very useful.
(use-package! org-transclusion
:after org-roam
)Having zero-width spaces can be very useful /sometimes/!
(map! :map org-mode-map
:nie "C-M-SPC" (cmd! (insert "\u200B")))Org-roam
Heart and soul of my note-taking. My zettlekasten.
v2 baby
(setq org-roam-v2-ack t)
(use-package! org-roam
:after org
:config
(setq org-roam-v2-ack t)
(setq org-roam-mode-sections
(list #'org-roam-backlinks-insert-section
#'org-roam-reflinks-insert-section
#'org-roam-unlinked-references-insert-section))
(org-roam-setup))Hotter Buffer
(defun org-roam-buffer-setup ()
"Function to make org-roam-buffer more pretty."
(progn
(setq-local olivetti-body-width 44)
(variable-pitch-mode 1)
(olivetti-mode 1)
(centaur-tabs-local-mode -1)
(set-face-background 'magit-section-highlight (face-background 'default))))
(after! org-roam
(add-hook! 'org-roam-mode-hook #'org-roam-buffer-setup))Org-Roam-UI
Thomas Journa’s Org Roam UI to make pretty node graphs.
(use-package! org-roam-ui
:after org-roam
:config
(setq org-roam-ui-open-on-start nil)
(setq org-roam-ui-browser-function #'xwidget-webkit-browse-url))Org-roam-capture templates
(after! org-roam
(setq org-roam-capture-templates
`(("s" "standard" plain "%?"
:if-new
(file+head "%<%Y%m%d%H%M%S>-${slug}.org"
"#+title: ${title}\n#+filetags: \n\n ")
:unnarrowed t)
("d" "definition" plain
"%?"
:if-new
(file+head "${slug}.org" "#+title: ${title}\n#+filetags: definition \n\n* Definition\n\n\n* Examples\n")
:unnarrowed t)
("r" "ref" plain "%?"
:if-new
(file+head "${citekey}.org"
"#+title: ${slug}: ${title}\n
\n#+filetags: reference ${keywords} \n
\n* ${title}\n\n
\n* Summary
\n\n\n* Rough note space\n")
:unnarrowed t)
("p" "person" plain "%?"
:if-new
(file+head "${slug}.org" "%^{relation|some guy|family|friend|colleague}p %^{birthday}p %^{address}p
#+title:${slug}\n#+filetags: :person: \n"
:unnarrowed t)))))
Citations
(use-package! org-ref
;:after org-roam
:config
(setq
org-ref-completion-library 'org-ref-ivy-cite
org-ref-get-pdf-filename-function 'org-ref-get-pdf-filename-helm-bibtex
bibtex-completion-bibliography (list "~/Dropbox/Org/references/library.bib")
bibtex-completion-notes "~/Dropbox/Org/references/notes/bibnotes.org"
org-ref-note-title-format "* %y - %t\n :PROPERTIES:\n :Custom_ID: %k\n :NOTER_DOCUMENT: %F\n :ROAM_KEY: cite:%k\n :AUTHOR: %9a\n :JOURNAL: %j\n :YEAR: %y\n :VOLUME: %v\n :PAGES: %p\n :DOI: %D\n :URL: %U\n :END:\n\n"
org-ref-notes-directory "~/Dropbox/Org/references/notes/"
org-ref-notes-function 'orb-edit-notes
))
(after! org-ref
(setq
bibtex-completion-notes-path "~/Dropbox/Org/references/notes/"
bibtex-completion-bibliography "~/Dropbox/Org/references/library.bib"
bibtex-completion-pdf-field "file"
bibtex-completion-notes-template-multiple-files
(concat
"#+TITLE: ${title}\n"
"#+ROAM_KEY: cite:${=key=}\n"
"* TODO Notes\n"
":PROPERTIES:\n"
":Custom_ID: ${=key=}\n"
":NOTER_DOCUMENT: %(orb-process-file-field \"${=key=}\")\n"
":AUTHOR: ${author-abbrev}\n"
":JOURNAL: ${journaltitle}\n"
":DATE: ${date}\n"
":YEAR: ${year}\n"
":DOI: ${doi}\n"
":URL: ${url}\n"
":END:\n\n"
)
)
)
ORB - Org-Roam Bibtex
The package that allows us to search through bibliography files and take notes on them. Makes Org-Roam work better as a zettlekasten for academic research.
(use-package! org-roam-bibtex
:after org-roam
:hook (org-mode . org-roam-bibtex-mode)
:config
(require 'org-ref)
(setq orb-preformat-keywords
'("citekey" "title" "url" "file" "author-or-editor" "keywords" "pdf" "doi" "author" "tags" "year" "author-bbrev")))
;)Taking notes on PDFs
(use-package! org-noter
:after (:any org pdf-view)
:config
(setq
;; The WM can handle splits
;;org-noter-notes-window-location 'other-frame
;; Please stop opening frames
;;org-noter-always-create-frame nil
;; I want to see the whole file
org-noter-hide-other nil
;; Everything is relative to the rclone mega
org-noter-notes-search-path "~/Dropbox/Org/references/notes"
)
)
(use-package! org-pdftools
:hook (org-load . org-pdftools-setup-link))
(use-package! org-noter-pdftools
:after org-noter
:config
(with-eval-after-load 'pdf-annot
(add-hook 'pdf-annot-activate-handler-functions #'org-noter-pdftools-jump-to-note)))
Org-ol
Outliners on the side, neat.
(use-package! org-ol-tree
:after org
:commands org-ol-tree
:hook (org-ol-tree-mode . visual-line-mode)
:config
(setq org-ol-tree-ui-window-auto-resize nil
org-ol-tree-ui-window-max-width 0.3
org-ol-tree-ui-window-position 'left))
(map! :map org-mode-map
:after org
:localleader
:desc "Outline" "O" #'org-ol-tree)Making it look like a word processor
This is a personal proference. On one hand, having Org’s indentation and stars is nice for making lists, but I am trying to use emacs as a word processor to get my thoughts down. For this purpose, it makes sense to remove the stars and indentation. ***
(defun org-mode-remove-stars ()
(font-lock-add-keywords
nil
'(("^\\*+ "
(0
(prog1 nil
(put-text-property (match-beginning 0) (match-end 0)
'invisible t)))))))
(add-hook! 'org-mode-hook #'org-mode-remove-stars) ;; hide title / author ... keywords
;;; Ugly org hooks
(defun nicer-org ()
(progn
(+org-pretty-mode 1)
(mixed-pitch-mode 1)
(hl-line-mode -1)
(display-line-numbers-mode -1)
(olivetti-mode 1)
;(org-num-mode 1)
(org-superstar-mode -1)
(org-indent-mode -1)
))
(add-hook! 'org-mode-hook #'nicer-org)
Org variables
Better indirect buffers
Copied from Thomas Journa’s config to move around org-buffers.
(defun +org-tree-to-indirect-buffer-options (option)
(let* ((old-value org-indirect-buffer-display))
(progn
(setq org-indirect-buffer-display option)
(org-tree-to-indirect-buffer)
(setq org-indirect-buffer-display old-value))))
(defun +org-tree-to-indirect-other-window ()
(interactive)
(+org-tree-to-indirect-buffer-options 'other-window))
(defun +org-tree-to-indirect-current-window ()
(interactive)
(+org-tree-to-indirect-buffer-options 'current-window))
(defun +org-tree-to-indirect-dedicated-frame ()
(interactive)
(+org-tree-to-indirect-buffer-options 'dedicated-frame))Custom faces
(after! org
(custom-set-faces!
'((org-block) :background nil)
)
(defface redd
'((((class color) (min-colors 88) (background light))
:foreground "red"))
"Red."
:group 'basic-faces)
(custom-set-faces!
;'(org-document-title :height 1.6 :weight bold)
'(org-level-1 :height 1.3 :weight extrabold :slant normal)
'(org-level-2 :height 1.2 :weight bold :slant normal)
'(org-level-3 :height 1.1 :weight regular :slant normal)
;'(org-document-info :inherit 'nano-face-faded)
'(org-document-title ;:foreground ,(doom-color 'black)
:family "Roboto"
:height 250
:weight medium)))Emphasis faces
Custom Highlighting - so = becomes red.
(after! org
(setq org-emphasis-alist
'(("*" (bold))
("/" italic)
("_" underline)
("=" redd)
("~" code)
("+" (:strike-through t)))))Ligatures
(after! org
(setq org-ellipsis " ▾ ")
(appendq! +ligatures-extra-symbols
`(:checkbox "☐"
:pending "◼"
:checkedbox "☑"
:list_property "∷"
:em_dash "—"
:ellipses "…"
:arrow_right "→"
:arrow_left "←"
:title nil
:subtitle "𝙩"
:author "𝘼"
:date "𝘿"
:property ""
:options "⌥"
:startup "⏻"
:macro "𝓜"
:html_head "🅷"
:html "🅗"
:latex_class "🄻"
:latex_header "🅻"
:beamer_header "🅑"
:latex "🅛"
:attr_latex "🄛"
:attr_html "🄗"
:attr_org "⒪"
:begin_quote "❝"
:end_quote "❞"
:caption "☰"
:header "›"
:results "🠶"
:begin_export "⏩"
:end_export "⏪"
:properties ""
:end "∎"
:priority_a ,(propertize "⚑" 'face 'all-the-icons-red)
:priority_b ,(propertize "⬆" 'face 'all-the-icons-orange)
:priority_c ,(propertize "■" 'face 'all-the-icons-yellow)
:priority_d ,(propertize "⬇" 'face 'all-the-icons-green)
:priority_e ,(propertize "❓" 'face 'all-the-icons-blue)
:roam_tags nil
:filetags nil))
(set-ligatures! 'org-mode
:merge t
:checkbox "[ ]"
:pending "[-]"
:checkedbox "[X]"
:list_property "::"
:em_dash "---"
:ellipsis "..."
:arrow_right "->"
:arrow_left "<-"
:title "#+title:"
:subtitle "#+subtitle:"
:author "#+author:"
:date "#+date:"
:property "#+property:"
:options "#+options:"
:startup "#+startup:"
:macro "#+macro:"
:html_head "#+html_head:"
:html "#+html:"
:latex_class "#+latex_class:"
:latex_header "#+latex_header:"
:beamer_header "#+beamer_header:"
:latex "#+latex:"
:attr_latex "#+attr_latex:"
:attr_html "#+attr_html:"
:attr_org "#+attr_org:"
:begin_quote "#+begin_quote"
:end_quote "#+end_quote"
:caption "#+caption:"
:header "#+header:"
:begin_export "#+begin_export"
:end_export "#+end_export"
:results "#+RESULTS:"
:property ":PROPERTIES:"
:end ":END:"
:priority_a "[#A]"
:priority_b "[#B]"
:priority_c "[#C]"
:priority_d "[#D]"
:priority_e "[#E]"
:roam_tags "#+roam_tags:"
:filetags "#+filetags:")
(plist-put +ligatures-extra-symbols :name "⁍")
)
(with-eval-after-load 'org
(plist-put org-format-latex-options :background 'default))
Getting Things Done
Getting things done package to make my life work.
(use-package! org-gtd
:after org
:config
;; where org-gtd will put its files. This value is also the default one.
(setq org-gtd-directory "~/Dropbox/Org/Daily/")
;; package: https://github.com/Malabarba/org-agenda-property
;; this is so you can see who an item was delegated to in the agenda
(setq org-agenda-property-list '("DELEGATED_TO"))
;; I think this makes the agenda easier to read
(setq org-agenda-property-position 'next-line)
;; package: https://www.nongnu.org/org-edna-el/
;; org-edna is used to make sure that when a project task gets DONE,
;; the next TODO is automatically changed to NEXT.
(setq org-edna-use-inheritance t)
(org-edna-load)
:bind
(("C-c d c" . org-gtd-capture) ;; add item to inbox
("C-c d a" . org-agenda-list) ;; see what's on your plate today
("C-c d p" . org-gtd-process-inbox) ;; process entire inbox
("C-c d n" . org-gtd-show-all-next) ;; see all NEXT items
("C-c d s" . org-gtd-show-stuck-projects)) ;; see projects that don't have a NEXT item
:init
(bind-key "C-c c" 'org-gtd-clarify-finalize)) ;; the keybinding to hit when you're done editing an item in the processing phaseSet agenda files
(setq org-agenda-files '("~/Dropbox/Org/Daily"
"~/Dropbox/Org/references/notes/agenda.org" "~/Dropbox/Org/references/notes/incubate.org"
"~/Dropbox/Org/references/notes/openquestions.org"))Org capture Templates
Set some capture templates, to work with GTD.
(after! org
(setq org-capture-templates `(("i" "Inbox"
entry (file "~/Dropbox/Org/references/notes/inbox.org")
"* %?\n%U\n\n %i"
:kill-buffer t)
("l" "Todo with link"
entry (file "~/Dropbox/Org/references/notes/inbox.org")
"* %?\n%U\n\n %i\n %a"
:kill-buffer t)
("m" "Meeting"
entry (file+headline "/Dropbox/Org/references/notes/agenda.org" "Future")
,(concat "* TODO %? :meeting:\n" "<%<%Y-%m-%d %a %H:00>>"))
("o" "Open Question Thesis"
entry (file+headline "~/Dropbox/Org/references/notes/openquestions.org" "Questions")
"* OPEN %? \n %U\n")))
(set-face-attribute 'org-headline-done nil :strike-through t)
)Org-super agenda
A better agenda
(use-package! org-super-agenda
:hook (org-agenda-mode . org-super-agenda-mode)
)
(setq org-agenda-skip-scheduled-if-done t
org-agenda-skip-deadline-if-done t
org-agenda-include-deadlines t
org-agenda-include-diary t
org-agenda-block-separator nil
org-agenda-compact-blocks t
org-agenda-start-with-log-mode t
org-agenda-start-day nil)
(setq org-agenda-custom-commands
'(("d" "Get Things DONE"
((agenda "" ((org-agenda-span 1)
(org-super-agenda-groups
'((:name "Today"
:time-grid t
:date nil
:todo "TODAY"
:scheduled nil
:order 1)))))
(alltodo "" ((org-agenda-overriding-header "")
(org-super-agenda-groups
'((:discard (:todo "TODO"))
(:name "Important"
:tag "Important"
:priority "A"
:order 1)
(:name "Due Today"
:deadline today
:order 2)
(:name "Due Soon"
:deadline future
:order 8)
(:name "Overdue"
:deadline past
:order 7)
(:name "Thesis"
:tag "thesis"
:order 10)
(:name "ESN"
:tag "esn"
:order 12)
(:name "JOTE"
:tag "jote"
:order 13)
(:name "Emacs"
:tag "emacs"
:order 14)
(:name "Home"
:tag "home"
:order 30)
(:name "Waiting"
:todo "WAITING"
:order 20)
(:name "Notes"
:tag "notes"
:order 20)
;(:name "Open Questions"
; :todo "OPEN"
; :order 3)
(:name "trivial"
:priority<= "C"
:tag ("Trivial" "Unimportant")
:todo ("SOMEDAY" )
:order 90)
(:discard (:tag ("Chore" "Routine" "Daily")))))))))))
Notifications
I want notifications to work so bad but it just isn’t working :(
Seems like alert is not working, should fix that at some point.
(use-package! org-notifications
:init (org-notifications-start) )Nice writing environment for big babies
Nice big border with the color of the fringe
(setq default-frame-alist
(append (list
;; '(font . "Roboto Mono Emacs Regular:size=14")
'(min-height . 1) '(height . 45)
'(min-width . 1) '(width . 81)
'(vertical-scroll-bars . nil)
'(internal-border-width . 30)
'(left-fringe . 0)
'(right-fringe . 0)
'(tool-bar-lines . 0)
'(menu-bar-lines . 0))))
(add-hook! 'solaire-mode-hook (set-face-background 'internal-border (face-background 'fringe)))
(set-frame-parameter nil 'internal-border-width 60)Paper-like header/mode-line
Thomas Journa’s minor mode for writing. Which is excellent.
(defvar writing-header--default-format header-line-format
"Storage for the default `mode-line-format'.
So it can be restored when 'writer-header-line-mode' is disabled.")
(defvar writing-modeline--default-format mode-line-format)
(define-minor-mode writing-header-line-mode
"Adds a bar with the same color as the fringe as the header-line.
Imitates the look of wordprocessors a bit."
:init-value nil
:global nil
(if writing-header-line-mode
(progn
(setq header-line-format
(concat
(propertize " " 'display (list 'space :width 'left-fringe) 'face 'fringe)
(propertize " " 'display (list 'space :width 'left-margin) 'face (list (list :height 400) 'default))
(propertize " " 'display (list 'space :width 'text) 'face (list (list :height 400) 'default))
;(propertize (format " %dW" (count-words (point-min) (point-max))) 'face 'default)
(propertize " " 'display (list 'space :width 'left-margin) 'face (list (list :height 400) 'default))
;;(propertize (format " %dW" (count-words (point-min) (point-max))) 'face 'fringe)
;; '("" mode-line-misc-info)
(propertize " " 'display (list 'space :width 'left-fringe) 'face 'fringe))) ;
(setq mode-line-format header-line-format))
(setq header-line-format writing-header--default-format
mode-line-format writing-modeline--default-format)))(defcustom double-modeline-margin-inner-height 60
"inner"
:type 'integer)
(defcustom double-modeline-margin-outer-height 10
"outer"
:type 'integer)(after! org
(require 'svg))
(defun make-svg-rectangle (width height-1 bg-1 height-2 bg-2)
(let* ((svg (svg-create width (+ height-1 height-2))))
(svg-rectangle svg 0 0 width height-1 :fill-color bg-1)
(svg-rectangle svg 0 height-1 width height-2 :fill-color bg-2)
svg))
(defun make-svg-rectangles (width height-1 bg-1 &rest other)
(let* ((temptt 0)
(height-temp height-1)
(svg (svg-create width
(+ height-1
(dotimes
(i (/ (length other) 2) temptt)
(setq temptt
(+
(nth (* i 2) other)
temptt)))))))
(svg-rectangle svg 0 0 width height-1 :fill-color bg-1)
(when other
(dotimes (i (/ (length other) 2))
(svg-rectangle svg 0
(if (eq i 0) height-1
(setq-local height-temp
(+ height-temp
(nth (* (- i 2) 2) other))))
width
(nth (* i 2) other)
:fill-color (nth (+ (* i 2) 1) other))))
svg))
(defun mode-line-compose (height-1 bg-1 height-2 bg-2
header)
(let* ((fringe-width (car (window-fringes nil)))
(body-width (window-body-width nil t))
(margin-width (* (frame-char-width)
(+ (car (window-margins))
(cdr (window-margins))))))
(concat
(format-mode-line
(propertize " " 'display (svg-image
(make-svg-rectangle fringe-width height-1
bg-1 height-2 bg-1))))
(format-mode-line
(propertize " " 'display (svg-image
(if header
(make-svg-rectangle
(+ margin-width body-width)
height-1 bg-1 height-2 bg-2)
(make-svg-rectangle
(+ margin-width body-width)
height-2 bg-2 height-1 bg-1)))))
(format-mode-line
(propertize " " 'display (svg-image
(make-svg-rectangle fringe-width height-1
bg-1 height-2 bg-1)))))))
(defvar double-modeline--default-header-format header-line-format
"Storage for the default `mode-line-format'.
So it can be restored when 'writer-header-line-mode' is disabled.")
(defvar double-modeline--default-modeline-format mode-line-format)
(define-minor-mode double-header-line-mode
"Adds a bar with the same color as the fringe as the header-line.
Imitates the look of wordprocessors a bit."
:init-value nil
:global nil
(if double-header-line-mode
(progn
(set-face-attribute 'mode-line nil :box nil)
(set-face-attribute 'header-line nil :box nil)
(set-face-attribute 'mode-line-inactive nil :box nil)
(setq header-line-format '((:eval (mode-line-compose
double-modeline-margin-outer-height
(face-background 'fringe)
double-modeline-margin-inner-height
(face-background 'default)
t
))))
(setq mode-line-format '((:eval (mode-line-compose
double-modeline-margin-outer-height
(face-background 'fringe)
double-modeline-margin-inner-height
(face-background 'default)
nil
)))))
(setq header-line-format 'double-modeline--default-header-format
mode-line-format 'double-modeline--default-modeline-format)))
(after! olivetti-mode (setq double-modeline-margin-inner-height (round (* 0.6 (* (frame-char-width) (car (window-margins)))))))***
(use-package! olivetti
:after org
;:hook (olivetti-mode . double-header-line-mode)
:config
(setq olivetti-min-body-width 50
olivetti-body-width 80
olivetti-style 'fancy ; fantastic new layout
olivetti-margin-width 12)
(add-hook! 'olivetti-mode-hook (window-divider-mode -1))
(add-hook! 'olivetti-mode-hook (set-face-attribute 'window-divider nil :foreground (face-background 'fringe) :background (face-background 'fringe)))
(add-hook! 'olivetti-mode-hook (set-face-attribute 'vertical-border nil :foreground (face-background 'fringe) :background (face-background 'fringe)))
)Trying to get overviews
(require 'org-inlinetask);(use-package! org-sidebar
; :after org
; :config
;(setq org-sidebar-default-fns '(org-sidebar--todo-items))
;(add-hook! 'org-sidebar-window-after-display-hook (solaire-mode 1))
; )(after! org
(remove-hook 'org-agenda-finalize-hook '+org-exclude-agenda-buffers-from-workspace-h)
(remove-hook 'org-agenda-finalize-hook
'+org-defer-mode-in-agenda-buffers-h))
(defun thomas/org-get-overview ()
"Open outline and sidebar."
(progn
(org-ol-tree)
(org-sidebar)))STAY FOCUSED
Focus on only the paragraph you are looking at.
(use-package! focus
:after org-roam
:config
(add-to-list 'focus-mode-to-thing '(org-mode . paragraph))
)
;(require 'nano-writer)***
Custom Minor Modes
Stolen from Prot
;;;;;
;;
;; Custom Minor Modes
;;
;;;;;
(define-minor-mode prot/scroll-center-cursor-mode
"Toggle centred cursor scrolling behavior"
:init-value nil
:lighter " S="
:global nil
(if prot/scroll-center-cursor-mode
(setq-local scroll-margin (* (frame-height) 2)
scroll-conservatively 0
maximum-scroll-margin 0.5)
(dolist (local '(scroll-preserve-screen-position
scroll-conservatively
maximum-scroll-margin
scroll-margin))
(kill-local-variable `,local)))
)
Make everything variable pitch, who the hell likes reading fixed-pitch?
(define-minor-mode prot/variable-pitch-mode
"Toggle 'mixed-pitch-modei, except for programming modes"
:init-value nil
:global nil
(if prot/variable-pitch-mode
(unless (derived-mode-p 'prog-mode)
(variable-pitch-mode 1))
(variable-pitch-mode -1)))NO line numbers.
(define-minor-mode prot/display-line-number-mode
"Disable line numbers, except for programming modes."
:init-value nil
:global nil
(if prot/display-line-number-mode
(unless (derived-mode-p 'prog-mode)
(display-line-numbers-mode -1))
(display-line-numbers-mode 1)))Project management
Treemacs
Pretty Treemacs
(add-hook! 'after-init-hook #'treemacs)(after! treemacs
(add-hook! 'treemacs-mode-hook (setq window-divider-mode -1
variable-pitch-mode 1
treemacs-follow-mode 1))
)Programming
Regex
Better regex than emacs regex
(use-package! visual-regexp
:config
(map! :map 'doom-leader-regular-map
(:prefix ("v" . "visual regex")
:desc "Replace regexp" "r"#'vr/replace)))
(use-package! visual-regexp-steroids
:after 'visual-regexp)Docs
(use-package! devdocs
:after lsp
:config
(add-hook! 'devdocs-mode-hook
(face-remap-add-relative 'variable-pitch '(:family "Noto Sans"))))LSP
LSP auto format is nice, but not as configurable as prettier, better let prettier handle it.
(add-hook! 'after-init-hook
(progn
(setq-hook! 'typescript-mode-hook +format-with :nil)
(add-hook! 'typescript-mode-hook 'prettier-mode)
(setq-hook! 'rjsx-mode-hook +format-with :nil)
(add-hook! 'rjsx-mode-hook 'prettier-mode)
(setq-hook! 'js2-mode-hook +format-with :nil)
(add-hook! 'js2-mode-hook 'prettier-mode)
(setq-hook! 'typescript-tsx-mode-hook +format-with :nil)
(add-hook! 'typescript-tsx-mode-hook 'prettier-mode)
))EVA
Emacs Virtual assistant
(use-package! eva
:init
(setq ess-history-file "~/Dropbox/self/data/.Rhistory")
(setq ess-ask-for-ess-directory nil)
(setq eva-ai-name "HAL"
eva-user-name "Sunny"
eva-user-birthday "2021-09-07"
eva-user-short-title "Dude"
eva-fallback-to-emacs-idle t)
(setq eva--idle-secs-fn #'eva--idle-secs-gnome)
(setq eva-idle-log-path "~/Dropbox/self/data/idle.tsv")
(setq eva-buffer-focus-log-path "~/Dropbox/self/data/buffer-focus.tsv")
(setq eva-buffer-info-path "~/Dropbox/self/data/buffer-info.tsv")
(setq eva-main-ledger-path "~/Dropbox/self/data/l.ledger")
(setq eva-main-datetree-path "~/Dropbox/Org/references/notes/diary.org")
:config
(setq org-journal-dir "~/Dropbox/Org/Daily")
(setq org-journal-date-prefix "#+TITLE: "
org-journal-file-format "%Y-%m-%d.org"
org-journal-date-format "%A, %d %B %Y")
(require 'eva-builtin)
(require 'eva-activity)
(add-hook 'eva-after-load-vars-hook #'eva-check-dangling-clock)
(add-hook 'eva-after-load-vars-hook #'eva-check-org-variables)
(setq eva-items
(list
(eva-item-create :fn #'eva-greet
:min-hours-wait 1)
(eva-item-create :fn #'eva-query-mood
:dataset "~/Dropbox/self/data/mood.tsv"
:min-hours-wait 1)
(eva-item-create :fn #'eva-query-activity
:dataset "~/Dropbox/self/data/activities.tsv"
:min-hours-wait 1)
(eva-item-create :fn #'eva-present-diary
:max-successes-per-day 1)
(eva-item-create :fn #'eva-query-weight
:dataset "~/Dropbox/self/data/weight.tsv"
:max-entries-per-day 1)
(eva-item-create :fn #'eva-plot-weight
:max-entries-per-day 1)
(eva-item-create :fn #'eva-query-sleep
:dataset "~/Dropbox/self/data/sleep.tsv"
:min-hours-wait 5
:lookup-posted-time t)
(eva-item-create :fn #'eva-present-ledger-report)
(eva-item-create :fn #'eva-present-org-agenda)
(eva-item-create :fn #'eva-query-ingredients
:dataset "~/Dropbox/self/data/ingredients.tsv"
:min-hours-wait 5)
(eva-item-create :fn #'eva-query-cold-shower
:dataset "~/Dropbox/self/data/cold.tsv"
:max-entries-per-day 1)
;; you can inline define the functions too
(eva-item-create
:fn (eva-defun my-bye ()
(message (eva-emit "All done for now."))
(bury-buffer (eva-buffer-chat)))
:min-hours-wait 0)))
(transient-replace-suffix 'eva-dispatch '(0)
'["General actions"
("q" "Quit" bury-buffer)
("l" "View Ledger report" eva-present-ledger-report)
("f" "View Ledger file" eva-present-ledger-file)
("a" "View Org agenda" org-agenda-list)])
(define-key eva-chat-mode-map (kbd "l") #'eva-present-ledger-report)
(define-key eva-chat-mode-map (kbd "a") #'org-agenda-list)
;; Activities
(setq eva-activity-list
(list (eva-activity-create :name "sleep"
:cost-false-pos 3
:cost-false-neg 3)
(eva-activity-create :name "studying"
:cost-false-pos 8
:cost-false-neg 8)
(eva-activity-create :name "coding"
:cost-false-pos 5
:cost-false-neg 5)
(eva-activity-create :name "working"
:cost-false-pos 5
:cost-false-neg 5)
(eva-activity-create :name "unknown"
:cost-false-pos 0
:cost-false-neg 0)))
(eva-mode))Some other things, such as vterm
Misc
(setq vterm-shell "/usr/bin/fish")
(setq evil-escape-key-sequence "qd")
Colorful info Box
(use-package! info-colors
:commands (info-colors-fontify-node))
(add-hook 'Info-selection-hook 'info-colors-fontify-node)
Keyboard shortcuts
Everything is mapped to SPC-r because doom is not using it and r stands for roam.
(map! :leader
(:prefix-map ("r" . "regular")
:desc "find file" "f" #'org-roam-node-find
:desc "find ref" "F" #'org-roam-ref-find
:desc "center scroll" "s" #'prot/scroll-center-cursor-mode
:desc "start taking notes" "S" #'org-noter
:desc "toggle buffer" "b" #'org-roam-buffer-toggle
:desc "insert note" "i" #'org-roam-node-insert
:desc "server" "g" #'org-roam-server
:desc "quit notes" "q" #'org-noter-kill-session
:desc "tag (roam)" "t" #'org-roam-tag-add
:desc "tag (org)" "T" #'org-set-tags-command
:desc "pomodoro" "p" #'org-pomodoro
:desc "change nano-theme" "n" #'nano-toggle-theme
:desc "rebuid db" "d" #'org-roam-db-build-cache
:desc "cite" "c" #'helm-bibtex
:desc "thesaurus this word" "w" #'powerthesaurus-lookup-word-at-point
:desc "thesaurus lookup word" "W" #'powerthesaurus-lookup-word
:desc "outline" "o" #'org-ol-tree
(:prefix ("r" . "orui")
:desc "orui-mode" "r" #'org-roam-ui-mode
:desc "zoom" "z" #'orui-node-zoom
:desc "open" "o" #'orui-open
:desc "local" "l" #'orui-node-local
:desc "sync theme" "t" #'orui-sync-theme
:desc "follow" "f" #'orui-follow-mode)
(:prefix ("m" . "transclusion")
:desc "make link" "m" #'org-transclusion-make-from-link
:desc "transclusion mode" "t" #'org-transclusion-mode
:desc "add at point" "a" #'org-transclusion-add-at-point
:desc "add all in buffer" "A" #'org-transclusion-add-all-in-buffer
:desc "remove at point" "r" #'org-transclusion-remove-at-point
:desc "remove all in buffer" "R" #'org-transclusion-remove-all-in-buffer
:desc "start live edit" "s" #'org-transclusion-live-sync-start-at-point
:desc "stop live edit" "S" #'org-transclusion-live-sync-exit-at-point)
)
(:prefix ("d" . "GTD")
:desc "process inbox" "p"#'org-gtd-process-inbox
:desc "agenda list" "a"#'org-agenda-list
:desc "capture" "c"#'org-gtd-capture
:desc "show next" "n" #'org-gtd-show-all-next
:desc "show stuck project" "s" #'org-gtd-show-stuck-projects)
)Window movement
The default window movement keys are super cumbersome, here are some better defaults.
(map! "C-w" nil)
(global-set-key (kbd "C-<tab>") #'evil-window-next)
(global-set-key (kbd "C-<iso-lefttab>") #'evil-window-prev)
(global-set-key (kbd "C-w") #'ace-window)
(map!
:nvig "C-<iso-lefttab>" #'evil-window-prev
:nvig "C-w" #'ace-window)
(map! :nvig "C-<tab>" #'evil-window-next)Selection
Wow, I wish I knew this was a thing before
(map! :nvig "C-'" #'er/expand-region)Ivy
(use-package! all-the-icons-ivy-rich
:init (all-the-icons-ivy-rich-mode))Markdown
Add .mdx support
(add-to-list 'auto-mode-alist '("\\.mdx\\'" . markdown-mode))Custom functions I keep using
Get margin width in pixel
(defun margin-width-pixel (&optional right)
"Return the width of the left or optionally right margin in pixels."
(if (window-margins)
(if right
(* (frame-char-width) (cdr (window-margins))) ;;right margin
(* (frame-char-width) (car (window-margins))))
0))Server
Emacs daemon gives me nothing but headaches. This is not ideal, but it at least works.
(server-start)Ox-Hugo
I have recently started using ox-hugo to help post on my Hugo based website. The following section sets up an org-capture to enable quick blogging.
(defun org-hugo-new-subtree-post-capture-template ()
"Returns `org-capture' template string for new Hugo post.
See `org-capture-templates' for more information."
(let* (;; http://www.holgerschurig.de/en/emacs-blog-from-org-to-hugo/
(date (format-time-string (org-time-stamp-format :inactive) (org-current-time)))
(title (read-from-minibuffer "Post Title: ")) ;Prompt to enter the post title
(fname (org-hugo-slug title)))
(mapconcat #'identity
`(
,(concat "* TODO " title)
":PROPERTIES:"
,(concat ":EXPORT_FILE_NAME: " fname)
,(concat ":EXPORT_DATE: " date) ;Enter current date and time
,(concat ":EXPORT_HUGO_CUSTOM_FRONT_MATTER: " ":tags something :subtitle booyea :featured false :categories abc :highlight true ")
":END:"
"%?\n") ;Place the cursor here
"\n")))
(defvar hugo-org-path "~/Dropbox/blog/sunny-website/org-content/"
"define the place where we put our org files for hugo")
;;(defvar org-capture-blog (concat hugo-org-path "blog.org"))
(setq org-capture-templates
'(
("h" "Hugo Post"
entry
(file+olp "~/Dropbox/blog/sunny-website/org-content/blog.org" "Posts")
(function org-hugo-new-subtree-post-capture-template))))