mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor(wpcarro/emacs): Remove TODOs from window-manager.el

Browse source 
Some of these are obsolete; I'm dropping others; fixed some.

Change-Id: I0e5e39354176824b1028452355216b68206034ae
Reviewed-on: https://cl.tvl.fyi/c/depot/+/5039
Tested-by: BuildkiteCI
Autosubmit: wpcarro <wpcarro@gmail.com>
Reviewed-by: wpcarro <wpcarro@gmail.com>
This commit is contained in:
William Carroll 2022-01-20 15:53:19 -08:00 committed by clbot
parent b9deba220f
commit 28c2ea9d81
1 changed files with 2 additions and 40 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
users/wpcarro/emacs/.emacs.d/wpc/window-manager.el
View file

@ -8,10 +8,8 @@
;; I switched to EXWM from i3, and I haven't looked back. One day I may write a
;; poem declaring my love for Emacs and EXWM. For now, I haven't the time.
;; Wish list:
;; - TODO: Support different startup commands and layouts depending on laptop or
;; desktop.
;; - TODO: Support a Music named-workspace.
;; Wist List:
;; - TODO: Consider supporting MRU cache of worksapces.
;;; Code:
@ -35,35 +33,12 @@
;; Library
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; TODO: Associate `window-purpose' window-layouts with each of these named
;; workspaces.
;; TODO: Associate KBDs for each of these named-layouts.
;; TODO: Decide between window-manager, exwm, or some other namespace.
;; TODO: Support (cycle-from-list '(current previous)) to toggle back and forth
;; between most recent workspace.
;; TODO: Support ad hoc cycle for loading a few workspaces that can be cycled
;; between. (cycle-from-list '("Project" "Workspace"))
;; TODO: Consider supporting a workspace for Racket, Clojure, Common Lisp,
;; Haskell, Elixir, and a few other languages. These could behave very similarly
;; to repl.it, which I've wanted to have locally for awhile now.
;; TODO: Support MRU cache of workspaces for easily switching back-and-forth
;; between workspaces.
(cl-defstruct window-manager--named-workspace label kbd display)
(defgroup window-manager)
(defconst window-manager--install-kbds? t
"When t, install the keybindings to switch between named-workspaces.")
;; TODO: Consume `cache/touch' after changing workspaces. Use this to enable
;; cycling through workspaces.
(defconst window-manager--named-workspaces
(list (make-window-manager--named-workspace
:label "Web Browsing"
@ -111,7 +86,6 @@
-flatten))
(setq exwm-workspace-number (list-length window-manager--named-workspaces))
(setq exwm-input-simulation-keys
;; TODO: Consider supporting M-d and other readline style KBDs.
'(([?\C-b] . [left])
([?\M-b] . [C-left])
([?\C-f] . [right])
@ -121,8 +95,6 @@
([?\C-a] . [home])
([?\C-e] . [end])
([?\C-d] . [delete])
;; TODO: Assess whether or not this is a good idea.
;; TODO: Ensure C-c copies.
([?\C-c] . [C-c])))
(exwm-enable))
(defcustom window-manager-screenlocker "xsecurelock"
@ -149,8 +121,6 @@
(interactive)
(window-manager--change-workspace (cycle-prev window-manager--workspaces)))
;; TODO: Create friendlier API for working with EXWM.
;; Here is the code required to toggle EXWM's modes.
(defun window-manager--line-mode ()
"Switch exwm to line-mode."
@ -178,14 +148,6 @@
(add-hook 'exwm-manage-finish-hook #'window-manager--char-mode)
;; TODO: How do I handle this dependency?
(defconst window-manager--preferred-browser "google-chrome"
"My preferred web browser.")
;; TODO: Consider replacing the `ivy-read' call with something like `hydra' that
;; can provide a small mode for accepting user-input.
;; TODO: Put this somewhere more diliberate.
(defun window-manager--label->index (label workspaces)
"Return the index of the workspace in WORKSPACES named LABEL."
(let ((index (-elem-index label (-map #'window-manager--named-workspace-label