Drop support for purpose.el
For now, my lack of understanding of purpose results in purpose getting in my way. One day, I may reinvestigate this. For now, I'm attempting to learn Prolog and Nix, which is occupying most of my tolerance for new technology.
This commit is contained in:
parent
0cd3b44ce3
commit
27c57a1f16
1 changed files with 1 additions and 54 deletions
|
@ -374,7 +374,7 @@
|
||||||
(exwm/terminal-open "python3"))
|
(exwm/terminal-open "python3"))
|
||||||
(kbd/raw 'x11 "t") (lambda ()
|
(kbd/raw 'x11 "t") (lambda ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(exwm/terminal-open "zsh"))
|
(exwm/open exwm/preferred-terminal))
|
||||||
(kbd/raw 'x11 "c") (lambda ()
|
(kbd/raw 'x11 "c") (lambda ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(exwm/open exwm/preferred-browser)))
|
(exwm/open exwm/preferred-browser)))
|
||||||
|
@ -475,59 +475,6 @@ Ivy is used to capture the user's input."
|
||||||
:prompt "Application: "
|
:prompt "Application: "
|
||||||
:list window-manager/applications))
|
:list window-manager/applications))
|
||||||
|
|
||||||
;; TODO: KBDs for {enlarge,shrink}-window
|
|
||||||
|
|
||||||
(use-package window-purpose
|
|
||||||
:config
|
|
||||||
(purpose-mode 1)
|
|
||||||
|
|
||||||
;; call `purpose-compile-user-configuration' after making changes.
|
|
||||||
|
|
||||||
;; Example configuration:
|
|
||||||
;; (setq purpose-user-mode-purposes
|
|
||||||
;; '((term-mode . terminal)
|
|
||||||
;; (shell-mode . terminal)
|
|
||||||
;; (ansi-term-mode . terminal)
|
|
||||||
;; (tuareg-mode . coding)
|
|
||||||
;; (compilation-mode . messages)))
|
|
||||||
|
|
||||||
(setq purpose-user-mode-purposes
|
|
||||||
'(
|
|
||||||
;; Overview:
|
|
||||||
;; - coding: buffers for editing code
|
|
||||||
;; - repl: interactive REPLs -- including terminals
|
|
||||||
;; - documentation: help buffers and language documentation
|
|
||||||
;;
|
|
||||||
;; Ideas:
|
|
||||||
;; - racket and racket-project and two different variants where the
|
|
||||||
;; project version includes a file browser.
|
|
||||||
;; - google3 workspace
|
|
||||||
|
|
||||||
;; Racket
|
|
||||||
(racket-mode . coding)
|
|
||||||
(racket-repl-mode . repl)
|
|
||||||
(racket-describe-mode . documentation)
|
|
||||||
;; Elisp
|
|
||||||
(emacs-lisp-mode . coding)
|
|
||||||
(ielm-mode . repl)
|
|
||||||
;; Python
|
|
||||||
;; (python-mode . coding)
|
|
||||||
;; (emacs-lisp-mode . coding)
|
|
||||||
))
|
|
||||||
|
|
||||||
(macros/comment
|
|
||||||
(purpose-compile-user-configuration))
|
|
||||||
|
|
||||||
;; (setq purpose-user-name-purposes
|
|
||||||
;; `(("name" . "purpose")
|
|
||||||
;; ("name" . "purpose")))
|
|
||||||
|
|
||||||
;; (setq purpose-user-regexp-purposes
|
|
||||||
;; `(("regexp" . "purpose")
|
|
||||||
;; ("regexp" . "purpose")))
|
|
||||||
|
|
||||||
)
|
|
||||||
|
|
||||||
(defun exwm/label->index (label workspaces)
|
(defun exwm/label->index (label workspaces)
|
||||||
"Return the index of the workspace in WORKSPACES named LABEL."
|
"Return the index of the workspace in WORKSPACES named LABEL."
|
||||||
(let ((workspace (->> workspaces
|
(let ((workspace (->> workspaces
|
||||||
|
|
Loading…
Reference in a new issue