about summary refs log tree commit diff
path: root/emacs/.emacs.d/wpc/window-manager.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-04-02T17·36+0100
committerWilliam Carroll <wpcarro@gmail.com>2020-04-02T17·36+0100
commit099d88739b9890422957bcb97665fd51028cced7 (patch)
tree22131f36bf0792e422dac6dab2d3ab2351043e9d /emacs/.emacs.d/wpc/window-manager.el
parent691583ed5c8a722fec40c719599e9b2f458e7bdb (diff)
Tidy window-manager.el
Remove stale code and stale comments.
Diffstat (limited to 'emacs/.emacs.d/wpc/window-manager.el')
-rw-r--r--emacs/.emacs.d/wpc/window-manager.el50
1 files changed, 3 insertions, 47 deletions
diff --git a/emacs/.emacs.d/wpc/window-manager.el b/emacs/.emacs.d/wpc/window-manager.el
index 3bbf749e8389..aa631ae1842a 100644
--- a/emacs/.emacs.d/wpc/window-manager.el
+++ b/emacs/.emacs.d/wpc/window-manager.el
@@ -60,10 +60,7 @@
 ;; TODO: Support MRU cache of workspaces for easily switching back-and-forth
 ;; between workspaces.
 
-(cl-defstruct exwm/named-workspace
-  label
-  index
-  kbd)
+(cl-defstruct exwm/named-workspace label kbd)
 
 (defconst exwm/install-workspace-kbds? t
   "When t, install the keybindings to switch between named-workspaces.")
@@ -131,8 +128,6 @@
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   (require 'exwm-randr)
   (exwm-randr-enable)
-  ;; TODO: Consider generating this plist.
-  ;; TODO: Replace integer index values with their named workspace equivalents.
   (setq exwm-randr-workspace-monitor-plist
         (list 0 display/4k-monitor
               1 display/laptop-monitor))
@@ -154,10 +149,6 @@
   ;; `exwm-input-global-keys' = {line,char}-mode; can also call `exwm-input-set-key'
   ;; `exwm-mode-map'          = line-mode
   ;; `???'                    = char-mode. Is there a mode-map for this?
-  ;;
-  ;; TODO: What is `exwm-input-prefix-keys'?
-  ;; TODO: Once I get `exwm-input-global-keys' functions, drop support for
-  ;; `wpc/kbds'.
   (let ((kbds `(
                 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                 ;; Window sizing
@@ -278,42 +269,16 @@
       (funcall (cycle/next exwm/modes)))))
 
 ;; Ensure exwm apps open in char-mode.
-(add-hook
- 'exwm-manage-finish-hook
- #'exwm/char-mode)
+(add-hook 'exwm-manage-finish-hook #'exwm/char-mode)
 
 ;; Interface to the Linux password manager
 ;; TODO: Consider writing a better client for this.
 (use-package ivy-pass)
 
-;; TODO: Prefer a more idiomatic Emacs way like `with-output-to-temp-buffer'.
-
-;; TODO: Create a mode similar to `help-mode' that also kills the buffer when
-;; "q" is pressed since this is sensitive information that we probably don't
-;; want persisting.
-
-;; TODO: Have this interactively show all of the listings in ~/.password-store
-;; in an ivy list.
-(defun password-store/show (key)
-  "Show the contents of KEY from the password-store in a buffer."
-  (interactive)
-  (let ((b (buffer/find-or-create (string/format "*password-store<%s>*" key))))
-    (with-current-buffer b
-      (insert (password-store-get key))
-      (help-mode))
-    (buffer/show b)))
-
 ;; TODO: How do I handle this dependency?
 (defconst exwm/preferred-browser "google-chrome"
   "My preferred web browser.")
 
-(defun exwm/browser-open (&optional url)
-  "Opens the URL in `exwm/preferred-browser'."
-  (exwm/open
-   (string/format "%s %s" exwm/preferred-browser url)
-   :buffer-name (string/format "*%s*<%s>" exwm/preferred-browser url)
-   :process-name url))
-
 ;; TODO: Support searching all "launchable" applications like OSX's Spotlight.
 ;; TODO: Model this as key-value pairs.
 (defconst window-manager/applications
@@ -415,22 +380,13 @@ Currently using super- as the prefix for switching workspaces."
                exwm/workspaces)
   (exwm/change-workspace (cycle/current exwm/workspaces)))
 
-;; TODO: Assign an easy-to-remember keybinding to this.
 (exwm-input-set-key (kbd "C-S-f") #'exwm/toggle-previous)
+
 (defun exwm/toggle-previous ()
   "Focus the previously active EXWM workspace."
   (interactive)
   (exwm/change-workspace (cycle/focus-previous! exwm/workspaces)))
 
-(defun exwm/switch-to-exwm-workspace ()
-  "Use ivy to switched between named workspaces."
-  (interactive)
-  (ivy-read
-   "Workspace: "
-   (->> exwm/named-workspaces
-        (list/map #'exwm/named-workspace-label))
-   :action #'exwm/switch))
-
 (defun exwm/exwm-buffer? (x)
   "Return t if buffer X is an EXWM buffer."
   (equal 'exwm-mode (buffer-local-value 'major-mode x)))