diff options
| author | bd <bdunahu@operationnull.com> | 2024-11-08 21:40:40 -0500 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-11-08 21:40:40 -0500 |
| commit | b693e1832b040a82b6e1adab7e7619636faa1c68 (patch) | |
| tree | ee69288e036e83a296d297ca72705c497bc7e1f1 /.config/emacs/modules/bd--devel.el | |
| parent | 13d96f5b959c3c2a6d64910a7b719999489661d1 (diff) | |
Adjust shackle rules, fix magit bug, remove consult+vertico
Diffstat (limited to '.config/emacs/modules/bd--devel.el')
| -rw-r--r-- | .config/emacs/modules/bd--devel.el | 30 |
1 files changed, 17 insertions, 13 deletions
diff --git a/.config/emacs/modules/bd--devel.el b/.config/emacs/modules/bd--devel.el index 36b73a5..c9d2ff1 100644 --- a/.config/emacs/modules/bd--devel.el +++ b/.config/emacs/modules/bd--devel.el @@ -3,14 +3,6 @@ ;;; Code: -(defun request-sudo () - "Uses TRAMP to edit current opened file as root." - (interactive) - (when buffer-file-name - (find-alternate-file - (concat "/sudo:root@localhost:" - buffer-file-name)))) - (add-hook 'prog-mode-hook (lambda () (font-lock-add-keywords nil '(("\\<\\(FIX\\(ME\\)?\\|TODO\\)" @@ -31,11 +23,22 @@ to.") ;; skr (skribe) is a scheme extension (add-to-list 'auto-mode-alist '("\\.skr\\'" . scheme-mode)) +(use-package tramp + :config + (defun request-sudo () + "Uses TRAMP to edit current opened file as root." + (interactive) + (when buffer-file-name + (find-alternate-file + (concat "/sudo:root@localhost:" + buffer-file-name))))) + (use-package autoformat :custom (autoformat-mode 1)) (use-package compile + :demand t :hook ((compilation-filter . ansi-color-compilation-filter)) :custom (compilation-always-kill t) @@ -43,11 +46,7 @@ to.") (compilation-ask-about-save nil) :config (defun bd/compile-dwim (f) - (let ((default-directory - (or (locate-dominating-file "." "Makefile") ;; make - (locate-dominating-file "." "build.xml") ;; ant - (locate-dominating-file "." "manifest.scm") ;; guix - default-directory))) + (let ((default-directory (bd/get-directory-dwim))) (call-interactively f))) (keymap-set prog-mode-map @@ -68,6 +67,11 @@ to.") (use-package lua-mode) +;; fix to force-load newest transient +(use-package transient + :load-path (lambda () (car (directory-files + "/home/bdunahu/.guix-home/profile/share/emacs/site-lisp/" + t "transient-")))) (use-package magit :commands magit-status :custom |