diff options
Diffstat (limited to 'Doom/.doom.d/org/config.org')
| -rw-r--r-- | Doom/.doom.d/org/config.org | 548 |
1 files changed, 548 insertions, 0 deletions
diff --git a/Doom/.doom.d/org/config.org b/Doom/.doom.d/org/config.org new file mode 100644 index 0000000..8783575 --- /dev/null +++ b/Doom/.doom.d/org/config.org @@ -0,0 +1,548 @@ +#+TITLE: Oreodave's Emacs configuration +#+AUTHOR: Oreodave +#+DESCRIPTION: My Doom Emacs configuration! + +* Preclude +- This is my [[https://github.com/hlissner/doom-emacs][Doom Emacs]] configuration. +- Use it for most of my code editing and development needs. +- Incredibly versatile tool in my inventory. +* Variables and Bootstrap config +Bootstrap via literate and setting up basic variables. +** Bootstrap +Load the literate.el file to start parsing. +#+BEGIN_SRC elisp +(load (expand-file-name (concat doom-private-dir "bin/literate.el"))) +#+END_SRC +** Doom Variables +#+BEGIN_SRC elisp +(after! core-keybinds + (setq doom-localleader-key ",") + (setq doom-theme 'doom-molokai) + (setq doom-font (font-spec :family "Hack" :size 17))) +#+END_SRC +- Set the doom localleader to "," because it's faster +- Using the font [[https://sourcefoundry.org/hack/][Hack]] +** Other variables +#+BEGIN_SRC elisp +(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"))) +(setq-default frame-title-format '("%b - Emacs")) +(cl-pushnew '("Libgen" "http://gen.lib.rus.ec/search.php?req=%s") +lookup-provider-url-alist :key #'car :test 'string=) +#+END_SRC +Some quality of life things and others that I couldn't really put in one category +- Using line-numbers that are relative now instead of nothing. +- Set org directory +- Add libgen to search providers +* Package Config +Config for or based heavily around specific packages that I find very important +** DAP +*** Function +First to setup is a routine for setting up all the dap-panes for debugging. +Easier to do than just running all those functions manually +- Routine sets up the panes that I like to use, instead of M-x'ing it +- *<SPC>cD* starts up the routine +#+BEGIN_SRC elisp +(after! dap-mode + (defun dx:debug () + (interactive) + (dap-ui-mode) + (dap-ui-locals) + (dap-ui-sessions))) +#+END_SRC +*** Keybind +#+BEGIN_SRC elisp + (map! + :after dap-mode + :leader + :desc "Start debugging setup" "cD" #'dx:debug) +#+END_SRC +** Elfeed +Custom functions to work with elfeed, generating new feeds on demand and adding +a keybind to help with that. +*** Feeds +Feeds for elfeed to download from. +#+BEGIN_SRC elisp +(setq elfeed-feeds + '(("http://feeds.bbci.co.uk/news/rss.xml" news) + ("http://www.technologyreview.com/rss") + ("https://news.ycombinator.com/rss" news compsci))) +#+END_SRC + +*** Keybinds +Keybinds for elfeed locally and for the leader. +#+BEGIN_SRC elisp +(map! + (:map elfeed-search-mode-map + :localleader + :desc "Update feeds" "u" #'elfeed-update) + (:leader + :prefix "o" + :desc "Open RSS" "f" #'=rss)) +#+END_SRC +** 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 + +*** Benchmark display +Redo the display-benchmark function to display a different message +#+BEGIN_SRC elisp +(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)))))) +#+END_SRC + +*** Image and buffer name +Set the splash-image and dashboard buffer name +Space image comes from [[https://flaticon.com][website]] +#+BEGIN_SRC elisp +(setq fancy-splash-image "~/Pictures/space2.png") ; splash image +(setq +doom-dashboard-name "*dashboard*") +#+END_SRC +*** Dashboard items +Set the dashboard functions (segments in overall buffer), set the sections of +the interactive menu as well. +#+BEGIN_SRC elisp +(setq +doom-dashboard-functions ; limit the dashboard items + '(doom-dashboard-widget-banner + doom-dashboard-widget-loaded + doom-dashboard-widget-shortmenu)) + +(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) + ("Check the weather" + :icon (all-the-icons-wicon "rain" :face 'font-lock-keyword-face) + :action dx:weather) + ("Jump to bookmark" + :icon (all-the-icons-octicon "bookmark" :face 'font-lock-keyword-face) + :action bookmark-jump))) +#+END_SRC +** Thesaurus +Powerthesaurus installation, added a keybind in org-mode for looking up words. +#+BEGIN_SRC elisp +(use-package! powerthesaurus + :after-call (org-mode) + :defer-incrementally (org) + :config + (map! + :localleader + :map org-mode-map + :prefix "w" + :desc "Thesaurus" "t" #'powerthesaurus-lookup-word-at-point)) +#+END_SRC +Powerthesaurus for thesaurus on writer files +** Spelling checker +Keybinds to org-mode for flyspell package +#+BEGIN_SRC elisp +(map! + :after (flyspell org) + :localleader + :map org-mode-map + :prefix "w" + :desc "Correct current word" "c" #'flyspell-correct-at-point + :desc "Autocorrect word" "a" #'flyspell-auto-correct-word + :desc "Goto next error" "w" #'flyspell-goto-next-error) +#+END_SRC +** Projectile +Add CMakeLists.txt to projectile-project-roots. +#+BEGIN_SRC elisp +(after! projectile + (cl-pushnew "CMakeLists.txt" projectile-project-root-files :test 'string=) + (setq projectile-tags-command + "ctags -e -R --exclude=dist --exclude=.ccls --exclude=.ccls-cache")) +#+END_SRC +* Language Config +Configuration for various languages which I feel can be useful +** C-style languages +Configuration for C and C++. +*** User c-style +Emacs doesn't have the full range of styles that I want, so lemme just do it myself. +#+BEGIN_SRC elisp +(after! cc-mode + (c-add-style + "user" + '((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 . +))))) +#+END_SRC +*** Pretty symbols +Setup pretty symbols specifically for C++. I import the string type via `using +std::string` which isn't supported in standard doom. So I add support for it. +#+BEGIN_SRC elisp +(after! cc-mode + (set-pretty-symbols! + '(c-mode c++-mode) + :return "return" + :or "||" + :and "&&" + :not "!" + :bool "bool" + :str "string" + :str "std::string" + :float "float" + :int "int" + :false "false" + :true "true" + :null "nullptr")) +#+END_SRC +** LSP +Add lsp-ui-doc-mode to lsp-ui-mode: allows you to see documentation in a little +VSCode style web-kit window. +#+BEGIN_SRC elisp +(after! lsp + (add-hook 'lsp-mode-hook #'lsp-ui-doc-mode) + (setq lsp-ui-doc-position 'top)) +#+END_SRC +** CSharp +- I have custom installed the omnisharp roslyn executable, so I'd rather use + that +#+BEGIN_SRC elisp +(after! csharp-mode + (setq omnisharp-server-executable-path "~/Bin/repos/omnisharp-roslyn/run")) +#+END_SRC +*** 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) +#+BEGIN_SRC elisp +(after! (csharp-mode counsel-etags) + (defun dx: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 'dx:csharp/get-unit-tests-in-project)))) +#+END_SRC +*** Redo omnisharp-emit-results +- Reimplemented omnisharp-emit-results to emit stdout regardless of whether the + test failed or not +#+BEGIN_SRC elisp +(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)) +#+END_SRC +*** Map for C# mode +#+BEGIN_SRC elisp +(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" #'dx:csharp/get-unit-test-in-project))) +#+END_SRC +** 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 +#+BEGIN_SRC elisp +(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))) +#+END_SRC +** 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 +#+BEGIN_SRC elisp +(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)))) +#+END_SRC +** Haskell +#+BEGIN_SRC elisp +(after! (haskell-mode dante) + (setq dante-repl-command-line '("stack" "ghci"))) +#+END_SRC +** FSharp +#+BEGIN_SRC elisp +(after! fsharp + (setq inferior-fsharp-program "dotnet fsi --readline")) +#+END_SRC +** Org +Org configuration to maximise org workflow. +*** Org variables +Setup the agenda-files and the org-directory. +#+BEGIN_SRC elisp +(after! org + (setq org-directory "~/Text" + org-agenda-files '("~/Text/") + org-log-repeat 'note)) +#+END_SRC +*** Org keymap +- I like using org-export often, so bind it to a primary bind. +- Narrowing is important and I use it often, so bind that to a prefix +- Loading latex fragments is nice +#+BEGIN_SRC elisp +(map! ; Org keybinds + :after org + :map org-mode-map + :localleader + :desc "Org dispatch" "e" #'org-export-dispatch + :desc "Org LaTeX" "E" #'org-latex-export-as-latex + :desc "Load fragments" "L" #'org-latex-preview + (:prefix ("N" . "narrow") + :desc "Narrow to subtree" "n" #'org-narrow-to-subtree + :desc "Go out of narrow" "o" #'widen)) +#+END_SRC +* Key-map +General keymap +** 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 +#+BEGIN_SRC elisp +(map! + :leader + :prefix ("m" . "personal") ; Personal + :desc "Open Reviews" "a" #'(lambda () (interactive) (doom-project-find-file "~/Text/Reviews")) + :desc "Open books" "b" #'(lambda () (interactive) (dired (concat org-directory "/Books"))); I like my books + :desc "Open school dir" "s" #'(lambda () (interactive) (dired (expand-file-name "~/School"))) + :desc "Open notes" "n" #'(lambda () (interactive) (dired org-directory)) + :desc "Open code" "c" #'(lambda () (interactive) (dired (expand-file-name "~/Code"))) + :desc "Open weather" "w" #'dx:weather + :desc "Change theme" "t" #'dx:themes/set-new-theme ; From my own collection + :desc "Generate template" "g" #'+gentemplate/generate-template ; From my own collection + (:after pdf-view + :desc "Goto page on pdf" "p" #'pdf-view-goto-page) + :desc "Reload emacs" "r" #'dx:reload) ; Reload is necessary +#+END_SRC +** Counsel +- Counsel keybind config +- Mostly just convenience stuff that happens to use counsel +#+BEGIN_SRC elisp +(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 + (: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 often +#+END_SRC +** Window +- Keybinds to do with windows +- SPC wc < SPC wd +- Some ace-window config in the window keybind prefix +#+BEGIN_SRC elisp +(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 motions +#+END_SRC +** Code +*** Narrow handlers +- Toggles narrow to function by checking a variable +#+BEGIN_SRC elisp +(setq dx:narrow/narrow-state 0) +(defun dx:narrow/toggle-narrow-state () + (if (= dx:narrow/narrow-state 1) + (setq dx:narrow/narrow-state 0) + (setq dx:narrow/narrow-state 1))) + +(add-hook 'post-command-hook #'dx:narrow/toggle-narrow-state) + +(defun dx:narrow/toggle-narrow () + (interactive) + (if (= dx:narrow/narrow-state 1) + (narrow-to-defun) + (widen))) +#+END_SRC +*** Keybinds +- Some keybinds for the code prefix which help me with coding or working with + code, particularly LSP +#+BEGIN_SRC elisp +(map! + :leader + :prefix ("c" . "code") ; Code + :desc "Compile via make" "C" #'+make/run + :desc "Undo tree" "u" #'undo-tree-visualize + :desc "Narrow to function" "n" #'dx:narrow/toggle-narrow + (:after format-all + :desc "Format code" "=" #'format-all-buffer) + (:after lsp + :desc "Format code lsp" "f" #'+default/lsp-format-region-or-buffer + :desc "Execute action" "a" #'lsp-execute-code-action) + (:after dap-mode + :desc "Debug hydra" "h" #'dap-hydra)) +#+END_SRC +** Projectile +- Projectile config, for leader and for project prefix +#+BEGIN_SRC elisp +(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)) +#+END_SRC +** 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 +#+BEGIN_SRC elisp +(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) +#+END_SRC +** Frames +- Keybinds for frame manipulation: + - Generate new frames from current buffer + - Generate new frames from a specific buffer + - Delete frames + - Switch frames +#+BEGIN_SRC elisp +(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) +#+END_SRC +** Other +*** Leader +- Miscellaneous leader bindings that don't really fit into any particular item +#+BEGIN_SRC elisp +(map! + :leader + :desc "Shell command" "!" #'async-shell-command ; Better than M-! + (:prefix ("b" . "buffers") ; Buffers + :desc "Close buffer" "d" #'doom/kill-this-buffer-in-all-windows) + (:prefix ("f" . "files") + :desc "Open dotfiles" "p" #'(lambda () (interactive) (doom-project-find-file "~/Dotfiles"))) + (:prefix ("o" . "open") + :after org + :desc "Calendar" "c" #'=calendar) + (:prefix ("n" . "notes") + :desc "Open notes in dired" "-" #'(lambda () (interactive) (dired org-directory)))) +#+END_SRC +*** Non-leader +#+BEGIN_SRC elisp +(map! + :n "gk" #'evil-backward-section-begin + :n "gK" #'evil-backward-section-end + :n "gj" #'evil-forward-section-begin + :n "gJ" #'evil-forward-section-end) +#+END_SRC |