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:
William Carroll 2019-12-22 21:38:35 +00:00
parent 0cd3b44ce3
commit 27c57a1f16

View file

@ -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