diff options
Diffstat (limited to 'home-manager/homeModules/emacs')
| -rw-r--r-- | home-manager/homeModules/emacs/config.org | 452 |
1 files changed, 188 insertions, 264 deletions
diff --git a/home-manager/homeModules/emacs/config.org b/home-manager/homeModules/emacs/config.org index 37cb6a5..f29af06 100644 --- a/home-manager/homeModules/emacs/config.org +++ b/home-manager/homeModules/emacs/config.org @@ -16,15 +16,14 @@ - [[#disable-gui-shit][Disable gui shit]] - [[#fonts][Fonts]] - [[#display-line-numbers][Display line numbers]] - - [[#theme][Theme]] - [[#icons][Icons]] - [[#modeline][Modeline]] - [[#scroll][Scroll]] - - [[#dashboard][Dashboard]] - [[#indent-guide][Indent guide]] - [[#org-mode][Org mode]] - [[#org-modern][Org modern]] -- [[#enabling-toc][Enabling toc]] + - [[#toc][TOC]] + - [[#requests-from-org-mode][Requests from org-mode]] - [[#better-ux][Better UX]] - [[#vertico][Vertico]] - [[#consult][Consult]] @@ -33,7 +32,6 @@ - [[#debugging][Debugging]] - [[#truncate-lines][Truncate lines]] - [[#rainbow-delimiters][Rainbow delimiters]] - - [[#crux][Crux]] - [[#better-help][Better *help*]] - [[#better-other-window][Better other-window]] - [[#undo-tree][Undo Tree]] @@ -41,13 +39,12 @@ - [[#command-sorting-and-filtering][Command sorting and filtering]] - [[#multiple-cursors][Multiple Cursors]] - [[#eshell][Eshell]] + - [[#open-eshell][Open eshell]] - [[#fish-completions][Fish completions]] - [[#eat][Eat]] - [[#highlighting][Highlighting]] - [[#lsp][LSP]] - - [[#flycheck][Flycheck]] - - [[#lsp-ui][lsp-ui]] - - [[#lsp-booster][LSP-booster]] + - [[#error-checking][Error checking]] - [[#corfu][Corfu]] - [[#tree-sitter][Tree-sitter]] - [[#snippets][Snippets]] @@ -57,14 +54,11 @@ - [[#better-scratch][Better scratch]] - [[#dired][Dired]] - [[#bindings][Bindings]] - - [[#dired-hacks][Dired hacks]] - - [[#dired-quick-sort][Dired quick sort]] - - [[#async-copy][Async copy]] - [[#media-files][Media files]] + - [[#casual-dired][Casual dired]] - [[#sql][Sql]] - [[#additional-apps][Additional apps]] - [[#magit][Magit]] - - [[#gptel][gptel]] * Progs to load first ** elpaca @@ -114,12 +108,11 @@ (setq elpaca-use-package-by-default t)) (elpaca-wait) + (use-package benchmark-init + :config + (add-hook 'after-init-hook 'benchmark-init/deactivate)) #+end_src ** From minimal-emacs.d -*** Minibuffer -#+begin_src emacs-lisp - (setq enable-recursive-minibuffers t) -#+end_src *** Misc #+begin_src emacs-lisp ;; switch-to-buffer runs pop-to-buffer-same-window instead @@ -194,11 +187,6 @@ ;; disabling it contradicts this objective. (setq auto-save-include-big-deletions t) - (setq auto-save-list-file-prefix - (expand-file-name "autosave/" user-emacs-directory)) - (setq tramp-auto-save-directory - (expand-file-name "tramp-autosave/" user-emacs-directory)) - ;; Auto save options (setq kill-buffer-delete-auto-save-files t) #+end_src @@ -234,16 +222,6 @@ the precise point where you previously left off. (setq save-place-limit 600) (add-hook 'after-init-hook #'save-place-mode) #+end_src -*** Savehist -=savehist= is an Emacs feature that preserves the minibuffer history between -sessions. It saves the history of inputs in the minibuffer, such as commands, -search strings, and other prompts, to a file. This allows users to retain -their minibuffer history across Emacs restarts. -#+begin_src emacs-lisp - (setq history-length 300) - (setq savehist-save-minibuffer-history t) ;; Default - (add-hook 'after-init-hook #'savehist-mode) -#+end_src *** Frames and windows #+begin_src emacs-lisp ; Resizing the Emacs frame can be costly when changing the font. Disable this @@ -390,7 +368,6 @@ their minibuffer history across Emacs restarts. (interactive) (let ((current-prefix-arg -1)) (call-interactively #'meow-till))) - (defun meow-setup () (setq meow-cheatsheet-layout meow-cheatsheet-layout-qwerty) (meow-motion-overwrite-define-key @@ -485,7 +462,6 @@ their minibuffer history across Emacs restarts. ** General keybindings #+begin_src emacs-lisp (use-package general - :demand t :config ;; SPC as the global leader key (general-create-definer spl3g/leader-keys @@ -495,7 +471,7 @@ their minibuffer history across Emacs restarts. ;; Buffers "b" '(:ignore t :wk "Buffer") "bi" '(ibuffer :wk "ibuffer") - "bk" '(kill-this-buffer :wk "Kill this buffer") + "bk" '(kill-current-buffer :wk "Kill this buffer") "bn" '(next-buffer :wk "Next buffer") "bp" '(previous-buffer :wk "Previous buffer") "br" '(revert-buffer :wk "Reload buffer") @@ -514,15 +490,18 @@ their minibuffer history across Emacs restarts. "wo" '(delete-other-windows :wk "") ;; Files "f" '(:ignore t :wk "Files") - "fc" '((lambda () (interactive) (find-file "~/.config/emacs/config.org")) :wk "Edit emacs config") - "fu" '(crux-sudo-edit :wk "Sudo edit file") + "fc" '((lambda () (interactive) (find-file user-init-file)) :wk "Edit emacs config") ;; Compilation - "r" '(recompile :wk "Recompile"))) + "r" '(recompile :wk "Recompile") + ;; Open + "o" '(:ignore t :wk "Open") + "ot" '(my/open-eshell :wk "Open eshell"))) (elpaca-wait) #+end_src ** Which key #+begin_src emacs-lisp (use-package which-key + :ensure nil :init (which-key-mode)) #+end_src @@ -537,17 +516,16 @@ their minibuffer history across Emacs restarts. #+end_src ** Fonts #+begin_src emacs-lisp - (setq default-frame-alist '((font . "Sauce Code Pro Nerd Font"))) (set-face-attribute 'default nil - :font "SauceCodePro Nerd Font" + :font "FiraCode Nerd Font" :height 110 :weight 'medium) (set-face-attribute 'fixed-pitch nil - :font "SauceCodePro Nerd Font" + :font "FiraCode Nerd Font" :height 110 :weight 'medium) (set-face-attribute 'variable-pitch nil - :font "Rubik" + :font "Noto Serif" :height 110 :weight 'medium) (set-face-attribute 'font-lock-comment-face nil @@ -560,20 +538,10 @@ their minibuffer history across Emacs restarts. (add-hook 'prog-mode-hook 'display-line-numbers-mode) (visual-line-mode 1) #+end_src - -** Theme -#+begin_src emacs-lisp - ;; (use-package catppuccin-theme - ;; :config - ;; ;; (setq catppuccin-flavor 'macchiato) - ;; (load-theme 'catppuccin t)) - ;; (use-package monokai-pro-theme - ;; :config - ;; (load-theme 'monokai-pro-octagon t)) -#+end_src ** Icons #+begin_src emacs-lisp (use-package all-the-icons + :defer t :ensure t :if (display-graphic-p)) #+end_src @@ -626,22 +594,6 @@ their minibuffer history across Emacs restarts. scroll-conservatively 101 mouse-wheel-progressive-speed nil) #+end_src - -** Dashboard -#+begin_src emacs-lisp - (use-package dashboard - :init - (dashboard-setup-startup-hook) - :config - (setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*"))) - (setq dashboard-banner-logo-title "Yep, it's emacs, not vim") - (setq dashboard-startup-banner 'official) - (setq dashboard-center-content t) - (setq dashboard-items '((projects . 5) - (recents . 5) - (bookmarks . 5) - (registers . 5)))) -#+end_src ** Indent guide #+begin_src emacs-lisp (use-package indent-guide @@ -649,41 +601,37 @@ their minibuffer history across Emacs restarts. #+end_src * Org mode #+begin_src emacs-lisp - (add-hook 'org-mode-hook 'org-indent-mode) - (require 'org-tempo) - (use-package org-mode :ensure nil - :custom - (org-hide-emphasis-markers t) - (org-format-latex-options '(:foreground default - :background default - :scale 1.5 - :html-foreground "Black" - :html-background "Transparent" - :html-scale 1.0 - :matchers ("begin" "$1" "$" "$$" "\\(" "\\["))) - :mode "\\.org\\'") + (use-package org-mode :ensure nil + :custom + (text-mode-ispell-word-completion nil) + (org-hide-emphasis-markers t) + (org-startup-indented t) + :mode "\\.org\\'") #+end_src - ** Org modern #+begin_src emacs-lisp (use-package org-modern - :after org :ghook 'org-mode-hook) #+end_src *** Modern Indent #+begin_src emacs-lisp (use-package org-modern-indent - :after org-modern :ensure (:host github :repo "jdtsmith/org-modern-indent") - :config - (add-hook 'org-mode-hook #'org-modern-indent-mode 90)) + :hook + (org-modern-mode . org-modern-indent-mode)) #+end_src -* Enabling toc +** TOC #+begin_src emacs-lisp (use-package toc-org - :after org :ghook 'org-mode-hook) #+end_src +** Requests from org-mode +#+begin_src emacs-lisp + (use-package verb + :hook (org-mode . verb-mode) + :general (:keymaps 'org-mode-map + "C-c C-r" verb-command-map)) +#+end_src * Better UX ** Vertico #+begin_src emacs-lisp @@ -739,7 +687,8 @@ their minibuffer history across Emacs restarts. ;; my binds (:prefix "C-c" "f r" 'consult-recent-file - "," 'consult-buffer) + "," 'consult-buffer + "os" 'my/select-eshell) ;; general (:prefix "C-c" @@ -762,7 +711,8 @@ their minibuffer history across Emacs restarts. "c" 'consult-compile-error "f" 'consult-goto-line "M-g" 'consult-goto-line - "o" 'consult-outline) + "o" 'consult-outline + "I" 'consult-imenu) ;; 'search' (:prefix "M-s" @@ -791,8 +741,6 @@ their minibuffer history across Emacs restarts. "M-r" 'consult-history) :hook (completion-list-mode . consult-preview-at-point-mode) - (eshell-mode . (lambda () - (keymap-set eshell-mode-map "M-h" 'consult-history))) :init (setq register-preview-delay 0 @@ -801,6 +749,36 @@ their minibuffer history across Emacs restarts. (advice-add #'register-preview :override #'consult-register-window) :config + (defun my/select-eshell () + (interactive) + (let* ((eshell-buffers (consult--buffer-query :sort 'visibility + :as 'consult--buffer-pair + :mode 'eshell-mode)) + (eshell-windows (remove nil (mapcar (lambda (buffer) + (let* ((b (cdr buffer)) + (window (get-buffer-window b)) + (name (buffer-name b))) + (when window + (cons + name + window)))) + eshell-buffers))) + (selected-buffer (consult--read + eshell-buffers + :category 'buffer + :history 'buffer-name-history + :lookup 'consult--lookup-cdr)) + (selected-window (if (length> eshell-windows 1) + (consult--read + eshell-windows + :lookup 'consult--lookup-cdr) + (cdar eshell-windows)))) + (if selected-window + (progn + (select-window selected-window) + (switch-to-buffer selected-buffer)) + (switch-to-buffer-other-window selected-buffer)))) + (consult-customize consult-theme :preview-key '(:debounce 0.2 any) consult-ripgrep consult-git-grep consult-grep @@ -812,33 +790,9 @@ their minibuffer history across Emacs restarts. (setq consult-narrow-key "C-+")) #+end_src -*** Consult-lsp -#+begin_src emacs-lisp - (use-package consult-lsp - :after consult lsp - :defer t - :general - (:keymaps 'lsp-mode-map :prefix "M-g" - "f" 'consult-lsp-diagnostics - "s" 'consult-lsp-symbols - "S" 'consult-lsp-file-symbols)) -#+end_src -*** Consult-dir -#+begin_src emacs-lisp - (use-package consult-dir - :ensure t - :defer t - :general - (:prefix "C-x" :keymaps 'vertico-map - "C-d" '('consult-dir :keymaps nil) - "C-d" 'consult-dir - "C-j" 'consult-dir-jump-file)) -#+end_src ** Embark #+begin_src emacs-lisp (use-package embark - :ensure t - :bind (("C-." . embark-act) ;; pick some comfortable binding ("C-;" . embark-dwim) ;; good alternative: M-. @@ -868,9 +822,9 @@ their minibuffer history across Emacs restarts. ;; Consult users will also want the embark-consult package. (use-package embark-consult - :ensure t ; only need to install it, embark loads it after consult if found :hook (embark-collect-mode . consult-preview-at-point-mode)) #+end_src + ** Pairs #+begin_src emacs-lisp (electric-pair-mode t) @@ -879,7 +833,7 @@ their minibuffer history across Emacs restarts. #+begin_src emacs-lisp (use-package jsonrpc) (use-package dape - :defer t + :commands dape :after jsonrpc :config (setq dape-cwd-fn 'projectile-project-root)) @@ -893,11 +847,6 @@ their minibuffer history across Emacs restarts. (use-package rainbow-delimiters :hook (prog-mode . rainbow-delimiters-mode)) #+end_src -** Crux -#+begin_src emacs-lisp - (use-package crux - :bind (("C-c o t" . crux-visit-shell-buffer))) -#+end_src ** Better *help* #+begin_src emacs-lisp (use-package helpful @@ -911,40 +860,40 @@ their minibuffer history across Emacs restarts. ** Better other-window #+begin_src emacs-lisp (use-package ace-window - :bind (("C-x o" . ace-window) + :custom + (aw-keys '(?h ?j ?k ?l ?g ?a ?s ?d ?f)) + (aw-scope 'frame) + :bind (("M-o" . ace-window) ("C-c w w" . ace-window))) #+end_src ** Undo Tree #+begin_src emacs-lisp (use-package undo-tree - :defer t - :config + :init (global-undo-tree-mode)) #+end_src ** Dumb jump #+begin_src emacs-lisp (use-package dumb-jump - :defer t - :config - (add-hook 'xref-backend-functions #'dumb-jump-xref-activate)) + :hook (xref-backend-functions . dumb-jump-xref-activate)) #+end_src ** Command sorting and filtering #+begin_src emacs-lisp - (use-package prescient - :defer t - :config - (prescient-persist-mode) - :custom-face - (prescient-primary-highlight ((t (:inherit 'font-lock-keyword-face))))) - (use-package corfu-prescient - :after corfu - :config - (corfu-prescient-mode)) - (use-package vertico-prescient - :after vertico - :config - - (vertico-prescient-mode)) + (use-package prescient + :config + (prescient-persist-mode) + (setq completion-styles '(prescient basic) + completion-category-overrides '((file (styles basic partial-completion)))) + :custom-face + (prescient-primary-highlight ((t (:inherit 'font-lock-keyword-face))))) + (use-package corfu-prescient + :after corfu + :config + (corfu-prescient-mode)) + (use-package vertico-prescient + :after vertico + :config + (vertico-prescient-mode)) #+end_src ** Multiple Cursors #+begin_src emacs-lisp @@ -962,15 +911,30 @@ their minibuffer history across Emacs restarts. (lambda () (setq-local corfu-auto nil) (corfu-mode))) - (add-to-list 'display-buffer-alist - '("*eshell*" - (display-buffer-reuse-window display-buffer-at-bottom) - (window-height . 0.35))) (add-hook 'eshell-exec-hook (lambda (p) (buffer-disable-undo))) (add-hook 'eshell-kill-hook (lambda (p s) (buffer-enable-undo))) #+end_src +** Open eshell +#+begin_src emacs-lisp + (defun my/open-eshell () + (interactive) + (defvar current-prefix-arg) + (let* ((project (project-current)) + (func (if project + 'project-eshell + 'eshell)) + (buffer-name (if project + (format "*%s-eshell*" (project-name project)) + "*eshell*")) + (current-prefix-arg t)) + (if (not (get-buffer buffer-name)) + (let ((buf (funcall func))) + (switch-to-buffer (other-buffer buf)) + (switch-to-buffer-other-window buf)) + (switch-to-buffer-other-window buffer-name)))) +#+end_src ** Fish completions #+begin_src emacs-lisp (use-package fish-completion @@ -979,16 +943,25 @@ their minibuffer history across Emacs restarts. ** Eat #+begin_src emacs-lisp (use-package eat - :hook (eshell-mode . eat-eshell-mode) + :hook + (eshell-mode . eat-eshell-mode) :custom - (eat-enable-auto-line-mode t)) + (eat-enable-auto-line-mode t) + :custom-face + (ansi-color-bright-blue ((t (:inherit 'ansi-color-blue)))) + (ansi-color-bright-red ((t (:inherit 'ansi-color-red)))) + (ansi-color-bright-red ((t (:inherit 'ansi-color-red)))) + (ansi-color-bright-cyan ((t (:inherit 'ansi-color-cyan)))) + (ansi-color-bright-black ((t (:inherit 'ansi-color-black)))) + (ansi-color-bright-green ((t (:inherit 'ansi-color-green)))) + (ansi-color-bright-white ((t (:inherit 'ansi-color-white)))) + (ansi-color-bright-yellow ((t (:inherit 'ansi-color-yellow)))) + (ansi-color-bright-magenta ((t (:inherit 'ansi-color-magenta))))) #+end_src ** Highlighting #+begin_src emacs-lisp (use-package eshell-syntax-highlighting - :after eshell - :config - (eshell-syntax-highlighting-global-mode 1)) + :hook (eshell-mode . eshell-syntax-highlighting-mode)) #+end_src * LSP #+begin_src emacs-lisp @@ -1009,7 +982,17 @@ their minibuffer history across Emacs restarts. (go-ts-mode . lsp-mode) (web-mode . lsp-mode)) #+end_src -** Flycheck +*** LSP UI things +#+begin_src emacs-lisp + (use-package lsp-ui + :hook (lsp-mode . lsp-ui-mode) + :bind (:map lsp-ui-mode-map + ([remap xref-find-definitions] . lsp-ui-peek-find-definitions) + ([remap xref-find-references] . lsp-ui-peek-find-references)) + :custom + (lsp-ui-doc-enable nil)) +#+end_src +** Error checking #+begin_src emacs-lisp (use-package flycheck :init @@ -1021,51 +1004,15 @@ their minibuffer history across Emacs restarts. (reusable-frames . visible) (window-height . 0.35)))) #+end_src -** lsp-ui -#+begin_src emacs-lisp - (use-package lsp-ui - :after lsp - :custom - (lsp-ui-doc-show-with-mouse nil)) -#+end_src -** LSP-booster -#+begin_src emacs-lisp - (defun lsp-booster--advice-json-parse (old-fn &rest args) - "Try to parse bytecode instead of json." - (or - (when (equal (following-char) ?#) - (let ((bytecode (read (current-buffer)))) - (when (byte-code-function-p bytecode) - (funcall bytecode)))) - (apply old-fn args))) - (advice-add (if (progn (require 'json) - (fboundp 'json-parse-buffer)) - 'json-parse-buffer - 'json-read) - :around - #'lsp-booster--advice-json-parse) - - (defun lsp-booster--advice-final-command (old-fn cmd &optional test?) - "Prepend emacs-lsp-booster command to lsp CMD." - (let ((orig-result (funcall old-fn cmd test?))) - (if (and (not test?) ;; for check lsp-server-present? - (not (file-remote-p default-directory)) ;; see lsp-resolve-final-command, it would add extra shell wrapper - lsp-use-plists - (not (functionp 'json-rpc-connection)) ;; native json-rpc - (executable-find "emacs-lsp-booster")) - (progn - (message "Using emacs-lsp-booster for %s!" orig-result) - (cons "emacs-lsp-booster" orig-result)) - orig-result))) - (advice-add 'lsp-resolve-final-command :around #'lsp-booster--advice-final-command) -#+end_src ** Corfu #+begin_src emacs-lisp (use-package corfu - :defer t + :hook (emacs-startup . global-corfu-mode) :bind (:map corfu-map ("M-j" . corfu-next) - ("M-k" . corfu-previous)) + ("M-k" . corfu-previous) + ([remap previous-line] . nil) + ([remap next-line] . nil)) :custom (corfu-preselect 'prompt) (corfu-auto t) @@ -1077,10 +1024,9 @@ their minibuffer history across Emacs restarts. (corfu-scroll-margin 4) (corfu-on-exact-match nil) (tab-always-indent 'complete) - :init + :config (global-corfu-mode) (corfu-popupinfo-mode)) - #+end_src *** Cape #+begin_src emacs-lisp @@ -1111,7 +1057,7 @@ their minibuffer history across Emacs restarts. "M-TAB" 'tempel-next) :custom (tempel-trigger-prefix "<") - :config + :init (add-to-list 'completion-at-point-functions #'tempel-complete)) (use-package tempel-collection :ensure t @@ -1125,8 +1071,6 @@ their minibuffer history across Emacs restarts. ** Languages *** Python #+begin_src emacs-lisp - (use-package py-autopep8 - :hook (python-mode . py-autopep8-mode)) (use-package lsp-pyright :after lsp) #+end_src @@ -1134,12 +1078,12 @@ their minibuffer history across Emacs restarts. #+begin_src emacs-lisp (use-package rust-mode :mode "\\.rs\\'") - (use-package cargo-mode - :after rust-mode - :hook - (rust-ts-mode . cargo-minor-mode) - :config - (setq compilation-scroll-output t)) + ;; (use-package cargo-mode + ;; :after rust-mode + ;; :hook + ;; (rust-ts-mode . cargo-minor-mode) + ;; :config + ;; (setq compilation-scroll-output t)) #+end_src *** Fish #+begin_src emacs-lisp @@ -1162,18 +1106,18 @@ their minibuffer history across Emacs restarts. "\\.as[cp]x\\'" "\\.erb\\'" "\\.mustache\\'" - "\\.djhtml\\'" - "\\.vue\\'") + "\\.djhtml\\'") :hook (eb-mode . (lambda () (electric-pair-local-mode -1)))) ;; (use-package emmet-mode ;; :ghook 'web-mode) #+end_src -*** JavaScript +*** TypeScript #+begin_src emacs-lisp - (defun my/typescript-indent () - (setq-local typescript-ts-mode-indent-offset 4) - (setq-local tab-width 4)) - (add-hook 'typescript-ts-mode-hook 'my/typescript-indent) + (use-package typescript-ts-mode + :defer t + :ensure nil + :custom + (typescript-ts-mode-indent-offset tab-width)) #+end_src *** Odin #+begin_src emacs-lisp @@ -1208,6 +1152,14 @@ their minibuffer history across Emacs restarts. :activation-fn (lsp-activate-on "gleam") :server-id 'glas)))) #+end_src +*** Go +#+begin_src emacs-lisp + (use-package go-ts-mode + :defer t + :ensure nil + :custom + (go-ts-mode-indent-offset tab-width)) +#+end_src ** Direnv #+begin_src emacs-lisp (use-package direnv @@ -1217,7 +1169,7 @@ their minibuffer history across Emacs restarts. ** Better scratch #+begin_src emacs-lisp (use-package scratch - :defer t) + :commands scratch) #+end_src * Dired ** Bindings @@ -1232,39 +1184,23 @@ their minibuffer history across Emacs restarts. (dired-listing-switches "-hal --group-directories-first") (dired-dwim-target t)) #+end_src -** Dired hacks -#+begin_src emacs-lisp - (use-package dired-ranger - :bind (:map dired-mode-map - ("r c" . dired-ranger-copy) - ("r m" . dired-ranger-move) - ("r p" . dired-ranger-paste) - ("\\" . dired-ranger-bookmark) - ("`" . dired-ranger-bookmark-visit))) - (use-package dired-narrow - :bind (:map dired-mode-map - ("n" . dired-narrow))) -#+end_src -** Dired quick sort +** Media files #+begin_src emacs-lisp - (use-package dired-quick-sort + (use-package ready-player + :custom + (ready-player-set-global-bindings nil) :after dired :config - (dired-quick-sort-setup)) + (ready-player-mode)) #+end_src -** Async copy +** Casual dired #+begin_src emacs-lisp - (use-package dired-rsync - :after dired - :general (:prefix "C-c" :keymaps 'dired-mode-map - "C-r" 'dired-rsync - "C-x" 'dired-rsync-ent)) -#+end_src -** Media files -#+begin_src emacs-lisp - (use-package ready-player - :after dired - :ensure (:host github :repo "xenodium/ready-player")) + (use-package casual-dired + :after dired + :bind (:map dired-mode-map + ("C-o" . #'casual-dired-tmenu) + ("s" . #'casual-dired-sort-by-tmenu) + ("/" . #'casual-dired-search-replace-tmenu))) #+end_src * Sql #+begin_src emacs-lisp @@ -1283,33 +1219,21 @@ their minibuffer history across Emacs restarts. (setq sql-sqlite-program "sqlite3") #+end_src * Additional apps +*** Casual calc +#+begin_src emacs-lisp + (use-package casual-calc + :bind (:map + calc-mode-map + ("C-o" . casual-calc-tmenu) + :map + calc-alg-map + ("C-o" . casual-calc-tmenu)) + :after (calc)) +#+end_src ** Magit #+begin_src emacs-lisp - (use-package transient :ensure t) + (use-package transient) (use-package magit :after transient :bind (("C-c o g" . magit))) #+end_src -** gptel -#+begin_src emacs-lisp - (use-package gptel - :after transient - :defer t - :custom - (gptel-default-mode #'org-mode) - :config - (gptel-make-ollama "ollama" - :host "localhost:11434" - :stream t - :models '("llama3:latest" - "phi3:latest" - "qwen:7b" - "qwen:4b")) - (gptel-make-openai "TogetherAI" - :host "api.together.xyz" - :key "cfc62f705be4ee701a498faa8bd65b5a1ab377d47354a0bb90e0d0a230366e8f" - :stream t - :models '("meta-llama/Llama-3-70b-chat-hf" - "codellama/CodeLlama-13b-Instruct-hf" - "codellama/CodeLlama-34b-Instruct-hf"))) -#+end_src |