Support EXWM workspace for IRC
Supporting this since my chat workspace is already a bit populous.
This commit is contained in:
		
							parent
							
								
									74ed4b6b11
								
							
						
					
					
						commit
						9f209f5ccd
					
				
					 1 changed files with 35 additions and 7 deletions
				
			
		| 
						 | 
					@ -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
 | 
				
			||||||
     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 | 
					     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue