commit 8842262c98967ddcbb348c614976184ad20fcb32 parent f363c05abd3597c6dbabbbb1be3038b5fb45e1cb Author: Vincent Demeester <vincent@sbr.pm> Date: Fri, 25 Sep 2020 12:03:41 +0100 tools/emacs: remove the use of embark tt is a niche usage and I don't really often use it. Signed-off-by: Vincent Demeester <vincent@sbr.pm> Diffstat:
| M | .gitmodules | | | 3 | --- |
| M | tools/emacs/config/config-completion.el | | | 55 | ------------------------------------------------------- |
| D | tools/emacs/lisp/embark | | | 1 | - |
3 files changed, 0 insertions(+), 59 deletions(-)
diff --git a/.gitmodules b/.gitmodules @@ -1,6 +1,3 @@ [submodule "tools/emacs/lisp/vorg"] path = tools/emacs/lisp/vorg url = https://gitlab.com/vdemeester/vorg.git -[submodule "tools/emacs/lisp/emark"] - path = tools/emacs/lisp/embark - url = https://github.com/oantolin/embark/ diff --git a/tools/emacs/config/config-completion.el b/tools/emacs/config/config-completion.el @@ -251,61 +251,6 @@ normally would when calling `yank' followed by `yank-pop'." ("'" . avy-embark-occur-choose) ("\"" . avy-embark-occur-act))) -(use-package embark - :load-path "~/.config/emacs/lisp/embark/" ; in development - :custom - (embark-occur-initial-view-alist '((t . grid))) - (embark-occur-minibuffer-completion t) - ;; (completing-read-function 'embark-completing-read) - :config - (defun vde/embark-insert-exit () - "Like `embark-insert' but exits current recursive minibuffer." - (interactive) - (with-minibuffer-selected-window (insert (embark-target))) - (abort-recursive-edit)) - - (defun vde/embark-insert-exit-all () - "Like `embark-insert' but exits all recursive minibuffers." - (interactive) - (with-minibuffer-selected-window (insert (embark-target))) - (top-level)) - - (setq embark-action-indicator - (propertize "[Act]" 'face - '(:inherit modus-theme-intense-blue :weight bold))) - (setq embark-become-indicator - (propertize "[Become]" 'face - '(:inherit modus-theme-intense-green :weight bold))) - - :bind (:map minibuffer-local-completion-map - ("M-o" . embark-act) - ("C-c a" . embark-occur) - ("C-c x" . embark-export) - (:map minibuffer-local-map - (">" . embark-become)) - (:map minibuffer-local-completion-map - ("M-;" . embark-act-noexit) - ("M-:" . embark-act) - ("C-o" . embark-occur) - ("C-l" . embark-live-occur) ; only here for crm, really - ("M-e" . embark-export) - ("M-q" . embark-occur-toggle-view) - ("M-v" . embark-switch-to-live-occur)) - (:map completion-list-mode-map - (";" . embark-act)) - (:map embark-occur-mode-map - ("a") ; I don't like my own default :) - (";" . embark-act) - ("'" . avy-embark-occur-choose) - ("\"" . avy-embark-occur-act)) - (:map embark-package-map - ("g" . package-refresh-contents) - ("a" . package-autoremove) - ("t" . try)) - (:map embark-general-map - ("m" . vde/embark-insert-exit) - ("j" . vde/embark-insert-exit-all)))) - ;; UseCompany (use-package company :unless noninteractive diff --git a/tools/emacs/lisp/embark b/tools/emacs/lisp/embark @@ -1 +0,0 @@ -Subproject commit 4c474c0ed03abed12f3f1ff7eca4894bedc86967