~doom.d -> Doom/.doom.d
Proper naming, GNU/Stow style.
This commit is contained in:
dx
548
Doom/.doom.d/org/config.org
Normal file
548
Doom/.doom.d/org/config.org
Normal file
@@ -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
|
||||
Reference in New Issue
Block a user