colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[Emacs] Reindent emit-prefix-selector

Browse Source
This commit is contained in:
Ivan Malison 2023-07-28 17:08:49 -06:00
parent 6df8ea9f7a
commit 771681965d
1 changed files with 31 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
dotfiles/emacs.d/README.org
View File

@ -1023,7 +1023,7 @@ I keep it around just in case I need it.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
;; TODO: fix ;; TODO: fix
(emit-prefix-selector imalison:mark-ring (emit-prefix-selector imalison:mark-ring
mark-ring) mark-ring)
#+END_SRC #+END_SRC
** Keyboard Macros ** Keyboard Macros
*** For editing literate config *** For editing literate config
@ -1760,8 +1760,8 @@ bind-key and global-set-key forms.
(progn (progn
(defmacro imalison:projectile-do-in-project (project-dir &rest forms) (defmacro imalison:projectile-do-in-project (project-dir &rest forms)
`(imalison:with-default-directory ,project-dir `(imalison:with-default-directory ,project-dir
(noflet ((projectile-project-root (&rest args) ,project-dir)) (noflet ((projectile-project-root (&rest args) ,project-dir))
,@forms))) ,@forms)))
(defmacro imalison:with-default-directory (directory &rest forms) (defmacro imalison:with-default-directory (directory &rest forms)
`(let ((default-directory ,directory)) `(let ((default-directory ,directory))
@ -1772,12 +1772,12 @@ bind-key and global-set-key forms.
(apply 'consult-ripgrep default-directory args)) (apply 'consult-ripgrep default-directory args))
(emit-prefix-selector imalison:do-rg (emit-prefix-selector imalison:do-rg
consult-ripgrep consult-ripgrep
imalison:do-rg-default-directory) imalison:do-rg-default-directory)
(emit-prefix-selector imalison:projectile-find-file (emit-prefix-selector imalison:projectile-find-file
projectile-find-file projectile-find-file
projectile-find-file-other-window) projectile-find-file-other-window)
(imalison:let-around imalison:set-options-do-rg (imalison:let-around imalison:set-options-do-rg
imalison:do-rg) imalison:do-rg)
@ -2384,7 +2384,7 @@ reference to the jedi-core package.
`(imalison:join-paths (imalison:get-go-path) "src" ,@paths)) `(imalison:join-paths (imalison:get-go-path) "src" ,@paths))
(imalison:let-advise-around imalison:advise-normal-go-command (imalison:let-advise-around imalison:advise-normal-go-command
(go-command "go")) (go-command "go"))
(defun imalison:go-mode-hook () (defun imalison:go-mode-hook ()
(go-eldoc-setup) (go-eldoc-setup)
@ -2397,51 +2397,26 @@ reference to the jedi-core package.
:config :config
(progn (progn
(use-package gotest (use-package gotest
:demand t
:bind (:map go-mode-map
("C-c t" . imalison:gotest))
:preface
(progn
(emit-prefix-selector imalison:gotest
go-test-current-test
go-test-current-file)
(defun imalison:add-expected-test-name-for-suite (suite-name test-name)
(if (> (length suite-name) 0)
(concat " -run Test" suite-name)
"")))
:config
(progn
(setq go-test-verbose t
go-test-additional-arguments-function
'imalison:add-expected-test-name-for-suite)))
(use-package company-go
:config (setq company-go-show-annotation t))
(use-package go-projectile :demand t)
(use-package go-eldoc :demand t)
(use-package go-guru
:demand t :demand t
:bind (:map go-mode-map :bind (:map go-mode-map
("M-." . go-guru-definition)) ("C-c t" . imalison:gotest))
:preface :preface
(progn (progn
(defun imalison:set-go-guru-scope () (emit-prefix-selector imalison:gotest
(setq go-guru-scope (go-mode-parse-glide-novendor))) go-test-current-test
(defun go-mode-parse-glide-novendor () go-test-current-file)
(s-join ","
(cl-loop for path in (s-split "\n" (imalison:glide-novendor)) (defun imalison:add-expected-test-name-for-suite (suite-name test-name)
collect (if (string-equal path ".") (if (> (length suite-name) 0)
(imalison:go-workspace-path) (concat " -run Test" suite-name)
(s-replace "\./" (imalison:go-workspace-path) path)))))) "")))
:config :config
(progn (progn
(advice-add 'go-guru--set-scope-if-empty :before 'imalison:set-go-guru-scope) (setq go-test-verbose t
(advice-add 'go-guru-start :before 'imalison:set-go-guru-scope) go-test-additional-arguments-function
(advice-add 'go-guru-definition :around 'imalison:advise-normal-go-command) 'imalison:add-expected-test-name-for-suite)))
(advice-add 'go-guru-definition :before (use-package company-go
(lambda () :config (setq company-go-show-annotation t))
(with-no-warnings
(ring-insert find-tag-marker-ring (point-marker)))))))
(advice-add 'go-import-add :around 'imalison:advise-normal-go-command) (advice-add 'go-import-add :around 'imalison:advise-normal-go-command)
@ -2638,12 +2613,12 @@ eval-last-sexp.
#+END_SRC #+END_SRC
**** Keybinds **** Keybinds
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(emit-compose imalison:copy-eval-last-sexp (emit-compose
kill-new prin1-to-string eval-last-sexp) imalison:copy-eval-last-sexp kill-new prin1-to-string eval-last-sexp)
(emit-prefix-selector imalison:eval-last-sexp (emit-prefix-selector imalison:eval-last-sexp
eval-region-or-last-sexp eval-region-or-last-sexp
imalison:copy-eval-last-sexp) imalison:copy-eval-last-sexp)
(define-key lisp-mode-shared-map (kbd "C-c C-c") 'eval-defun) (define-key lisp-mode-shared-map (kbd "C-c C-c") 'eval-defun)
(define-key lisp-mode-shared-map (kbd "C-c o r") 'up-list-region) (define-key lisp-mode-shared-map (kbd "C-c o r") 'up-list-region)
@ -3874,8 +3849,8 @@ alphanumeric characters only."
(magit-display-buffer-function (magit-display-buffer-function
'magit-display-buffer-traditional)) 'magit-display-buffer-traditional))
(emit-prefix-selector imalison:magit-status (emit-prefix-selector imalison:magit-status
magit-status magit-status
imalison:magit-status-traditional) imalison:magit-status-traditional)
(defun imalison:after-magit-visit-file (&rest args) (defun imalison:after-magit-visit-file (&rest args)
(when (derived-mode-p 'org-mode) (when (derived-mode-p 'org-mode)
(org-show-context 'magit-goto)))) (org-show-context 'magit-goto))))
@ -4147,8 +4122,8 @@ in term-mode. This makes term-mode 1000% more useful
:config :config
(progn (progn
(emit-prefix-selector imalison:term (emit-prefix-selector imalison:term
term-projectile-forward term-projectile-forward
term-projectile-create-new) term-projectile-create-new)
(defvar imalison:term-hydra-original-default-directory) (defvar imalison:term-hydra-original-default-directory)
@ -4901,7 +4876,7 @@ Ensure all themes that I use are installed:
** all-the-icons ** all-the-icons
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package all-the-icons (use-package all-the-icons
:defer 5) :demand t)
#+END_SRC #+END_SRC
** doom-modeline ** doom-modeline
#+begin_src emacs-lisp #+begin_src emacs-lisp