Commit 8842262c9896

Vincent Demeester <vincent@sbr.pm>
2020-09-25 13:03:41
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>
1 parent f363c05
Changed files (3)
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
tools/emacs/lisp/embark
@@ -1,1 +0,0 @@
-Subproject commit 4c474c0ed03abed12f3f1ff7eca4894bedc86967
.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/