For `M-x ssh-cd-home` Change-Id: I8c16d9d0c420cb9feafcb466c4a416a04a4b1a26 Reviewed-on: https://cl.tvl.fyi/c/depot/+/5746 Tested-by: BuildkiteCI Reviewed-by: wpcarro <wpcarro@gmail.com> Autosubmit: wpcarro <wpcarro@gmail.com>
		
			
				
	
	
		
			57 lines
		
	
	
	
		
			1.8 KiB
		
	
	
	
		
			EmacsLisp
		
	
	
	
	
	
			
		
		
	
	
			57 lines
		
	
	
	
		
			1.8 KiB
		
	
	
	
		
			EmacsLisp
		
	
	
	
	
	
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 | |
| ;; Dependencies
 | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 | |
| 
 | |
| (require 'display)
 | |
| (require 'window-manager)
 | |
| 
 | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 | |
| ;; Monitor Configuration
 | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 | |
| 
 | |
| (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)))
 | |
| 
 | |
| (window-manager-init :init-hook #'display-arrange-main)
 | |
| 
 | |
| (bookmark-install-kbd
 | |
|  (make-bookmark :label "hadrian"
 | |
|                 :path (f-join tvl-depot-path "/hadrian")
 | |
|                 :kbd "h"))
 | |
| 
 | |
| (add-to-list 'ssh-hosts "wpcarro@tarasco")
 |