mirror of
https://github.com/Foltik/dotfiles
synced 2024-11-27 13:13:12 -05:00
Compare commits
4 Commits
52f31290bf
...
3818023a94
| Author | SHA1 | Date | |
|---|---|---|---|
| 3818023a94 | |||
| 39aa106fee | |||
| 92bf8b2441 | |||
| bc68e6e5cd |
@ -40,6 +40,11 @@ function ls; exa $argv; end
|
||||
function ll; exa -l $argv; end
|
||||
function vim; nvim $argv; end
|
||||
|
||||
function k; kubectl $argv; end
|
||||
function ka; kubectl $argv --all-namespaces; end
|
||||
function kw; watch -n1 "kubectl $argv"; end
|
||||
function kx; kubectl config use-context $argv; end
|
||||
|
||||
# Dotfiles management
|
||||
function dots
|
||||
if test (count $argv) -eq 1
|
||||
|
||||
6
.doom.d/abbrevs.el
Normal file
6
.doom.d/abbrevs.el
Normal file
@ -0,0 +1,6 @@
|
||||
;;-*-coding: utf-8;-*-
|
||||
(define-abbrev-table 'emacs-lisp-mode-abbrev-table
|
||||
'(
|
||||
("blah" "blaz" nil :count 1)
|
||||
))
|
||||
|
||||
@ -1,855 +0,0 @@
|
||||
(doom-load-envvars-file (concat doom-private-dir "env.el"))
|
||||
|
||||
(setq doom-modeline-major-mode-icon t)
|
||||
|
||||
(make-variable-buffer-local 'lexical-binding)
|
||||
(setq lexical-binding t)
|
||||
|
||||
(use-package request
|
||||
:commands request)
|
||||
|
||||
(defmacro request! (url plist success &optional error)
|
||||
"Makes an HTTP request with `request`, running SUCCESS on success, and
|
||||
ERROR on error if specified.
|
||||
|
||||
Any arguments of LAMBDA are bound to the corresponding plist keys
|
||||
returned by `request`."
|
||||
(let ((handler (lambda (fn)
|
||||
;; Wraps a lambda in `cl-function`,
|
||||
;; and converts args (foo) into (&key foo &allow-other-keys)
|
||||
`(cl-function
|
||||
(lambda
|
||||
,(append
|
||||
(mapcan (lambda (arg) `(&key ,arg))
|
||||
(cadr fn))
|
||||
'(&allow-other-keys))
|
||||
,@(cddr fn))))))
|
||||
|
||||
`(request ,url
|
||||
,@plist
|
||||
:success ,(funcall handler success)
|
||||
,@(if error `(:error ,(funcall handler error))))))
|
||||
|
||||
(defun my/line ()
|
||||
(buffer-substring-no-properties
|
||||
(line-beginning-position)
|
||||
(line-end-position)))
|
||||
|
||||
(defun my/line-match-p (regexp)
|
||||
(string-match-p regexp (my/line)))
|
||||
|
||||
(defun my/insert-mode-p ()
|
||||
(eq evil-state 'insert))
|
||||
(defun my/normal-mode-p ()
|
||||
(eq evil-state 'normal))
|
||||
|
||||
(defun my/kbd-replace (str)
|
||||
"Convert STR into a keyboard macro string by replacing terminal key sequences with GUI keycodes."
|
||||
(let ((kbd-regex '(("ESC" . "<escape>")
|
||||
("DEL" . "<delete>" )
|
||||
("BS" . "<backspace>")
|
||||
("RET" . "<return>")
|
||||
("SPC" . "<SPC>")
|
||||
("TAB" . "<tab>"))))
|
||||
(my/replace-regexps-in-string str kbd-regex)))
|
||||
|
||||
(setq my//kbd-p nil)
|
||||
(defun my/kbd!-p () (eq my//kbd-p t))
|
||||
|
||||
(defun kbd! (str)
|
||||
"Execute the key sequence defined by STR like a VIM macro."
|
||||
(let ((minibuffer-message-timeout 0))
|
||||
(setq my//kbd-p t)
|
||||
(execute-kbd-macro (read-kbd-macro (my/kbd-replace str)))
|
||||
(setq my//kbd-p nil)))
|
||||
|
||||
(defun my/buffer-local-set-key (key fn)
|
||||
(let ((mode (intern (format "%s-local-mode" (buffer-name))))
|
||||
(map (intern (format "%s-local-mode-map" (buffer-name)))))
|
||||
(unless (boundp map)
|
||||
(set map (make-sparse-keymap))
|
||||
(evil-make-overriding-map map 'normal))
|
||||
(eval
|
||||
`(define-minor-mode ,mode
|
||||
"A minor mode for buffer-local keybinds."
|
||||
:keymap ,map))
|
||||
(eval
|
||||
`(define-key ,map ,key #',fn))
|
||||
(funcall mode t)))
|
||||
|
||||
(defun my/replace-regexps-in-string (str regexps)
|
||||
"Replace all pairs of (regex . replacement) defined by REGEXPS in STR."
|
||||
(if (null regexps)
|
||||
str
|
||||
(my/replace-regexps-in-string
|
||||
(replace-regexp-in-string (caar regexps) (cdar regexps) str t)
|
||||
(cdr regexps))))
|
||||
|
||||
(setq auth-sources '("~/.authinfo.gpg"))
|
||||
|
||||
(use-package auth-source :commands auth-source-search)
|
||||
|
||||
(defmacro my/with-credential (query name &rest body)
|
||||
"Evaluates BODY with NAME bound as the secret from AUTH-SOURCES matching criteria QUERY."
|
||||
`
|
||||
(let* ((entry (nth 0 (auth-source-search ,@query)))
|
||||
(,name (when entry
|
||||
(let ((secret (plist-get entry :secret)))
|
||||
(if (functionp secret)
|
||||
(funcall secret)
|
||||
secret)))))
|
||||
,@body))
|
||||
|
||||
(setq doom-theme 'doom-catppuccin)
|
||||
|
||||
(setq doom-font (font-spec :family "monospace" :size 13)
|
||||
doom-big-font (font-spec :family "monospace" :size 13)
|
||||
doom-variable-pitch-font (font-spec :family "sans-serif" :size 13))
|
||||
|
||||
(set-frame-parameter (selected-frame) 'alpha-background 85)
|
||||
(add-to-list 'default-frame-alist '(alpha-background . 85))
|
||||
|
||||
(setq evil-want-fine-undo t)
|
||||
|
||||
(defmacro my//center-cmd (name &rest body)
|
||||
`(defun ,name ()
|
||||
(interactive)
|
||||
,@body
|
||||
(call-interactively #'evil-scroll-line-to-center)))
|
||||
|
||||
(my//center-cmd my/scroll-up (evil-scroll-up evil-scroll-count))
|
||||
(my//center-cmd my/scroll-down (evil-scroll-down evil-scroll-count))
|
||||
|
||||
(my//center-cmd my/jump-forward (better-jumper-jump-forward))
|
||||
(my//center-cmd my/jump-backward (better-jumper-jump-backward))
|
||||
|
||||
(my//center-cmd my/search-next (evil-ex-search-next))
|
||||
(my//center-cmd my/search-prev (evil-ex-search-previous))
|
||||
|
||||
(my//center-cmd my/forward-paragraph (evil-forward-paragraph))
|
||||
(my//center-cmd my/backward-paragraph (evil-backward-paragraph))
|
||||
|
||||
(my//center-cmd my/forward-section-begin (evil-forward-section-begin))
|
||||
(my//center-cmd my/forward-section-end (evil-forward-section-end))
|
||||
(my//center-cmd my/backward-section-begin (evil-backward-section-begin))
|
||||
(my//center-cmd my/backward-section-end (evil-backward-section-end))
|
||||
|
||||
(defun my/duplicate-and-comment-line ()
|
||||
(interactive)
|
||||
(kbd! "yyp k gcc j"))
|
||||
|
||||
(defun my/line-numbers-relative ()
|
||||
(setq display-line-numbers 'relative))
|
||||
(defun my/line-numbers-absolute ()
|
||||
(setq display-line-numbers 'absolute))
|
||||
(add-hook 'evil-insert-state-entry-hook #'my/line-numbers-absolute)
|
||||
(add-hook 'evil-insert-state-exit-hook #'my/line-numbers-relative)
|
||||
|
||||
(global-undo-tree-mode)
|
||||
(add-hook 'evil-local-mode-hook 'turn-on-undo-tree-mode)
|
||||
|
||||
(use-package copilot
|
||||
:commands (copilot-complete))
|
||||
|
||||
(defun my/copilot-complete ()
|
||||
(interactive)
|
||||
(copilot-complete)
|
||||
(my/hydra-copilot/body)
|
||||
(copilot-clear-overlay))
|
||||
|
||||
(defhydra my/hydra-copilot ()
|
||||
"Copilot"
|
||||
("<return>" copilot-accept-completion "Accept" :color blue )
|
||||
("<tab>" copilot-next-completion "Next" )
|
||||
("<backtab>" copilot-previous-completion "Prev")
|
||||
("<escape>" copilot-clear-overlay "Cancel" :color blue))
|
||||
|
||||
(setq doom-scratch-initial-major-mode 'lisp-interaction-mode)
|
||||
|
||||
(map! :leader
|
||||
"b" nil
|
||||
"f" nil
|
||||
"h" nil
|
||||
"p" nil
|
||||
"t" nil
|
||||
"w" nil
|
||||
"c" nil)
|
||||
|
||||
(map! :map evil-org-mode-map
|
||||
:n "zc" nil)
|
||||
|
||||
(map!
|
||||
:desc "Increase font size" :ni "C-=" #'text-scale-increase
|
||||
:desc "Decrease font size" :ni "C--" #'text-scale-decrease
|
||||
:desc "Reset font size" :ni "C-+" #'my/text-scale-reset)
|
||||
|
||||
(defun my/text-scale-reset ()
|
||||
(interactive)
|
||||
(text-scale-set 0))
|
||||
|
||||
(map!
|
||||
:desc "Copilot" :i "C-?" #'my/copilot-complete)
|
||||
|
||||
(map! :map lsp-mode-map
|
||||
:desc "Apply code action" :ni "C-/" #'lsp-execute-code-action
|
||||
|
||||
:desc "Show definitions" :ni "C-." #'+lookup/definition
|
||||
:desc "Show references" :ni "C->" #'my/lookup/references
|
||||
|
||||
:desc "Jump backward" :ni "C-," #'better-jumper-jump-backward
|
||||
:desc "Jump backward" :ni "C-<" #'better-jumper-jump-forward)
|
||||
|
||||
(defun my/lsp/lookup-references ()
|
||||
(interactive)
|
||||
(lsp-treemacs-references t))
|
||||
|
||||
(map! :map minibuffer-mode-map
|
||||
:desc "Next history" "C-j" #'next-history-element
|
||||
:desc "Prev history" "C-k" #'previous-history-element)
|
||||
|
||||
(map!
|
||||
:desc "Save file" "C-s" #'save-buffer)
|
||||
|
||||
(map!
|
||||
:desc "Scroll page up" :ni "C-S-k" #'my/scroll-up
|
||||
:desc "Scroll page down" :ni "C-S-j" #'my/scroll-down
|
||||
:desc "Scroll line up" :ni "C-k" #'evil-scroll-line-up
|
||||
:desc "Scroll line down" :ni "C-j" #'evil-scroll-line-down
|
||||
|
||||
:desc "Jump forward" :n "C-o" #'my/jump-forward
|
||||
:desc "Jump backward" :n "C-o" #'my/jump-backward
|
||||
|
||||
:desc "Search next" :n "n" #'my/search-next
|
||||
:desc "Search prev" :n "N" #'my/search-prev
|
||||
|
||||
:desc "Forward paragraph" :n "}" #'my/forward-paragraph
|
||||
:desc "Backward paragraph" :n "{" #'my/backward-paragraph
|
||||
|
||||
:desc "Forward section begin" :n "]]" #'my/forward-section-begin
|
||||
:desc "Forward section end" :n "][" #'my/forward-section-end
|
||||
:desc "Backward section begin" :n "[]" #'my/backward-section-begin
|
||||
:desc "Backward section end" :n "[[" #'my/backward-section-end)
|
||||
|
||||
(map!
|
||||
:desc "Undo tree visualizer" :n "U" #'undo-tree-visualize)
|
||||
|
||||
(map!
|
||||
:desc "Duplicate and comment line" :n "gC" #'my/duplicate-and-comment-line)
|
||||
|
||||
(map! :leader
|
||||
:desc "M-x" "x" #'counsel-M-x
|
||||
:desc "M-:" ";" #'pp-eval-expression)
|
||||
|
||||
(map! :leader
|
||||
:desc "Find file" "." #'counsel-find-file
|
||||
:desc "Find dir" ">" #'+default/dired
|
||||
|
||||
:desc "Find in project" "SPC" #'+ivy/projectile-find-file
|
||||
:desc "Find in project uncached" "C-SPC" #'my/projectile-find-file-nocache)
|
||||
|
||||
(defun my/projectile-find-file-nocache ()
|
||||
(interactive)
|
||||
(projectile-invalidate-cache nil)
|
||||
(+ivy/projectile-find-file))
|
||||
|
||||
(map! :leader
|
||||
:desc "Switch buffer" "," #'+vertico/switch-workspace-buffer
|
||||
:desc "Switch all buffers" "<" #'consult-buffer)
|
||||
|
||||
(map! :leader
|
||||
:desc "Search online" "/" #'my/counsel-search)
|
||||
|
||||
(map! :leader
|
||||
:prefix ("b" . "buffers")
|
||||
|
||||
:desc "Switch buffer" "b" #'consult-buffer
|
||||
:desc "ibuffer" "i" #'ibuffer
|
||||
|
||||
:desc "Kill buffer" "d" #'kill-current-buffer
|
||||
:desc "Kill all buffers" "D" #'doom/kill-all-buffers)
|
||||
|
||||
(map! :leader
|
||||
:prefix ("f" . "files")
|
||||
|
||||
:desc "Recent files" "r" #'consult-recent-file
|
||||
|
||||
:desc "Find file" "f" #'counsel-find-file
|
||||
:desc "Find file as root" "u" #'doom/sudo-find-file
|
||||
:desc "Find package" "p" #'counsel-find-library
|
||||
|
||||
:desc "Copy this file" "c" #'doom/copy-this-file
|
||||
:desc "Delete this file" "d" #'doom/delete-this-file
|
||||
:desc "Delete file" "D" #'delete-file
|
||||
:desc "Move this file" "m" #'doom/move-this-file
|
||||
:desc "Revert this file" "l" #'revert-buffer
|
||||
|
||||
:desc "Copy file path" "y" #'+default/yank-buffer-path
|
||||
:desc "Copy project file path" "Y" #'+default/yank-buffer-path-relative-to-project
|
||||
|
||||
:desc "Open scratch" "x" #'doom/open-scratch-buffer)
|
||||
|
||||
(map! :leader
|
||||
:prefix ("f s" . "snippets")
|
||||
:desc "Find snippet" "f" #'my/yas-find-snippet
|
||||
:desc "New snippet" "n" #'yas/new-snippet
|
||||
:desc "Edit snippet" "e" #'my/yas-edit-snippet
|
||||
|
||||
:desc "Describe snippets" "d" #'yas/describe-tables
|
||||
:desc "Reload snippets" "r" #'yas/reload-all
|
||||
:desc "Browse docs" "?" #'my/yas-browse-docs)
|
||||
|
||||
(defun my/yas-browse-docs ()
|
||||
(interactive)
|
||||
(browse-url "https://joaotavora.github.io/yasnippet"))
|
||||
|
||||
(defun my/yas-edit-snippet ()
|
||||
(interactive)
|
||||
(call-interactively #'yas/visit-snippet-file))
|
||||
|
||||
(defun my/yas-find-snippet ()
|
||||
(interactive)
|
||||
(counsel-find-file nil +snippets-dir))
|
||||
|
||||
(map! :leader
|
||||
:prefix ("f e" . "emacs")
|
||||
:desc "Find in config" "f" #'doom/find-file-in-private-config
|
||||
:desc "Reload config" "r" #'doom/reload
|
||||
|
||||
:desc "Edit config" "c" #'my/edit-config
|
||||
:desc "Edit packages" "p" #'my/edit-packages
|
||||
:desc "Edit env" "e" #'my/edit-env
|
||||
:desc "Edit init" "i" #'my/edit-init)
|
||||
|
||||
(defun my/edit-config ()
|
||||
(interactive)
|
||||
(find-file (concat doom-private-dir "config.org")))
|
||||
(defun my/edit-packages ()
|
||||
(interactive)
|
||||
(find-file (concat doom-private-dir "packages.el")))
|
||||
(defun my/edit-init ()
|
||||
(interactive)
|
||||
(find-file (concat doom-private-dir "init.el")))
|
||||
(defun my/edit-env ()
|
||||
(interactive)
|
||||
(find-file (concat doom-private-dir "env.el")))
|
||||
|
||||
(define-derived-mode org-config-mode org-mode "Org config mode")
|
||||
(add-to-list 'auto-mode-alist '("config\\.org" . org-config-mode))
|
||||
|
||||
(map! :leader
|
||||
:prefix ("h" . "help")
|
||||
|
||||
:desc "Apropos" "/" #'consult-apropos
|
||||
:desc "Apropos docs" "?" #'apropos-documentation
|
||||
|
||||
:desc "Help at point" "p" #'helpful-at-point
|
||||
:desc "Help info" "h" #'info
|
||||
:desc "Help for help" "H" #'help-for-help
|
||||
|
||||
:desc "Describe mode" "m" #'describe-mode
|
||||
:desc "Describe minor modes" "M" #'doom/describe-active-minor-mode
|
||||
:desc "Describe function" "f" #'counsel-describe-function
|
||||
:desc "Describe function key" "F" #'where-is
|
||||
:desc "Describe variable" "v" #'counsel-describe-variable
|
||||
:desc "Describe custom variable" "V" #'doom/help-custom-variable
|
||||
:desc "Describe command" "x" #'helpful-command
|
||||
:desc "Describe key" "k" #'describe-key-briefly
|
||||
:desc "Describe key fully" "K" #'describe-key
|
||||
:desc "Describe char" "'" #'describe-char
|
||||
:desc "Describe coding system" "\"" #'describe-coding-system
|
||||
:desc "Describe input method" "i" #'describe-input-method
|
||||
|
||||
:desc "Emacs manual" "e" #'info-emacs-manual
|
||||
:desc "ASCII table" "a" #'my/ascii-table
|
||||
|
||||
:desc "View messages" "e" #'view-echo-area-messages
|
||||
:desc "View keystrokes" "l" #'view-lossage)
|
||||
|
||||
(defface my/ascii-table-highlight-face
|
||||
'((t (:foreground "pink")))
|
||||
"Face for highlighting ASCII chars.")
|
||||
|
||||
(defun my/ascii-table ()
|
||||
"Display basic ASCII table (0 thru 128)."
|
||||
(interactive)
|
||||
(pop-to-buffer "*ASCII*")
|
||||
(erase-buffer)
|
||||
(setq buffer-read-only nil)
|
||||
(my/buffer-local-set-key "q" #'+popup/quit-window)
|
||||
(setq lower32 '("nul" "soh" "stx" "etx" "eot" "enq" "ack" "bel"
|
||||
"bs" "ht" "nl" "vt" "np" "cr" "so" "si"
|
||||
"dle" "dc1" "dc2" "dc3" "dc4" "nak" "syn" "etb"
|
||||
"can" "em" "sub" "esc" "fs" "gs" "rs" "us"))
|
||||
(save-excursion (let ((i -1))
|
||||
(insert " Hex Dec Char | Hex Dec Char | Hex Dec Char | Hex Dec Char\n")
|
||||
(insert " ---------------+-----------------+-----------------+----------------\n")
|
||||
(while (< i 31)
|
||||
(insert (format "%4x %4d %4s | %4x %4d %4s | %4x %4d %4s | %4x %4d %4s\n"
|
||||
(setq i (+ 1 i)) i (elt lower32 i)
|
||||
(setq i (+ 32 i)) i (single-key-description i)
|
||||
(setq i (+ 32 i)) i (single-key-description i)
|
||||
(setq i (+ 32 i)) i (single-key-description i)))
|
||||
(overlay-put (make-overlay (- (point) 4) (- (point) 1)) 'face 'my/ascii-table-highlight-face)
|
||||
(overlay-put (make-overlay (- (point) 22) (- (point) 19)) 'face 'my/ascii-table-highlight-face)
|
||||
(overlay-put (make-overlay (- (point) 40) (- (point) 37)) 'face 'my/ascii-table-highlight-face)
|
||||
(overlay-put (make-overlay (- (point) 58) (- (point) 55)) 'face 'my/ascii-table-highlight-face)
|
||||
(setq i (- i 96))
|
||||
))))
|
||||
|
||||
(set-popup-rule! "^\\*ASCII"
|
||||
:side 'right
|
||||
:select t
|
||||
:width 70)
|
||||
|
||||
(map! :leader
|
||||
:prefix ("h d" . "doom")
|
||||
|
||||
:desc "Doom manual" "d" #'doom/help
|
||||
:desc "Doom FAQ" "f" #'doom/help-faq
|
||||
:desc "Doom modules" "m" #'doom/help-modules
|
||||
:desc "Doom news" "n" #'doom/help-news
|
||||
:desc "Doom help search" "/" #'doom/help-search-headings
|
||||
|
||||
:desc "Doom version" "v" #'doom/version
|
||||
|
||||
:desc "Doom package configuration" "p" #'doom/help-package-config
|
||||
:desc "Doom sandbox" "x" #'doom/sandbox)
|
||||
|
||||
(map! :leader
|
||||
:prefix ("p" . "projects")
|
||||
:desc "Switch project" "p" #'my/projectile-switch-project
|
||||
:desc "Add new project" "a" #'projectile-add-known-project
|
||||
:desc "Remove project" "d" #'projectile-remove-known-project
|
||||
|
||||
:desc "Find in project root" "." #'counsel-projectile-find-file
|
||||
:desc "Search in project" "/" #'+default/search-project
|
||||
|
||||
:desc "Invalidate project cache" "i" #'projectile-invalidate-cache
|
||||
|
||||
:desc "Run cmd in project root" "!" #'projectile-run-shell-command-in-root
|
||||
:desc "Run async cmd in project root" "&" #'projectile-run-async-shell-command-in-root)
|
||||
|
||||
(defun my/projectile-find-in-root ()
|
||||
(interactive)
|
||||
(counsel-find-file nil projectile-project-root))
|
||||
|
||||
(map! :leader
|
||||
:prefix ("t" . "toggle")
|
||||
;; Wrap
|
||||
:desc "Auto Wrap" "a" #'auto-fill-mode
|
||||
:desc "Wrap Indicator" "c" #'global-display-fill-column-indicator-mode
|
||||
:desc "Wrap Column" "C" #'set-fill-column
|
||||
:desc "Line Wrap" "w" #'visual-line-mode
|
||||
;; Modes
|
||||
:desc "Flycheck" "f" #'flycheck-mode
|
||||
:desc "Keycast" "k" #'keycast-mode
|
||||
;; Files
|
||||
:desc "Read-only" "r" #'read-only-mode)
|
||||
|
||||
(defun my/auto-fill-mode (cols)
|
||||
(interactive))
|
||||
|
||||
(map! :leader
|
||||
:prefix-map ("w" . "window")
|
||||
;; Navigation
|
||||
:desc "Go..." "w" #'ace-window
|
||||
:desc "Go left" "h" #'evil-window-left
|
||||
:desc "Go down" "j" #'evil-window-down
|
||||
:desc "Go up" "k" #'evil-window-up
|
||||
:desc "Go right" "l" #'evil-window-right
|
||||
:desc "Go other" "o" #'other-window
|
||||
;; Layout
|
||||
:desc "Rotate up" "K" #'evil-window-rotate-upwards
|
||||
:desc "Rotate down" "J" #'evil-window-rotate-downwards
|
||||
;; Splits
|
||||
:desc "VSplit" "=" #'+evil/window-vsplit-and-follow
|
||||
:desc "HSplit" "-" #'+evil/window-split-and-follow
|
||||
:desc "Tear off" "t" #'tear-off-window
|
||||
;; History
|
||||
:desc "Undo" "u" #'winner-undo
|
||||
:desc "Redo" "U" #'winner-redo
|
||||
;; Misc
|
||||
:desc "Resize" "r" #'my/hydra-window-resize/body
|
||||
:desc "Balance" "b" #'balance-windows
|
||||
;; Management
|
||||
:desc "Kill window" "d" #'+workspace/close-window-or-workspace)
|
||||
;; TODO: Maybe check out:
|
||||
;; evil-window-mru
|
||||
|
||||
(setq my/window-resize-step 3)
|
||||
|
||||
(defun my/window-increase-height ()
|
||||
(interactive)
|
||||
(evil-window-increase-height my/window-resize-step))
|
||||
(defun my/window-decrease-height ()
|
||||
(interactive)
|
||||
(evil-window-decrease-height my/window-resize-step))
|
||||
(defun my/window-increase-width ()
|
||||
(interactive)
|
||||
(evil-window-increase-width my/window-resize-step))
|
||||
(defun my/window-decrease-width ()
|
||||
(interactive)
|
||||
(evil-window-decrease-width my/window-resize-step))
|
||||
|
||||
(defhydra my/hydra-window-resize ()
|
||||
"Resize window"
|
||||
("k" my/window-increase-height "++Height")
|
||||
("j" my/window-decrease-height "--Height")
|
||||
("h" my/window-decrease-width "--Width")
|
||||
("l" my/window-increase-width "++Width")
|
||||
("ESC" nil "Quit" :color blue))
|
||||
|
||||
(map! :leader
|
||||
:prefix ("c" . "code")
|
||||
|
||||
:desc "Format region/buffer" "f" #'+format/region-or-buffer
|
||||
:desc "Format imports" "F" #'lsp-organize-imports
|
||||
|
||||
:desc "Rename symbol" "r" #'lsp-rename
|
||||
|
||||
:desc "Show errors list" "x" #'+default/diagnostics
|
||||
:desc "Show errors tree" "X" #'lsp-treemacs-errors-list
|
||||
:desc "Show symbols tree" "s" #'lsp-treemacs-symbols
|
||||
|
||||
:desc "Visit lens" "l" #'lsp-avy-lens
|
||||
|
||||
:desc "Restart LSP" "q" #'lsp-restart-workspace)
|
||||
|
||||
(map! :map org-config-mode-map
|
||||
:localleader
|
||||
:v :desc "Eval Region" "e" #'eval-region
|
||||
:n :desc "Eval Source" "e" #'my/org-config-eval-source)
|
||||
|
||||
(defun my/org-config-eval-source ()
|
||||
(interactive)
|
||||
(org-ctrl-c-ctrl-c)
|
||||
(org-babel-remove-result))
|
||||
|
||||
(map! :map rustic-mode-map
|
||||
:localleader
|
||||
"b" nil
|
||||
"t" nil)
|
||||
|
||||
(map! :map rustic-mode-map
|
||||
:localleader
|
||||
:desc "Edit Cargo.toml" "t" #'my/rust/edit-cargo-toml)
|
||||
|
||||
(map! :map rustic-mode-map
|
||||
:leader
|
||||
:prefix ("c" . "code")
|
||||
:desc "Expand macro" "m" #'lsp-rust-analyzer-expand-macro
|
||||
:desc "Open docs" "h" #'lsp-rust-analyzer-open-external-docs)
|
||||
|
||||
(map! :map rustic-mode-map
|
||||
:prefix ("cb" . "build")
|
||||
|
||||
:desc "Build" "b" #'rustic-cargo-check
|
||||
:desc "Check" "c" #'rustic-cargo-check
|
||||
|
||||
:desc "Debug" "d" #'my/rust/dap-hydra/body
|
||||
:desc "Run" "r" #'rustic-cargo-run
|
||||
|
||||
:desc "Bench" "B" #'rustic-cargo-bench
|
||||
:desc "Test current" "t" #'rustic-cargo-current-test
|
||||
:desc "Test all" "T" #'rustic-cargo-test)
|
||||
|
||||
(map! :map rustic-mode-map
|
||||
:desc "Pluralize import" "," #'my/rust/import-pluralize
|
||||
:desc "Singularize import" "<backspace>" #'my/rust/import-singularize
|
||||
:desc "Singularize import" "C-<backspace>" #'my/rust/import-c-singularize)
|
||||
|
||||
(defhydra my/rust/dap-hydra (:color pink :hint nil :foreign-keys run)
|
||||
"
|
||||
^Stepping^ ^Switch^ ^Breakpoints^ ^Debug^ ^Eval
|
||||
^^^^^^^^----------------------------------------------------------------------------------------------------------------
|
||||
_n_: Next _ss_: Session _bb_: Toggle _dd_: Debug binary _ee_: Eval
|
||||
_i_: Step in _st_: Thread _bd_: Delete _dr_: Restart debugging _es_: Eval thing at point
|
||||
_o_: Step out _sf_: Stack frame _ba_: Add _ea_: Add expression
|
||||
_c_: Continue _su_: Up stack frame _bc_: Set condition
|
||||
_Q_: Disconnect _sd_: Down stack frame _bh_: Set hit count
|
||||
_sl_: List locals _bl_: Set log message
|
||||
_sb_: List breakpoints
|
||||
_sS_: List sessions
|
||||
"
|
||||
("n" dap-next)
|
||||
("i" dap-step-in)
|
||||
("o" dap-step-out)
|
||||
("c" dap-continue)
|
||||
("r" dap-restart-frame)
|
||||
("ss" dap-switch-session)
|
||||
("st" dap-switch-thread)
|
||||
("sf" dap-switch-stack-frame)
|
||||
("su" dap-up-stack-frame)
|
||||
("sd" dap-down-stack-frame)
|
||||
("sl" dap-ui-locals)
|
||||
("sb" dap-ui-breakpoints)
|
||||
("sS" dap-ui-sessions)
|
||||
("bb" dap-breakpoint-toggle)
|
||||
("ba" dap-breakpoint-add)
|
||||
("bd" dap-breakpoint-delete)
|
||||
("bc" dap-breakpoint-condition)
|
||||
("bh" dap-breakpoint-hit-condition)
|
||||
("bl" dap-breakpoint-log-message)
|
||||
("dd" my/rust/debug-binary)
|
||||
("dr" dap-debug-restart)
|
||||
("ee" dap-eval)
|
||||
("ea" dap-ui-expressions-add)
|
||||
("es" dap-eval-thing-at-point)
|
||||
("q" nil "quit" :color blue)
|
||||
("Q" dap-disconnect :color red))
|
||||
|
||||
(map! :map cargo-toml-mode-map
|
||||
:localleader
|
||||
:desc "Add crate (semver)" "a" #'my/rust/cargo-toml-add-crate-semver
|
||||
:desc "Add crate (exact)" "A" #'my/rust/cargo-toml-add-crate)
|
||||
|
||||
(map! :prefix "z"
|
||||
:desc "Kill buffer" :n "x" #'kill-current-buffer
|
||||
:desc "Kill window" :n "c" #'+workspace/close-window-or-workspace)
|
||||
|
||||
(map! :prefix "["
|
||||
:desc "Start of fn" :n "f" #'beginning-of-defun)
|
||||
|
||||
(map! :prefix "]"
|
||||
:desc "End of fn" :n "f" #'end-of-defun)
|
||||
|
||||
|
||||
|
||||
(add-to-list 'projectile-globally-ignored-files "Cargo.lock")
|
||||
|
||||
(setq lsp-rust-analyzer-inlay-hints-mode t)
|
||||
(setq lsp-rust-analyzer-server-display-inlay-hints t)
|
||||
|
||||
(setq lsp-rust-analyzer-display-closure-return-type-hints t)
|
||||
(setq lsp-rust-analyzer-display-lifetime-elision-hints-enable "skip_trivial")
|
||||
(setq lsp-rust-analyzer-display-lifetime-elision-hints-use-parameter-names nil)
|
||||
(setq lsp-rust-analyzer-display-chaining-hints t)
|
||||
(setq lsp-rust-analyzer-display-reborrow-hints t)
|
||||
|
||||
(rx-let ((crate (or alphanumeric "_" "*")))
|
||||
(setq my//rust/import-singular-rx
|
||||
;; use foo::bar::baz;
|
||||
(rx "use "
|
||||
(+ (+ crate) "::")
|
||||
(+ crate)
|
||||
(? ";") line-end))
|
||||
(setq my//rust/import-plural-rx
|
||||
;; use foo::bar::baz::{qux::quo, };
|
||||
(rx "use "
|
||||
(+ (+ crate) "::")
|
||||
"{" (* (+ crate) "::") (+ crate) "," (* whitespace) "}"
|
||||
(? ";") line-end)))
|
||||
|
||||
(defun my/rust/import-pluralize ()
|
||||
"Convert a singular import into a brace-wrapped plural import."
|
||||
(interactive)
|
||||
(if (and
|
||||
(not (my/kbd!-p))
|
||||
(my/insert-mode-p)
|
||||
(my/line-match-p my//rust/import-singular-rx))
|
||||
(kbd! "ESC vb S} f} i,")
|
||||
(insert ",")))
|
||||
|
||||
(defun my/rust/import-singularize ()
|
||||
"Convert a brace-wrapped plural import into a singular import."
|
||||
(interactive)
|
||||
(if (and
|
||||
(not (my/kbd!-p))
|
||||
(my/insert-mode-p)
|
||||
(my/line-match-p my//rust/import-plural-rx))
|
||||
(kbd! "ESC l dF, ds} $i")
|
||||
(evil-delete-backward-char-and-join 1)))
|
||||
|
||||
(defun my/rust/import-c-singularize ()
|
||||
"Convert a brace-wrapped plural import into a singular import."
|
||||
(interactive)
|
||||
(if (and
|
||||
(not (my/kbd!-p))
|
||||
(my/insert-mode-p)
|
||||
(my/line-match-p my//rust/import-plural-rx))
|
||||
(kbd! "ESC l dF, ds} $i")
|
||||
(backward-kill-word 1)))
|
||||
|
||||
(defun my/rust/debug-config (args)
|
||||
(append
|
||||
`(:type "lldb-vscode"
|
||||
;; `(:type "lldb"
|
||||
:request "launch"
|
||||
:dap-server-path ,(list (executable-find "lldb-vscode"))
|
||||
;; :dap-server-path ,(list (executable-find "rust-lldb"))
|
||||
,@args)))
|
||||
|
||||
;; use a::TestThin
|
||||
;; (:MIMode "gdb"
|
||||
;; :miDebuggerPath "gdb"
|
||||
;; :stopAtEntry t
|
||||
;; :externalConsole
|
||||
;; :json-false
|
||||
;; :type "cppdbg"
|
||||
;; :request "launch"
|
||||
;; :name "test test2"
|
||||
;; :args ["test2" "--exact" "--nocapture"]
|
||||
;; :cwd "/home/lain/Code/test/rust/debug"
|
||||
;; :sourceLanguages ["rust"]
|
||||
;; :program "/home/lain/Code/test/rust/debug/target/debug/deps/...")
|
||||
|
||||
;; (require 'dap-cpptools)
|
||||
(defun my/rust/debug-binary (args)
|
||||
(interactive "sArgs: ")
|
||||
(let* ((root (projectile-project-root))
|
||||
(name (projectile-project-name))
|
||||
(target (concat root "target/debug/" name)))
|
||||
;; (rustic-cargo-build)
|
||||
(dap-debug
|
||||
(my/rust/debug-config
|
||||
`(:program ,target
|
||||
:cwd ,root
|
||||
:args ,(apply #'vector (split-string-and-unquote args)))))))
|
||||
|
||||
(defun my/rust/debug-lsp-runnable (runnable)
|
||||
"Select and debug a RUNNABLE action."
|
||||
(interactive (list (lsp-rust-analyzer--select-runnable)))
|
||||
(-let (((&rust-analyzer:Runnable
|
||||
:args (&rust-analyzer:RunnableArgs :cargo-args :workspace-root? :executable-args)
|
||||
:label) runnable))
|
||||
(pcase (aref cargo-args 0)
|
||||
("run" (aset cargo-args 0 "build"))
|
||||
("test" (when (-contains? (append cargo-args ()) "--no-run")
|
||||
(cl-callf append cargo-args (list "--no-run")))))
|
||||
(->> (append (list (executable-find "cargo"))
|
||||
cargo-args
|
||||
(list "--message-format=json"))
|
||||
(s-join " ")
|
||||
(shell-command-to-string)
|
||||
(s-lines)
|
||||
(-keep (lambda (s)
|
||||
(condition-case nil
|
||||
(-let* ((json-object-type 'plist)
|
||||
((msg &as &plist :reason :executable) (json-read-from-string s)))
|
||||
(when (and executable (string= "compiler-artifact" reason))
|
||||
executable))
|
||||
(error))))
|
||||
(funcall
|
||||
(lambda (artifact-spec)
|
||||
(pcase artifact-spec
|
||||
(`() (user-error "No compilation artifacts or obtaining the runnable artifacts failed"))
|
||||
(`(,spec) spec)
|
||||
(_ (user-error "Multiple compilation artifacts are not supported")))))
|
||||
(list :name label
|
||||
:args executable-args
|
||||
:cwd workspace-root?
|
||||
;; :sourceLanguages ["rust"]
|
||||
:stopAtEntry t
|
||||
:stopAtEntry :json-true
|
||||
:externalConsole :json-false
|
||||
:program)
|
||||
(my/rust/debug-config)
|
||||
(dap-debug))))
|
||||
(advice-add #'lsp-rust-analyzer-debug :override #'my/rust/debug-lsp-runnable)
|
||||
|
||||
(define-derived-mode cargo-toml-mode conf-toml-mode "Cargo.toml mode")
|
||||
(add-to-list 'auto-mode-alist '("Cargo\\.toml" . cargo-toml-mode))
|
||||
|
||||
(defun my/rust/edit-cargo-toml ()
|
||||
(interactive)
|
||||
(lsp-rust-analyzer-open-cargo-toml t))
|
||||
|
||||
(defun my/rust/get-latest-crate-version (crate callback)
|
||||
(request! (format "https://crates.io/api/v1/crates/%s/versions" crate)
|
||||
(:type "GET" :parser 'json-read)
|
||||
(lambda (data)
|
||||
(let* ((versions (alist-get 'versions data))
|
||||
(target (elt versions 0))
|
||||
(num (alist-get 'num target)))
|
||||
(funcall callback num)))
|
||||
(lambda ()
|
||||
(message "Crate not found: %s" crate))))
|
||||
|
||||
(defun my/rust/cargo-toml-add-crate (crate)
|
||||
"Insert `crate = version` with the latest available version of a crate."
|
||||
(interactive "sCrate: ")
|
||||
(my/rust/get-latest-crate-version
|
||||
crate
|
||||
(lambda (version)
|
||||
(insert (format "%s = \"%s\"" crate version)))))
|
||||
|
||||
(defun my/rust/cargo-toml-add-crate-semver (crate)
|
||||
"Insert `crate = version` with the latest available version of a crate.
|
||||
Use any semver compatible version with either the current major release,
|
||||
or the minor release if the major version is still 0."
|
||||
(interactive "sCrate: ")
|
||||
(my/rust/get-latest-crate-version
|
||||
crate
|
||||
(lambda (version)
|
||||
(let* ((parts (split-string version "\\."))
|
||||
(major (nth 0 parts))
|
||||
(minor (nth 1 parts))
|
||||
(patch (nth 2 parts))
|
||||
(semver (if (equal major "0")
|
||||
(format "%s.%s" major minor)
|
||||
(format "%s" major))))
|
||||
(insert (format "%s = \"%s\"" crate semver))))))
|
||||
|
||||
;; (setq projectile-project-search-path
|
||||
;; '("~/Code"))
|
||||
|
||||
(defun my/projectile-switch-project ()
|
||||
(interactive)
|
||||
;; Prune projects which no longer exist
|
||||
(when (boundp 'projectile-known-projects)
|
||||
(dolist (project projectile-known-projects)
|
||||
(unless (file-directory-p project)
|
||||
(projectile-remove-known-project project))))
|
||||
(call-interactively #'counsel-projectile-switch-project))
|
||||
|
||||
(setq lsp-ui-doc-show-with-mouse t)
|
||||
|
||||
(setq lsp-headerline-breadcrumb-enable t)
|
||||
(setq lsp-headerline-breadcrumb-segments '(symbols))
|
||||
|
||||
(defun my/counsel-search ()
|
||||
(interactive)
|
||||
(unless (boundp 'my/kagi-found)
|
||||
(my/with-credential
|
||||
(:host "kagi.com") token
|
||||
(if token
|
||||
(progn
|
||||
(setq my/kagi-found (if token t nil))
|
||||
(setq counsel-search-engines-alist
|
||||
`((kagi
|
||||
"https://duckduckgo.com/ac/"
|
||||
,(format "https://kagi.com/search?token=%s&q=" token)
|
||||
counsel--search-request-data-ddg)))
|
||||
(setq counsel-search-engine 'kagi))
|
||||
(warn "Token for kagi.com not found in authinfo. Falling back to default search engine."))))
|
||||
(call-interactively #'counsel-search))
|
||||
|
||||
(after! keycast
|
||||
(define-minor-mode keycast-mode
|
||||
"Show current command and its key binding in the mode line."
|
||||
:global t
|
||||
(if keycast-mode
|
||||
(progn
|
||||
(add-to-list 'global-mode-string '("" keycast-mode-line))
|
||||
(add-hook 'pre-command-hook 'keycast--update t))
|
||||
(progn
|
||||
(setq global-mode-string (delete '("" keycast-mode-line) global-mode-string))
|
||||
(remove-hook 'pre-command-hook 'keycast--update))))
|
||||
|
||||
(dolist (input '(self-insert-command
|
||||
org-self-insert-command))
|
||||
(add-to-list 'keycast-substitute-alist `(,input nil)))
|
||||
|
||||
(dolist (event '(mouse-event-p
|
||||
mouse-movement-p
|
||||
mwheel-scroll
|
||||
lsp-ui-doc--handle-mouse-movement
|
||||
ignore))
|
||||
(add-to-list 'keycast-substitute-alist `(,event nil))))
|
||||
|
||||
(load! "lisp/emacs-everywhere.el")
|
||||
(setq emacs-everywhere-paste-command '("xdotool" "key" "--clearmodifiers" "ctrl+v"))
|
||||
(setq emacs-everywhere-frame-parameters
|
||||
'((title . "Emacs Everywhere")
|
||||
(width . 120)
|
||||
(height . 36)))
|
||||
@ -1,10 +1,15 @@
|
||||
# -*- lexical-binding: t -*-
|
||||
#+PROPERTY: header-args:emacs-lisp :lexical t
|
||||
#+title: Config
|
||||
|
||||
* Setup
|
||||
** Lexical Binding
|
||||
#+BEGIN_SRC elisp
|
||||
;;; -*- lexical-binding: t; -*-
|
||||
#+END_SRC
|
||||
|
||||
** Environment Variables
|
||||
#+BEGIN_SRC elisp
|
||||
(doom-load-envvars-file (concat doom-private-dir "env.el"))
|
||||
(doom-load-envvars-file (concat doom-user-dir "env.el"))
|
||||
#+END_SRC
|
||||
** Doom configuration
|
||||
#+BEGIN_SRC elisp
|
||||
@ -12,12 +17,6 @@
|
||||
#+END_SRC
|
||||
|
||||
* Lisp
|
||||
** Hacks
|
||||
#+BEGIN_SRC elisp
|
||||
(make-variable-buffer-local 'lexical-binding)
|
||||
(setq lexical-binding t)
|
||||
#+END_SRC
|
||||
|
||||
** Web
|
||||
#+BEGIN_SRC elisp
|
||||
(use-package request
|
||||
@ -78,15 +77,16 @@ returned by `request`."
|
||||
("TAB" . "<tab>"))))
|
||||
(my/replace-regexps-in-string str kbd-regex)))
|
||||
|
||||
(setq my//kbd-p nil)
|
||||
(defun my/kbd!-p () (eq my//kbd-p t))
|
||||
(setq my//vim!-p nil)
|
||||
(defun my/vim!-p () (eq my//vim!-p t))
|
||||
|
||||
(defun kbd! (str)
|
||||
(defun vim! (str)
|
||||
"Execute the key sequence defined by STR like a VIM macro."
|
||||
(let ((minibuffer-message-timeout 0))
|
||||
(setq my//kbd-p t)
|
||||
(execute-kbd-macro (read-kbd-macro (my/kbd-replace str)))
|
||||
(setq my//kbd-p nil)))
|
||||
(when (not (my/vim!-p))
|
||||
(setq my//vim!-p t)
|
||||
(execute-kbd-macro (read-kbd-macro (my/kbd-replace str)))
|
||||
(setq my//vim!-p nil))))
|
||||
#+END_SRC
|
||||
|
||||
|
||||
@ -133,6 +133,82 @@ returned by `request`."
|
||||
secret)))))
|
||||
,@body))
|
||||
#+END_SRC
|
||||
** Two Sigma
|
||||
#+BEGIN_SRC elisp
|
||||
(defun ts/proxy-on ()
|
||||
(interactive)
|
||||
(setq url-proxy-services
|
||||
'(("http" . "127.0.0.1:20001")
|
||||
("https" . "127.0.0.1:20001")
|
||||
("no_proxy" . "^.*twosigma\\.com"))))
|
||||
|
||||
(defun ts/proxy-off ()
|
||||
(interactive)
|
||||
(setq url-proxy-services nil))
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC elisp
|
||||
(setq sourcegraph-url "https://sourcegraph.app.twosigma.com")
|
||||
(defun ts/sourcegraph-search ()
|
||||
(interactive)
|
||||
(call-interactively #'sourcegraph-search))
|
||||
(defun ts/sourcegraph-browse ()
|
||||
(interactive)
|
||||
(call-interactively #'sourcegraph-open-in-browser))
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC elisp
|
||||
(setq ts/search-url "https://search.app.twosigma.com/?q=%s")
|
||||
(defun ts/search (query)
|
||||
(interactive "sQuery: ")
|
||||
(browse-url (format ts/search-url query)))
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC elisp
|
||||
(defun ts/repo/root (&optional dir)
|
||||
(locate-dominating-file ($cwd dir) ".base_universe"))
|
||||
|
||||
(defun ts/repo/codebase (&optional dir)
|
||||
(locate-dominating-file ($cwd dir) ".git"))
|
||||
|
||||
(defun ts/repo/p (&optional dir)
|
||||
(when (ts/repo/root dir) t))
|
||||
#+END_SRC
|
||||
|
||||
** Magic functions
|
||||
#+BEGIN_SRC elisp
|
||||
(defun shell! (fmt &rest args)
|
||||
(let* ((cmd (apply #'format (cons fmt args)))
|
||||
(cmd (format "%s 2>/dev/null" cmd))
|
||||
(result (shell-command-to-string cmd))
|
||||
(result (replace-regexp-in-string
|
||||
"\r?\n$" ""
|
||||
result)))
|
||||
(if (equal result "")
|
||||
nil
|
||||
result)))
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC elisp
|
||||
(defun locate! (file &optional dir)
|
||||
(locate-dominating-file ($cwd dir) file))
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC elisp
|
||||
(defun path! (&rest components)
|
||||
(apply #'f-join components))
|
||||
#+END_SRC
|
||||
|
||||
** Magic Vars
|
||||
#+BEGIN_SRC elisp
|
||||
(defun $file () buffer-file-name)
|
||||
(defun $ext () (f-ext ($file)))
|
||||
(defun $cwd (&optional dir)
|
||||
(if dir
|
||||
dir
|
||||
(f-dirname ($file))))
|
||||
#+END_SRC
|
||||
|
||||
* Appearance
|
||||
Set a nice theme and font.
|
||||
#+BEGIN_SRC elisp
|
||||
@ -156,6 +232,24 @@ frame parameter which just landed in the Emacs 29 development branch.
|
||||
(setq evil-want-fine-undo t)
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC elisp
|
||||
(defun my/scroll-up ()
|
||||
(interactive)
|
||||
(evil-scroll-line-up 2))
|
||||
|
||||
(defun my/scroll-down ()
|
||||
(interactive)
|
||||
(evil-scroll-line-down 2))
|
||||
|
||||
(defun my/scroll-up-bigly ()
|
||||
(interactive)
|
||||
(evil-scroll-line-up 5))
|
||||
|
||||
(defun my/scroll-down-bigly ()
|
||||
(interactive)
|
||||
(evil-scroll-line-down 5))
|
||||
#+END_SRC
|
||||
|
||||
Auto center the point after jumping.
|
||||
#+BEGIN_SRC elisp
|
||||
(defmacro my//center-cmd (name &rest body)
|
||||
@ -164,9 +258,6 @@ Auto center the point after jumping.
|
||||
,@body
|
||||
(call-interactively #'evil-scroll-line-to-center)))
|
||||
|
||||
(my//center-cmd my/scroll-up (evil-scroll-up evil-scroll-count))
|
||||
(my//center-cmd my/scroll-down (evil-scroll-down evil-scroll-count))
|
||||
|
||||
(my//center-cmd my/jump-forward (better-jumper-jump-forward))
|
||||
(my//center-cmd my/jump-backward (better-jumper-jump-backward))
|
||||
|
||||
@ -185,7 +276,11 @@ Auto center the point after jumping.
|
||||
#+BEGIN_SRC elisp
|
||||
(defun my/duplicate-and-comment-line ()
|
||||
(interactive)
|
||||
(kbd! "yyp k gcc j"))
|
||||
(vim! "yyp k gcc j"))
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC elisp
|
||||
(setq search-invisible t)
|
||||
#+END_SRC
|
||||
|
||||
*** Line Numbers
|
||||
@ -230,11 +325,24 @@ Use =lisp-interaction-mode= by default for the scratch buffer.
|
||||
#+BEGIN_SRC elisp
|
||||
(setq doom-scratch-initial-major-mode 'lisp-interaction-mode)
|
||||
#+END_SRC
|
||||
** Abbreviations
|
||||
#+BEGIN_SRC elisp
|
||||
(use-package abbrev-mode
|
||||
:hook text-mode)
|
||||
|
||||
(setq +abbrev-file (concat doom-user-dir "abbrevs.el"))
|
||||
(setq abbrev-file-name +abbrev-file)
|
||||
#+END_SRC
|
||||
|
||||
* Keybinds
|
||||
** Unmaps
|
||||
Unmap a bunch of the default keybindings.
|
||||
#+BEGIN_SRC elisp
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC elisp
|
||||
(map! :leader
|
||||
":" nil
|
||||
"b" nil
|
||||
"f" nil
|
||||
"h" nil
|
||||
@ -272,7 +380,7 @@ Unmap a bunch of the default keybindings.
|
||||
:desc "Apply code action" :ni "C-/" #'lsp-execute-code-action
|
||||
|
||||
:desc "Show definitions" :ni "C-." #'+lookup/definition
|
||||
:desc "Show references" :ni "C->" #'my/lookup/references
|
||||
:desc "Show references" :ni "C->" #'my/lsp/lookup-references
|
||||
|
||||
:desc "Jump backward" :ni "C-," #'better-jumper-jump-backward
|
||||
:desc "Jump backward" :ni "C-<" #'better-jumper-jump-forward)
|
||||
@ -298,10 +406,10 @@ Unmap a bunch of the default keybindings.
|
||||
*** Evil
|
||||
#+BEGIN_SRC elisp
|
||||
(map!
|
||||
:desc "Scroll page up" :ni "C-S-k" #'my/scroll-up
|
||||
:desc "Scroll page down" :ni "C-S-j" #'my/scroll-down
|
||||
:desc "Scroll line up" :ni "C-k" #'evil-scroll-line-up
|
||||
:desc "Scroll line down" :ni "C-j" #'evil-scroll-line-down
|
||||
:desc "Scroll up" :ni "C-k" #'my/scroll-up
|
||||
:desc "Scroll down" :ni "C-j" #'my/scroll-down
|
||||
:desc "Scroll up bigly" :ni "C-S-k" #'my/scroll-up-bigly
|
||||
:desc "Scroll down bigly" :ni "C-S-j" #'my/scroll-down-bigly
|
||||
|
||||
:desc "Jump forward" :n "C-o" #'my/jump-forward
|
||||
:desc "Jump backward" :n "C-o" #'my/jump-backward
|
||||
@ -373,9 +481,35 @@ Unmap a bunch of the default keybindings.
|
||||
:desc "ibuffer" "i" #'ibuffer
|
||||
|
||||
:desc "Kill buffer" "d" #'kill-current-buffer
|
||||
:desc "Kill all buffers" "D" #'doom/kill-all-buffers)
|
||||
:desc "Kill all buffers" "D" #'doom/kill-all-buffers
|
||||
|
||||
:desc "Rename buffer" "r" #'my/rename-buffer)
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC elisp
|
||||
(defun my/rename-buffer (name)
|
||||
(interactive (list (read-string "Rename: " (buffer-name))))
|
||||
(rename-buffer name))
|
||||
#+END_SRC
|
||||
|
||||
*** c: Code
|
||||
#+BEGIN_SRC elisp
|
||||
(map! :leader
|
||||
:prefix ("c" . "code")
|
||||
|
||||
:desc "Format region/buffer" "f" #'+format/region-or-buffer
|
||||
:desc "Format imports" "F" #'lsp-organize-imports
|
||||
|
||||
:desc "Rename symbol" "r" #'lsp-rename
|
||||
|
||||
:desc "Show errors list" "x" #'+default/diagnostics
|
||||
:desc "Show errors tree" "X" #'lsp-treemacs-errors-list
|
||||
:desc "Show symbols tree" "s" #'lsp-treemacs-symbols
|
||||
|
||||
:desc "Visit lens" "l" #'lsp-avy-lens
|
||||
|
||||
:desc "Restart LSP" "q" #'lsp-restart-workspace)
|
||||
#+END_SRC
|
||||
*** f: Files
|
||||
#+BEGIN_SRC elisp
|
||||
(map! :leader
|
||||
@ -399,6 +533,76 @@ Unmap a bunch of the default keybindings.
|
||||
:desc "Open scratch" "x" #'doom/open-scratch-buffer)
|
||||
#+END_SRC
|
||||
|
||||
**** a: Abbrevs
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(map! :leader
|
||||
:prefix ("f a" . "abbrevs")
|
||||
:desc "Edit abbrevs" "e" #'my/abbrev-edit
|
||||
:desc "Reload abbrevs" "r" #'my/abbrev-reload
|
||||
|
||||
:desc "Add global abbrev" "a" #'my/abbrev-add-global
|
||||
:desc "Add mode abbrev" "m" #'my/abbrev-add-mode)
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC elisp
|
||||
(defun my/abbrev-edit ()
|
||||
(interactive)
|
||||
(find-file-other-window +abbrev-file))
|
||||
|
||||
(defun my/abbrev-reload ()
|
||||
(interactive)
|
||||
(read-abbrev-file +abbrev-file))
|
||||
|
||||
(defun my/abbrev-save ()
|
||||
(interactive)
|
||||
(write-abbrev-file +abbrev-file))
|
||||
|
||||
(defun my/abbrev-add-global ()
|
||||
(interactive)
|
||||
(call-interactively #'inverse-add-global-abbrev)
|
||||
(my/abbrev-save))
|
||||
|
||||
(defun my/abbrev-add-mode ()
|
||||
(interactive)
|
||||
(call-interactively #'inverse-add-mode-abbrev)
|
||||
(my/abbrev-save))
|
||||
#+END_SRC
|
||||
|
||||
**** e: Emacs Files
|
||||
#+BEGIN_SRC elisp
|
||||
(map! :leader
|
||||
:prefix ("f e" . "emacs")
|
||||
:desc "Find in config" "f" #'doom/find-file-in-private-config
|
||||
:desc "Reload config" "r" #'doom/reload
|
||||
|
||||
:desc "Edit config" "c" #'my/edit-config
|
||||
:desc "Edit packages" "p" #'my/edit-packages
|
||||
:desc "Edit env" "e" #'my/edit-env
|
||||
:desc "Edit init" "i" #'my/edit-init)
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC elisp
|
||||
(defun my/edit-config ()
|
||||
(interactive)
|
||||
(find-file (concat doom-user-dir "config.org")))
|
||||
(defun my/edit-packages ()
|
||||
(interactive)
|
||||
(find-file (concat doom-user-dir "packages.el")))
|
||||
(defun my/edit-init ()
|
||||
(interactive)
|
||||
(find-file (concat doom-user-dir "init.el")))
|
||||
(defun my/edit-env ()
|
||||
(interactive)
|
||||
(find-file (concat doom-user-dir "env.el")))
|
||||
#+END_SRC
|
||||
|
||||
Define a derived mode for editing the literate config so we can specify some
|
||||
keybindings specific to =config.org=.
|
||||
#+BEGIN_SRC elisp
|
||||
(define-derived-mode org-config-mode org-mode "Org config mode")
|
||||
(add-to-list 'auto-mode-alist '("config\\.org" . org-config-mode))
|
||||
#+END_SRC
|
||||
|
||||
**** s: Snippets
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(map! :leader
|
||||
@ -429,41 +633,6 @@ Add a command to open the YASnippet docs.
|
||||
(counsel-find-file nil +snippets-dir))
|
||||
#+END_SRC
|
||||
|
||||
**** e: Emacs Files
|
||||
#+BEGIN_SRC elisp
|
||||
(map! :leader
|
||||
:prefix ("f e" . "emacs")
|
||||
:desc "Find in config" "f" #'doom/find-file-in-private-config
|
||||
:desc "Reload config" "r" #'doom/reload
|
||||
|
||||
:desc "Edit config" "c" #'my/edit-config
|
||||
:desc "Edit packages" "p" #'my/edit-packages
|
||||
:desc "Edit env" "e" #'my/edit-env
|
||||
:desc "Edit init" "i" #'my/edit-init)
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC elisp
|
||||
(defun my/edit-config ()
|
||||
(interactive)
|
||||
(find-file (concat doom-private-dir "config.org")))
|
||||
(defun my/edit-packages ()
|
||||
(interactive)
|
||||
(find-file (concat doom-private-dir "packages.el")))
|
||||
(defun my/edit-init ()
|
||||
(interactive)
|
||||
(find-file (concat doom-private-dir "init.el")))
|
||||
(defun my/edit-env ()
|
||||
(interactive)
|
||||
(find-file (concat doom-private-dir "env.el")))
|
||||
#+END_SRC
|
||||
|
||||
Define a derived mode for editing the literate config so we can specify some
|
||||
keybindings specific to =config.org=.
|
||||
#+BEGIN_SRC elisp
|
||||
(define-derived-mode org-config-mode org-mode "Org config mode")
|
||||
(add-to-list 'auto-mode-alist '("config\\.org" . org-config-mode))
|
||||
#+END_SRC
|
||||
|
||||
*** h: Help
|
||||
#+BEGIN_SRC elisp
|
||||
(map! :leader
|
||||
@ -551,7 +720,18 @@ keybindings specific to =config.org=.
|
||||
:desc "Doom package configuration" "p" #'doom/help-package-config
|
||||
:desc "Doom sandbox" "x" #'doom/sandbox)
|
||||
#+END_SRC
|
||||
*** l: Ligma
|
||||
#+BEGIN_SRC elisp
|
||||
(map! :leader
|
||||
:prefix ("l" . "ligma")
|
||||
|
||||
:desc "Search" "s" #'ts/search
|
||||
|
||||
:desc "Sourcegraph search" "g" #'ts/sourcegraph-search
|
||||
:desc "Sourcegraph browse" "G" #'ts/sourcegraph-browse)
|
||||
#+END_SRC
|
||||
|
||||
*** TODO o: Open
|
||||
*** p: Projects
|
||||
#+BEGIN_SRC elisp
|
||||
(map! :leader
|
||||
@ -605,8 +785,10 @@ keybindings specific to =config.org=.
|
||||
:desc "Go right" "l" #'evil-window-right
|
||||
:desc "Go other" "o" #'other-window
|
||||
;; Layout
|
||||
:desc "Rotate up" "K" #'evil-window-rotate-upwards
|
||||
:desc "Rotate down" "J" #'evil-window-rotate-downwards
|
||||
:desc "Move left" "H" #'+evil/window-move-left
|
||||
:desc "Move down" "J" #'+evil/window-move-down
|
||||
:desc "Move up" "K" #'+evil/window-move-up
|
||||
:desc "Move right" "L" #'+evil/window-move-right
|
||||
;; Splits
|
||||
:desc "VSplit" "=" #'+evil/window-vsplit-and-follow
|
||||
:desc "HSplit" "-" #'+evil/window-split-and-follow
|
||||
@ -615,7 +797,8 @@ keybindings specific to =config.org=.
|
||||
:desc "Undo" "u" #'winner-undo
|
||||
:desc "Redo" "U" #'winner-redo
|
||||
;; Misc
|
||||
:desc "Resize" "r" #'my/hydra-window-resize/body
|
||||
:desc "Resize..." "r" #'my/hydra-window-resize/body
|
||||
:desc "Rotate..." "R" #'my/hydra-window-rotate/body
|
||||
:desc "Balance" "b" #'balance-windows
|
||||
;; Management
|
||||
:desc "Kill window" "d" #'+workspace/close-window-or-workspace)
|
||||
@ -647,23 +830,18 @@ keybindings specific to =config.org=.
|
||||
("l" my/window-increase-width "++Width")
|
||||
("ESC" nil "Quit" :color blue))
|
||||
#+END_SRC
|
||||
*** c: Code
|
||||
|
||||
#+BEGIN_SRC elisp
|
||||
(map! :leader
|
||||
:prefix ("c" . "code")
|
||||
|
||||
:desc "Format region/buffer" "f" #'+format/region-or-buffer
|
||||
:desc "Format imports" "F" #'lsp-organize-imports
|
||||
|
||||
:desc "Rename symbol" "r" #'lsp-rename
|
||||
|
||||
:desc "Show errors list" "x" #'+default/diagnostics
|
||||
:desc "Show errors tree" "X" #'lsp-treemacs-errors-list
|
||||
:desc "Show symbols tree" "s" #'lsp-treemacs-symbols
|
||||
|
||||
:desc "Visit lens" "l" #'lsp-avy-lens
|
||||
|
||||
:desc "Restart LSP" "q" #'lsp-restart-workspace)
|
||||
(defhydra my/hydra-window-rotate ()
|
||||
"Rotate window"
|
||||
("h" +evil/window-move-left "Move left")
|
||||
("j" +evil/window-move-down "Move down")
|
||||
("k" +evil/window-move-up "Move up")
|
||||
("l" +evil/window-move-right "Move right")
|
||||
("H" evil-window-move-far-left "Move far left")
|
||||
("J" evil-window-rotate-downwards "Rotate Down")
|
||||
("K" evil-window-rotate-upwards "Rotate Up")
|
||||
("L" evil-window-move-far-right "Move far right"))
|
||||
#+END_SRC
|
||||
|
||||
** Local Leader
|
||||
@ -681,38 +859,40 @@ keybindings specific to =config.org=.
|
||||
#+END_SRC
|
||||
*** Rust
|
||||
#+BEGIN_SRC elisp
|
||||
(map! :map rustic-mode-map
|
||||
:localleader
|
||||
"b" nil
|
||||
"t" nil)
|
||||
;; (map! :map rustic-mode-map
|
||||
;; :localleader
|
||||
;; "b" nil
|
||||
;; "t" nil)
|
||||
|
||||
(map! :map rustic-mode-map
|
||||
:localleader
|
||||
:desc "Edit Cargo.toml" "t" #'my/rust/edit-cargo-toml)
|
||||
;; (map! :map rustic-mode-map
|
||||
;; :localleader
|
||||
;; :desc "Edit Cargo.toml" "t" #'my/rust/edit-cargo-toml)
|
||||
|
||||
(map! :map rustic-mode-map
|
||||
:leader
|
||||
:prefix ("c" . "code")
|
||||
:desc "Expand macro" "m" #'lsp-rust-analyzer-expand-macro
|
||||
:desc "Open docs" "h" #'lsp-rust-analyzer-open-external-docs)
|
||||
;; (map! :map rustic-mode-map
|
||||
;; :leader
|
||||
;; :prefix ("c" . "code")
|
||||
;; :desc "Expand macro" "m" #'lsp-rust-analyzer-expand-macro
|
||||
;; :desc "Open docs" "h" #'lsp-rust-analyzer-open-external-docs)
|
||||
|
||||
(map! :map rustic-mode-map
|
||||
:prefix ("cb" . "build")
|
||||
;; (map! :map rustic-mode-map
|
||||
;; :localleader
|
||||
;; :prefix ("b" . "build")
|
||||
|
||||
:desc "Build" "b" #'rustic-cargo-check
|
||||
:desc "Check" "c" #'rustic-cargo-check
|
||||
;; :desc "Build" "b" #'rustic-cargo-check
|
||||
;; :desc "Check" "c" #'rustic-cargo-check
|
||||
|
||||
:desc "Debug" "d" #'my/rust/dap-hydra/body
|
||||
:desc "Run" "r" #'rustic-cargo-run
|
||||
;; :desc "Debug" "d" #'my/rust/dap-hydra/body
|
||||
;; :desc "Run" "r" #'rustic-cargo-run
|
||||
|
||||
:desc "Bench" "B" #'rustic-cargo-bench
|
||||
:desc "Test current" "t" #'rustic-cargo-current-test
|
||||
:desc "Test all" "T" #'rustic-cargo-test)
|
||||
;; :desc "Bench" "B" #'rustic-cargo-bench
|
||||
;; :desc "Test current" "t" #'rustic-cargo-current-test
|
||||
;; :desc "Test all" "T" #'rustic-cargo-test)
|
||||
|
||||
(map! :map rustic-mode-map
|
||||
:desc "Pluralize import" "," #'my/rust/import-pluralize
|
||||
:desc "Singularize import" "<backspace>" #'my/rust/import-singularize
|
||||
:desc "Singularize import" "C-<backspace>" #'my/rust/import-c-singularize)
|
||||
:desc "Singularize import" "C-<backspace>" #'my/rust/import-c-singularize
|
||||
:desc "Singularize import" "C-<delete>" #'my/rust/import-rev-singularize)
|
||||
#+END_SRC
|
||||
|
||||
**** Debugging
|
||||
@ -805,6 +985,8 @@ _Q_: Disconnect _sd_: Down stack frame _bh_: Set hit count
|
||||
#+END_SRC
|
||||
|
||||
*** Editing
|
||||
When editing a list of "use" imports, automatically add and remove braces when typing or removing commas
|
||||
|
||||
#+BEGIN_SRC elisp
|
||||
(rx-let ((crate (or alphanumeric "_" "*")))
|
||||
(setq my//rust/import-singular-rx
|
||||
@ -814,41 +996,53 @@ _Q_: Disconnect _sd_: Down stack frame _bh_: Set hit count
|
||||
(+ crate)
|
||||
(? ";") line-end))
|
||||
(setq my//rust/import-plural-rx
|
||||
;; use foo::bar::baz::{qux::quo, };
|
||||
;; use foo::bar::baz::{qux::quo, };
|
||||
(rx "use "
|
||||
(+ (+ crate) "::")
|
||||
"{" (* (+ crate) "::") (+ crate) "," (* whitespace) "}"
|
||||
(? ";") line-end))
|
||||
(setq my//rust/import-plural-rev-rx
|
||||
;; use foo::bar::baz::{, qux::quo};
|
||||
(rx "use "
|
||||
(+ (+ crate) "::")
|
||||
"{," (* whitespace) (* (+ crate) "::") (+ crate) "}"
|
||||
(? ";") line-end)))
|
||||
|
||||
(defun my/rust/import-pluralize ()
|
||||
"Convert a singular import into a brace-wrapped plural import."
|
||||
(interactive)
|
||||
(if (and
|
||||
(not (my/kbd!-p))
|
||||
(my/insert-mode-p)
|
||||
(my/line-match-p my//rust/import-singular-rx))
|
||||
(kbd! "ESC vb S} f} i,")
|
||||
(vim! "ESC vb S} f} i,")
|
||||
(insert ",")))
|
||||
|
||||
(defun my/rust/import-singularize ()
|
||||
"Convert a brace-wrapped plural import into a singular import."
|
||||
(interactive)
|
||||
(if (and
|
||||
(not (my/kbd!-p))
|
||||
(my/insert-mode-p)
|
||||
(my/line-match-p my//rust/import-plural-rx))
|
||||
(kbd! "ESC l dF, ds} $i")
|
||||
(vim! "ESC l dF, ds} $i")
|
||||
(evil-delete-backward-char-and-join 1)))
|
||||
|
||||
(defun my/rust/import-c-singularize ()
|
||||
"Convert a brace-wrapped plural import into a singular import."
|
||||
(interactive)
|
||||
(if (and
|
||||
(not (my/kbd!-p))
|
||||
(my/insert-mode-p)
|
||||
(my/line-match-p my//rust/import-plural-rx))
|
||||
(kbd! "ESC l dF, ds} $i")
|
||||
(vim! "ESC l dF, ds} $i")
|
||||
(backward-kill-word 1)))
|
||||
|
||||
(defun my/rust/import-rev-singularize ()
|
||||
"Convert a brace-wrapped plural import into a singular import."
|
||||
(interactive)
|
||||
(if (and
|
||||
(my/insert-mode-p)
|
||||
(my/line-match-p my//rust/import-plural-rev-rx))
|
||||
(vim! "ESC ds} dw $i")
|
||||
(kill-word 1)))
|
||||
#+END_SRC
|
||||
|
||||
*** Debugging
|
||||
@ -942,11 +1136,11 @@ Define a wrapper function for visiting the closest Cargo.toml in a new window.
|
||||
#+BEGIN_SRC elisp
|
||||
(defun my/rust/edit-cargo-toml ()
|
||||
(interactive)
|
||||
(lsp-rust-analyzer-open-cargo-toml t))
|
||||
(lsp-rust-analyzer-open-cargo-toml))
|
||||
#+END_SRC
|
||||
|
||||
Define a helper for pulling the latest versions of crates from crates.io
|
||||
#+BEGIN_SRC elisp
|
||||
#+BEGIN_SRC elisp :lexical t
|
||||
(defun my/rust/get-latest-crate-version (crate callback)
|
||||
(request! (format "https://crates.io/api/v1/crates/%s/versions" crate)
|
||||
(:type "GET" :parser 'json-read)
|
||||
@ -983,16 +1177,37 @@ or the minor release if the major version is still 0."
|
||||
(format "%s" major))))
|
||||
(insert (format "%s = \"%s\"" crate semver))))))
|
||||
#+END_SRC
|
||||
*** Lisp
|
||||
#+BEGIN_SRC elisp
|
||||
(defun my/rust/cargo-toml (&optional dir)
|
||||
(path! (locate! "Cargo.toml" dir) "Cargo.toml"))
|
||||
|
||||
(defun my/rust/workspace-root (&optional dir)
|
||||
(shell! "%s | jq -r '.workspace_root'"
|
||||
(cargo! "metadata --no-deps --format-version 1" dir)))
|
||||
|
||||
(defun cargo! (cmd &optional dir)
|
||||
(format "cargo %s --manifest-path \"%s\""
|
||||
cmd
|
||||
(my/rust/cargo-toml dir)))
|
||||
#+END_SRC
|
||||
|
||||
** Go
|
||||
*** Debugging
|
||||
Setup: run =M-x dap-go-setup=
|
||||
* Tools
|
||||
** Org
|
||||
** Projectile
|
||||
#+BEGIN_SRC elisp
|
||||
;; (setq projectile-project-search-path
|
||||
;; '("~/Code"))
|
||||
|
||||
(defun my/projectile-project-ignored-p (root)
|
||||
(or (doom-project-ignored-p root)
|
||||
(file-in-directory-p root "/opt/ts/fuse/artfs_mounts")
|
||||
(file-in-directory-p root "/home/tsdist/vats_deployments")))
|
||||
(setq projectile-ignored-project-function #'my/projectile-project-ignored-p)
|
||||
|
||||
(defun my/projectile-switch-project ()
|
||||
(interactive)
|
||||
;; Prune projects which no longer exist
|
||||
@ -1011,6 +1226,18 @@ Setup: run =M-x dap-go-setup=
|
||||
(setq lsp-headerline-breadcrumb-segments '(symbols))
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC elisp
|
||||
(defun my/lsp-find-root (lsp--find-root-interactively &rest args)
|
||||
(or
|
||||
(and (ts/repo/p)
|
||||
(pcase (f-ext ($file) t)
|
||||
(".rs" (my/rust/workspace-root))
|
||||
(_ nil)))
|
||||
(apply lsp--find-root-interactively args)))
|
||||
|
||||
(advice-add 'lsp--find-root-interactively :around #'my/lsp-find-root)
|
||||
#+END_SRC
|
||||
|
||||
** Counsel Search
|
||||
#+BEGIN_SRC elisp
|
||||
(defun my/counsel-search ()
|
||||
@ -1056,6 +1283,13 @@ Setup: run =M-x dap-go-setup=
|
||||
ignore))
|
||||
(add-to-list 'keycast-substitute-alist `(,event nil))))
|
||||
#+END_SRC
|
||||
** SourceGraph
|
||||
#+BEGIN_SRC elisp
|
||||
(use-package sourcegraph
|
||||
:hook (prog-mode . sourcegraph-mode))
|
||||
(setq sourcegraph-url "https://sourcegraph.app.twosigma.com")
|
||||
#+END_SRC
|
||||
** Rmsbolt
|
||||
|
||||
* Apps
|
||||
** Emacs Everywhere
|
||||
|
||||
12
.doom.d/custom.el
Normal file
12
.doom.d/custom.el
Normal file
@ -0,0 +1,12 @@
|
||||
(custom-set-variables
|
||||
;; custom-set-variables was added by Custom.
|
||||
;; If you edit it by hand, you could mess it up, so be careful.
|
||||
;; Your init file should contain only one such instance.
|
||||
;; If there is more than one, they won't work right.
|
||||
'(safe-local-variable-values '((org-src-preserve-indentation . t))))
|
||||
(custom-set-faces
|
||||
;; custom-set-faces was added by Custom.
|
||||
;; If you edit it by hand, you could mess it up, so be careful.
|
||||
;; Your init file should contain only one such instance.
|
||||
;; If there is more than one, they won't work right.
|
||||
)
|
||||
@ -1,2 +0,0 @@
|
||||
("DISPLAY=:0"
|
||||
"SSH_AUTH_SOCK=/run/user/1000/gnupg/S.gpg-agent.ssh")
|
||||
@ -59,7 +59,15 @@
|
||||
;; Mode for showing which keys are being pressed on the modeline
|
||||
(package! keycast)
|
||||
|
||||
;; GitHub Copilot for Emacs
|
||||
;; GitHub Copilot for emacs
|
||||
(package! copilot
|
||||
:recipe (:host github :repo "zerolfx/copilot.el"
|
||||
:files ("dist" "copilot.el")))
|
||||
|
||||
;; SourceGraph integration
|
||||
(package! sourcegraph
|
||||
:recipe (:host github :repo "danielmartin/emacs-sourcegraph"
|
||||
:files ("sourcegraph.el")))
|
||||
|
||||
;; Like godbolt for emacs
|
||||
(package! rmsbolt)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user