blob: 3f2b302f8c3cc764fe1a34e98a7d4a325de4d8fd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 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)
|
