aa502c3baf
Sometimes I need device-specific Elisp. This is similar to what I'm doing in google-briefcase (my gLinux-specific configuration). Change-Id: Idc4031e74d31a91fb8d943acfaeb90b8742fbfc4 Reviewed-on: https://cl.tvl.fyi/c/depot/+/5084 Reviewed-by: wpcarro <wpcarro@gmail.com> Autosubmit: wpcarro <wpcarro@gmail.com> Tested-by: BuildkiteCI
37 lines
1.2 KiB
EmacsLisp
37 lines
1.2 KiB
EmacsLisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Dependencies
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(require 'display)
|
|
(require 'window-manager)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Monitor Configuration
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(display-register laptop
|
|
:output "eDP-1"
|
|
:primary t
|
|
:coords (0 0)
|
|
:size (1920 1080)
|
|
:rate 30.0
|
|
:dpi 96
|
|
:rotate normal)
|
|
|
|
(display-arrangement primary :displays (laptop))
|
|
|
|
(setq window-manager-named-workspaces
|
|
(list (make-window-manager-named-workspace
|
|
:label "Web Browsing"
|
|
:kbd "c"
|
|
:display display-laptop)
|
|
(make-window-manager-named-workspace
|
|
:label "Coding"
|
|
:kbd "d"
|
|
:display display-laptop)
|
|
(make-window-manager-named-workspace
|
|
:label "Chatting"
|
|
:kbd "h"
|
|
:display display-laptop)))
|
|
|
|
(window-manager-init :init-hook #'display-arrange-primary)
|