diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-09-25 00:36:32 +0100 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-09-25 00:36:32 +0100 |
| commit | 247d19b5d436f7f4b6da94f79b0ebb56851aadeb (patch) | |
| tree | 5ac223b73db7bf48880774ab2d44c78186542e73 | |
| parent | 5150ad453e5b28662c10d719012b6446e6d01ff1 (diff) | |
| download | dotfiles-247d19b5d436f7f4b6da94f79b0ebb56851aadeb.tar.gz dotfiles-247d19b5d436f7f4b6da94f79b0ebb56851aadeb.tar.bz2 dotfiles-247d19b5d436f7f4b6da94f79b0ebb56851aadeb.zip | |
Bunch of changes fr fr
| -rw-r--r-- | Emacs/.config/emacs/config.org | 20 | ||||
| -rw-r--r-- | Emacs/.config/emacs/elisp/eshell-prompt.el | 9 |
2 files changed, 19 insertions, 10 deletions
diff --git a/Emacs/.config/emacs/config.org b/Emacs/.config/emacs/config.org index 21e7774..5b5d16f 100644 --- a/Emacs/.config/emacs/config.org +++ b/Emacs/.config/emacs/config.org @@ -472,6 +472,7 @@ set of examples on how to use general. "D" #'clean-buffers) (quit-leader + "d" #'toggle-debug-on-error "p" #'straight-pull-package "b" #'straight-rebuild-package "q" #'save-buffers-kill-terminal @@ -2949,7 +2950,7 @@ for latex fragments. :defer t :init (setq org-format-latex-options - '(:foreground default :background "Transparent" :scale 2 + '(:foreground default :background "Transparent" :scale 1.5 :html-foreground "Black" :html-background "Transparent" :html-scale 1.0 :matchers ("begin" "$1" "$" "$$" "\\(" "\\[")) org-latex-src-block-backend 'minted @@ -3925,7 +3926,8 @@ key bindings. "M-k" #'sp-backward-up-sexp "M-l" #'sp-next-sexp "M-S-j" #'sp-up-sexp - "M-S-k" #'sp-backward-down-sexp)) + "M-S-k" #'sp-backward-down-sexp + "M-K" #'sp-split-sexp)) #+end_src *** Common Lisp auto insert Like C/C++'s auto insert, but with Common Lisp comments. @@ -4001,9 +4003,12 @@ IDE I have used is as capable in aiding development as Emacs + Sly. "a" #'sly-apropos "d" #'sly-describe-symbol "s" #'sly-stickers-dwim - "S" #'sly-mrepl-sync "l" #'sly-load-file + "t" #'sly-trace-dialog-toggle-trace + "i" #'sly-inspect + "T" #'sly-trace-dialog "c" #'sly-compile-defun + "S" #'sly-mrepl-sync "D" #'sly-documentation-lookup "C" #'sly-compile-file) (local-leader @@ -4071,7 +4076,14 @@ IDE I have used is as capable in aiding development as Emacs + Sly. "9" #'sly-db-invoke-restart-9) (nmap :keymaps 'sly-inspector-mode-map - "q" #'sly-inspector-quit)) + "q" #'sly-inspector-quit) + (nmap + :keymaps 'sly-trace-dialog-mode-map + "gr" #'sly-trace-dialog-fetch-traces) + (local-leader + :keymaps 'sly-trace-dialog-mode-map + "r" #'sly-trace-dialog-fetch-status + "c" #'sly-trace-dialog-clear-fetched-traces)) #+end_src *** Lisp indent function Add a new lisp indent function which indents newline lists more diff --git a/Emacs/.config/emacs/elisp/eshell-prompt.el b/Emacs/.config/emacs/elisp/eshell-prompt.el index fc39b8b..b6d0bd0 100644 --- a/Emacs/.config/emacs/elisp/eshell-prompt.el +++ b/Emacs/.config/emacs/elisp/eshell-prompt.el @@ -115,18 +115,15 @@ behind or ahead the local repository is." (diff (cl-position "by" branch-status :test #'string=))) (if (null diff) (ep/--with-fg-colour "=" ep/success-colour) - (--> diff - 1+ - (nth it branch-status) - (concat - )) (concat (cond ((string= status "ahead") (ep/--with-fg-colour "→" ep/ahead-colour)) ((string= status "behind") (ep/--with-fg-colour "←" ep/failure-colour))) - (nth (1+ diff) branch-status))))) + (thread-first diff + 1+ + (nth branch-status)))))) (defun ep/--git-change-status () "Returns a propertized string for the condition of the worktree in |