Looks like the everything after the `window-manager-init` call doesn't run. Change-Id: Ib5d81c5f079152bda658d213a39c07276b4ef6e6 Reviewed-on: https://cl.tvl.fyi/c/depot/+/6036 Reviewed-by: wpcarro <wpcarro@gmail.com> Autosubmit: wpcarro <wpcarro@gmail.com> Tested-by: BuildkiteCI
		
			
				
	
	
		
			59 lines
		
	
	
	
		
			1.9 KiB
		
	
	
	
		
			EmacsLisp
		
	
	
	
	
	
			
		
		
	
	
			59 lines
		
	
	
	
		
			1.9 KiB
		
	
	
	
		
			EmacsLisp
		
	
	
	
	
	
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 | 
						|
;; Dependencies
 | 
						|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 | 
						|
 | 
						|
(require 'bookmark)
 | 
						|
(require 'display)
 | 
						|
(require 'window-manager)
 | 
						|
 | 
						|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 | 
						|
;; Configuration
 | 
						|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 | 
						|
 | 
						|
(bookmark-install-kbd
 | 
						|
 (make-bookmark :label "hadrian"
 | 
						|
                :path (f-join tvl-depot-path "/hadrian")
 | 
						|
                :kbd "h"))
 | 
						|
 | 
						|
(add-to-list 'ssh-hosts "wpcarro@tarasco")
 | 
						|
 | 
						|
(display-register primary
 | 
						|
                  :output "HDMI-1"
 | 
						|
                  :primary t
 | 
						|
                  :coords (0 0)
 | 
						|
                  :size (2560 1440)
 | 
						|
                  :rate 30.0
 | 
						|
                  :dpi 96
 | 
						|
                  :rotate normal)
 | 
						|
 | 
						|
(display-register secondary
 | 
						|
                  :output "HDMI-2"
 | 
						|
                  :primary nil
 | 
						|
                  :coords (2561 0)
 | 
						|
                  :size (2560 1440)
 | 
						|
                  :rate 30.0
 | 
						|
                  :dpi 96
 | 
						|
                  :rotate normal)
 | 
						|
 | 
						|
(display-arrangement main :displays (primary secondary))
 | 
						|
 | 
						|
(setq window-manager-named-workspaces
 | 
						|
      (list (make-window-manager-named-workspace
 | 
						|
             :label "Web Browsing"
 | 
						|
             :kbd "c"
 | 
						|
             :display display-secondary)
 | 
						|
            (make-window-manager-named-workspace
 | 
						|
             :label "Coding I"
 | 
						|
             :kbd "1"
 | 
						|
             :display display-primary)
 | 
						|
            (make-window-manager-named-workspace
 | 
						|
             :label "Coding II"
 | 
						|
             :kbd "2"
 | 
						|
             :display display-primary)
 | 
						|
            (make-window-manager-named-workspace
 | 
						|
             :label "Chatting"
 | 
						|
             :kbd "h"
 | 
						|
             :display display-secondary)))
 | 
						|
 | 
						|
;; I *think* this needs to be the last statement in this file.
 | 
						|
(window-manager-init :init-hook #'display-arrange-main)
 |