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.

1 files changed, 1 insertions, 54 deletions

diff --git a/configs/shared/.emacs.d/wpc/window-manager.el b/configs/shared/.emacs.d/wpc/window-manager.el
index 76586303dc68..07adf8774510 100644
--- a/configs/shared/.emacs.d/wpc/window-manager.el
+++ b/configs/shared/.emacs.d/wpc/window-manager.el
@@ -374,7 +374,7 @@
                       (exwm/terminal-open "python3"))
  (kbd/raw 'x11 "t") (lambda ()
                       (interactive)
-                      (exwm/terminal-open "zsh"))
+                      (exwm/open exwm/preferred-terminal))
  (kbd/raw 'x11 "c") (lambda ()
                       (interactive)
                       (exwm/open exwm/preferred-browser)))
@@ -475,59 +475,6 @@ Ivy is used to capture the user's input."
    :prompt "Application: "
    :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)
   "Return the index of the workspace in WORKSPACES named LABEL."
   (let ((workspace (->> workspaces