Support EXWM workspace for IRC

Supporting this since my chat workspace is already a bit populous.
This commit is contained in:
William Carroll 2020-01-06 10:11:08 +00:00
parent 74ed4b6b11
commit 9f209f5ccd

View file

@ -85,8 +85,12 @@
:index 6 :index 6
:kbd "h") :kbd "h")
(make-exwm/named-workspace (make-exwm/named-workspace
:label "Work" :label "IRC"
:index 7 :index 7
:kbd "i")
(make-exwm/named-workspace
:label "Work"
:index 8
:kbd "w")) :kbd "w"))
"List of `exwm/named-workspace' structs.") "List of `exwm/named-workspace' structs.")
@ -287,11 +291,33 @@
#'exwm/char-mode) #'exwm/char-mode)
;; Interface to the Linux password manager ;; Interface to the Linux password manager
;; TODO: Consider writing a better client for this.
(use-package ivy-pass) (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: I'm having difficulties with the Nix-built terminator. The one at
;; /usr/bin/terminator (i.e. built w/o Nix) works just fine. Using this,
;; however, cheapens my Nix setup.
(defconst exwm/preferred-terminal "terminator" (defconst exwm/preferred-terminal "terminator"
"My preferred terminal.") "My preferred terminal.")
;; TODO: How do I handle this dependency?
(defconst exwm/preferred-browser "google-chrome" (defconst exwm/preferred-browser "google-chrome"
"My preferred web browser.") "My preferred web browser.")
@ -553,7 +579,8 @@ Currently using super- as the prefix for switching workspaces."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(progn (progn
(exwm/switch "Project") (exwm/switch "Project")
(find-file constants/current-project)) ;; (find-file constants/current-project)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Scratch ;; Scratch
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -573,19 +600,20 @@ Currently using super- as the prefix for switching workspaces."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(progn (progn
(exwm/switch "Todos") (exwm/switch "Todos")
(find-file "~/Dropbox/org/today.org") ;; (find-file "~/Dropbox/org/today.org")
(wpc/evil-window-vsplit-right) (wpc/evil-window-vsplit-right)
(find-file "~/Dropbox/org/emacs.org")) ;; (find-file "~/Dropbox/org/emacs.org")
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Dotfiles ;; Dotfiles
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(progn (progn
(exwm/switch "Dotfiles") (exwm/switch "Dotfiles")
;; TODO: Support (dotfiles/find-file "window-manager.el")? ;; TODO: Support (dotfiles/find-file "window-manager.el")?
(find-file "~/Dropbox/dotfiles/configs/shared/.emacs.d/init.el") ;; (find-file "~/Dropbox/dotfiles/configs/shared/.emacs.d/init.el")
(wpc/evil-window-vsplit-right) (wpc/evil-window-vsplit-right)
(find-file ;; (find-file "~/Dropbox/dotfiles/configs/shared/.emacs.d/wpc/window-manager.el")
"~/Dropbox/dotfiles/configs/shared/.emacs.d/wpc/window-manager.el")) )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Chatter ;; Chatter
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;