18 KiB
18 KiB
Oreodave's Emacs configuration
Preclude
This is my Doom Emacs configuration, which I try to use for as many things as possible. It is currently my main editor overall, literally overtaking my life.
Variables and Bootstrapping other modules
Bootstrapping literate module and setting up basic variables.
Bootstrap literate
Load the literate.el file to start parsing.
(load (expand-file-name (concat doom-private-dir "bin/literate.el")))Doom Variables
(after! core-keybinds
(setq doom-localleader-key ",")
(setq doom-theme 'doom-molokai)
(setq doom-font (font-spec :family "Hack" :size 17)))- Set the doom localleader to "," because it's faster
- Using the font Hack with Fira code ligatures
Other variables
(setq completion-ignore-case t)
(setq truncate-lines t)
(setq display-line-numbers-type nil)
(setq bookmark-default-file (expand-file-name (concat doom-private-dir "/bookmarks")))
(display-battery-mode 1)
(setq-default frame-title-format '("%b - εmacs"))
(cl-pushnew '("Libgen" "https://libgen.me/search/all?search=%s") +lookup-provider-url-alist :key #'car :test 'string=)Some quality of life things and others that I couldn't really put in one category
- Displaying line numbers isn't usually something I do. If need be, I'll just open them with <SPC>tl.
- Set org directory
- Add libgen to search providers
- Looking at my battery percentage isn't very necessary but still really cool
Package Config
Projectile
Really simple, just want to set projectile-tags-command when projectile has loaded, and easily add new ignores if necessary. Add a new ignore to the tags-alist.
Add a few items to the projectile-root-files list
(after! projectile
(setq oreodave-tags-alist '("Makefile" "node_modules" "bin" "dist" "obj" "'*.json'"))
(defun oreodave/config/construct-tags ()
(reduce (lambda (x y) (concat x y)) (mapcar (lambda (i) (concat " --exclude=" i)) oreodave-tags-alist)
:initial-value "exctags -Re ")
)
(setq projectile-tags-command (oreodave/config/construct-tags))
(cl-pushnew "CMakeLists.txt" projectile-project-root-files :test #'string=)
(cl-pushnew "README.org" projectile-project-root-files :test #'string=)
(cl-pushnew "doc.org" projectile-project-root-files :test #'string=))DAP
A keybind and a routine
- Routine sets up the panes that I like to use, instead of having to M-x'ing it
- <SPC>cD starts up the routine
(after! dap-mode
(defun oreodave/debug ()
(interactive)
(dap-ui-mode)
(dap-ui-locals)
(dap-ui-sessions))
(map!
:leader
:desc "Start debugging setup" "cD" #'oreodave/debug))Elfeed
Custom functions to work with elfeed, generating new feeds on demand and adding a keybind to help with that.
(after! elfeed
(defun oreodave/elfeed/load-feeds ()
(interactive)
(setq elfeed-feeds nil)
(elfeed-load-opml (concat org-directory "/elfeed.opml")))
(defun oreodave/elfeed/on-new-feed ()
(interactive)
(elfeed-org-export-opml)
(write-file (concat org-directory "/elfeed.opml"))
(kill-current-buffer))
(map!
(:map elfeed-search-mode-map
:localleader
:desc "Update feeds" "u" #'elfeed-update)
(:leader
:prefix "o"
:desc "Open RSS" "f" #'=rss))
(add-hook 'elfeed-org-new-entry-hook 'oreodave/elfeed/on-new-feed))Dashboard
My very own dashboard config using doom dashboard, with these features:
- Custom load message
- Custom splash image and dashboard buffer name
- Custom dashboard sections for myself
(defun doom-display-benchmark-h (&optional return-p)
"Display a benchmark, showing number of packages and modules, and how quickly
they were loaded at startup.
If RETURN-P, return the message as a string instead of displaying it."
(funcall (if return-p #'format #'message)
"εmacs loaded %d packages, %d modules in %.03fs"
(- (length load-path) (length doom--initial-load-path))
(if doom-modules (hash-table-count doom-modules) 0)
(or doom-init-time
(setq doom-init-time
(float-time (time-subtract (current-time) before-init-time))))))
(setq fancy-splash-image "~/Pictures/space2.png") ; splash image
(setq +doom-dashboard-name "*dashboard*")
(setq +doom-dashboard-functions ; limit the dashboard items
'(doom-dashboard-widget-banner
doom-dashboard-widget-shortmenu
doom-dashboard-widget-loaded))
(setq +doom-dashboard-menu-sections ; Set a specific amount of items
'(("Open org-agenda"
:icon (all-the-icons-octicon "calendar" :face 'font-lock-keyword-face)
:when (fboundp 'org-agenda)
:action org-agenda)
("Open books"
:icon (all-the-icons-octicon "book" :face 'font-lock-keyword-face)
:action oreodave/goto-books)
("Check the weather"
:icon (all-the-icons-wicon "rain" :face 'font-lock-keyword-face)
:action oreodave/weather)
("Jump to bookmark"
:icon (all-the-icons-octicon "bookmark" :face 'font-lock-keyword-face)
:action bookmark-jump)))- Space image comes from website
- Remove the Github link to the official Doom Emacs repository: it's in muscle memory at this point.
-
Added my own menu items:
- Books
- Weather
Ivy posframe
Set-up config for ivy-posframe, particularly for positions
(after! ivy-posframe
(setq ivy-posframe-display-functions-alist
'((counsel-M-x . ivy-posframe-display-at-frame-bottom-window-center)
(counsel-find-file . ivy-posframe-display-at-frame-bottom-window-center)
(swiper . ivy-posframe-display-at-frame-bottom-window-center)
(swiper-isearch . ivy-posframe-display-at-frame-bottom-window-center)
(counsel-projectile-switch-to-buffer . ivy-posframe-display-at-frame-bottom-window-center)
(ivy-switch-buffer . ivy-posframe-display-at-frame-bottom-window-center)
(counsel-load-theme . ivy-posframe-display-at-frame-bottom-window-center)
(oreodave/themes/set-new-theme . ivy-posframe-display-at-frame-bottom-window-center)
(counsel-bookmark . ivy-posframe-display-at-frame-bottom-window-center))))Language Config
C-style languages
Emacs doesn't have the full range of styles that I want, so lemme just do it myself.
(after! cc-mode
(c-add-style "Custom"
'((c-basic-offset . 2)
(c-comment-only-line-offset . 0)
(c-hanging-braces-alist (brace-list-open)
(brace-entry-open)
(substatement-open after)
(block-close . c-snug-do-while)
(arglist-cont-nonempty))
(c-cleanup-list brace-else-brace)
(c-offsets-alist
(statement-block-intro . +)
(knr-argdecl-intro . 0)
(substatement-open . 0)
(substatement-label . 0)
(access-label . 0)
(label . 0)
(statement-cont . +)))))LSP
Add lsp-ui-doc-mode to lsp-ui-mode: allows you to see documentation in a little VSCode style web-kit window.
(after! lsp-mode
(add-hook 'lsp-mode-hook #'(lambda () (lsp-ui-doc-mode +1))))
(after! lsp-ui
(setq lsp-ui-doc-position 'top))CSharp
- I have custom installed the omnisharp roslyn executable, so I'd rather use that
(after! csharp-mode
(setq omnisharp-server-executable-path "~/bin/omnisharp-roslyn/run"))Unit test over whole projects
- Implemented my own function which piggy backs counsel etags to globally search tags for test specific context, then goes to it and uses an omnisharp test command to unit test it. Basically global test search in C# projects. To use this, just make sure you have tags compiled and that all your tests are written as some public void name _Test (i.e. they are appended with _Test so that the pattern can be matched)
(after! (csharp-mode counsel-etags)
(defun oreodave/csharp/get-unit-test-in-project ()
"Unit test anywhere using CTags or ETags and C#"
(interactive)
(let* ((tags-file (counsel-etags-locate-tags-file))
(cands (counsel-etags-collect-cands "void.*Test" t buffer-file-name)))
(ivy-read
"Choose test: "
cands
:action
(lambda (item)
;; From the counsel-etags file-open-api function
(when (string-match "\\`\\(.*?\\):\\([0-9]+\\):\\(.*\\)\\'" item)
(let*
((file (match-string-no-properties 1 item))
(linenum (match-string-no-properties 2 item))
;; always calculate path relative to TAGS
(default-directory (counsel-etags-tags-file-directory)))
(counsel-etags-push-marker-stack (point-marker))
(find-file file)
(counsel-etags-forward-line linenum)
(omnisharp-unit-test-at-point))))
:caller 'oreodave/csharp/get-unit-tests-in-project))))Redo omnisharp-emit-results
- Reimplemented omnisharp-emit-results to emit stdout regardless of whether the test failed or not
(after! (csharp-mode omnisharp)
(defun omnisharp--unit-test-emit-results (passed results)
"Emits unit test results as returned by the server to the unit test result buffer.
PASSED is t if all of the results have passed. RESULTS is a vector of status data for
each of the unit tests ran."
; we want to clean output buffer for result if things have passed otherwise
; compilation & test run output is to be cleared and results shown only for brevity
(omnisharp--unit-test-message "")
(seq-doseq (result results)
(-let* (((&alist 'MethodName method-name
'Outcome outcome
'ErrorMessage error-message
'ErrorStackTrace error-stack-trace
'StandardOutput stdout
'StanderError stderr) result)
(outcome-is-passed (string-equal "passed" outcome)))
(omnisharp--unit-test-message
(format "[%s] %s "
(propertize
(upcase outcome)
'font-lock-face (if outcome-is-passed
'(:foreground "green" :weight bold)
'(:foreground "red" :weight bold)))
(omnisharp--truncate-symbol-name method-name 76)))
(if error-stack-trace
(omnisharp--unit-test-message error-stack-trace))
(unless (= (seq-length stdout) 0)
(omnisharp--unit-test-message "Standard output:")
(seq-doseq (stdout-line stdout)
(omnisharp--unit-test-message stdout-line)))
(unless (= (seq-length stderr) 0)
(omnisharp--unit-test-message "Standard error:")
(seq-doseq (stderr-line stderr)
(omnisharp--unit-test-message stderr-line)))
))
(omnisharp--unit-test-message "")
(if (eq passed :json-false)
(omnisharp--unit-test-message
(propertize "*** UNIT TEST RUN HAS FAILED ***"
'font-lock-face '(:foreground "red" :weight bold)))
(omnisharp--unit-test-message
(propertize "*** UNIT TEST RUN HAS SUCCEEDED ***"
'font-lock-face '(:foreground "green" :weight bold)))
)
nil))Map for C# mode
(after! csharp-mode
(map! ; CSharp Keybinds
:map csharp-mode-map
:localleader
:desc "Format buffer" "=" #'omnisharp-code-format-entire-file
(:prefix "t"
:desc "Select Test in Project" "t" #'oreodave/csharp/get-unit-test-in-project)))Python
- I do python development for Python3, so I need to set the flycheck python checker, as well as the interpreter, to be Python3
- Most of my python work is in scripts or ideas, so I don't need extensive testing utilities or anything like that
- I run my python code a LOT and thus need commands for sending bits or whole scripts into the REPL
(after! python
(setq python-version-checked t)
(setq python-python-command "python3")
(setq python-shell-interpreter "python3")
(setq flycheck-python-pycompile-executable "python3")
(map! ; Python keybinds
:map python-mode-map
:localleader
:desc "Start python minor" "c" #'run-python
:desc "Format buffer" "=" #'py-yapf-buffer
(:prefix "s"
:desc "Send region REPL" "r" #'python-shell-send-region
:desc "Send buffer" "b" #'python-shell-send-buffer
:desc "Send function" "f" #'python-shell-send-defun)))TypeScript
- Typescript (in my opinion) should be indented by 2
- Setup the LSP server on the lsp-language-id-config in case it hasn't already
(after! typescript-mode
(setq typescript-indent-level 2)
(setq tide-format-options '(:indentSize 2 :tabSize 2))
(after! lsp
(cl-pushnew '(typescript-mode . "typescript") lsp-language-id-configuration :key #'car)
(lsp-register-client
(make-lsp-client
:new-connection (lsp-stdio-connection "typescript-language-server --stdio")
:major-modes '(typescript-mode)
:server-id 'typescript))))Keymap
- General keymap for leader
Personal
- Prefix "SPC m" (rebound from local-leader) that will hold personal keybinds for functions that I like using
- Mostly opening directories I use a lot or doing custom stuff that I can't really put in anything in particular
(map!
:leader
:prefix ("m" . "personal") ; Personal
:desc "Open books" "b" #'oreodave/goto-books ; I like my books
:desc "Open school dir" "s" #'oreodave/goto-school ; I like my schooling
:desc "Open weather" "w" #'oreodave/weather ; Nah I don't like the weather
:desc "Open notes" "n" #'(lambda () (interactive) (dired org-directory))
:desc "Change theme" "t" #'oreodave/theme/set-new-theme ; From my own collection
(:after pdf-view
:desc "Goto page on pdf" "p" #'pdf-view-goto-page)
:desc "Reload emacs" "r" #'oreodave/reload) ; Reload is necessaryCounsel
- Counsel keybind config
- Mostly just convenience stuff that happens to use counsel
(map!
:leader
:after counsel ; Counsel or ivy
:desc "M-x" "<SPC>" #'counsel-M-x ; Redefine as M-x because of my muscle memory with spacemacs
:desc "Find file here" "f." #'counsel-find-file ; Sometimes use this instead of <SPC>ff
(:prefix ("s" . "search")
:desc "RipGrep!" "r" #'counsel-rg ; Ripgrep is faster than Ag in most cases and makes me feel cool
:desc "Search Tags" "t" #'counsel-etags-find-tag)); is quicker to do than <SPC>/b, for something that is done so oftenWindow
- Keybinds to do with windows
- SPC wc < SPC wd
- Some ace-window config in the window keybind prefix
(map!
:leader
:prefix ("w" . "window") ; Windows
:desc "Close window" "d" #'+workspace/close-window-or-workspace ; is slightly closer together than <SPC>wc
:desc "Switch window" "W" #'ace-window ; is also used in spacemacs so I'd rather use this
:desc "Swap windows" "S" #'ace-swap-window) ; allows me to switch windows more efficiently than before, better than just motionsCode
- Some keybinds for the code prefix which help me with coding or working with code, particularly LSP
(map!
:leader
:prefix ("c" . "Code") ; Code
:desc "Fold all in level" "f" #'hs-hide-level
:desc "Compile via make" "C" #'+make/run
(:after format-all
:desc "Format code" "=" #'format-all-buffer)
(:after lsp
:desc "Execute action" "a" #'lsp-execute-code-action))Projectile
- Projectile config, for leader and for project prefix
(map!
:leader
:after projectile
:desc "Switch to p-buffer" ">" #'projectile-switch-to-buffer ; Opposing <SPC>< which counsel's all buffers
(:prefix ("p" . "Project")
:desc "Regen tags" "g" #'projectile-regenerate-tags
:desc "Open project files" "f" #'projectile-find-file))Fonts
- Fonts keybinds (prefix "z") for messing with fonts temp on a buffer
- Really useful when I need to zoom into something for whatever reason
(map!
:leader
:prefix ("z" . "font") ; Fonts
:desc "Increase font" "+" #'doom/increase-font-size
:desc "Decrease font" "-" #'doom/decrease-font-size
:desc "Adjust font" "z" #'text-scale-adjust)Frames
-
Keybinds for frame manipulation:
- Generate new frames from current buffer
- Generate new frames from a specific buffer
- Delete frames
- Switch frames
(map!
:leader
:prefix ("F" . "frame") ; Frames
:desc "Kill frame" "d" #'delete-frame
:desc "Current buffer frame" "m" #'make-frame
:desc "Choose Buffer frame" "n" #'display-buffer-other-frame
:desc "Switch frames" "o" #'other-frame)Other
- Miscellaneous bindings that don't really fit into any particular item
(map!
:leader
:desc "Shell command" "!" #'shell-command ; Better than M-!
(:prefix ("b" . "buffers") ; Buffers
:desc "Close buffer" "d" #'doom/kill-this-buffer-in-all-windows)
(:prefix ("o" . "open")
:after org
:desc "Calendar" "c" #'=calendar)
(:prefix ("n" . "notes")
:desc "Open notes in dired" "-" #'(lambda () (interactive) (dired org-directory))))