-
Notifications
You must be signed in to change notification settings - Fork 0
/
.thesiswmrc
93 lines (77 loc) · 3.06 KB
/
.thesiswmrc
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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
;; -*-lisp-*-
(in-package :thesiswm)
;; Load swank.
(require 'swank)
(swank:create-server
:port 4005
:style swank:*communication-style*
:dont-close t)
(load-module "ttf-fonts")
(clx-truetype:cache-fonts)
(set-font (make-instance 'xft:font :family "DejaVu Sans Mono" :subfamily "Book" :size 12))
(set-bg-color "white")
(set-fg-color "black")
(set-float-focus-color "white")
(set-float-unfocus-color "gray")
(declaim (optimize (debug 3)))
(setq *startup-message* nil)
(setq *default-command-list*
'(((eval-command "delete") "[X]")
((eval-command "maximize 1 1 top left") "[maxf]")
((eval-command "maximize 2 1 top left") "[maxl]")
((eval-command "maximize 2 1 top right") "[maxr]")
((eval-command "left") "[left]")
((eval-command "right") "[right]")
((funcall #'add-win-wrapped) "[+++]" )))
(setq *default-command-string* (render-bar-string *default-command-list*))
(setq *mouse-focus-policy* :sloppy)
(setq *debug-level* 99)
(redirect-all-output (data-dir-file "debug-output" "txt"))
;; Hard-coded number of clusters.
(defvar *cluster-count* 1)
;; change the prefix key to something else
(set-prefix-key (kbd "C-;"))
(define-key *root-map* (kbd "s-h")
(format nil "pan-group ~a 0" (screen-width (current-screen))))
(define-key *root-map* (kbd "s-j")
(format nil "pan-group 0 -~a" (screen-height (current-screen))))
(define-key *root-map* (kbd "s-k")
(format nil "pan-group 0 ~a" (screen-height (current-screen))))
(define-key *root-map* (kbd "s-l")
(format nil "pan-group -~a 0" (screen-width (current-screen))))
(define-key *root-map* (kbd "s-o") "view-all-in-group")
(define-key *root-map* (kbd ".") "colon")
(defvar *views-map* nil)
(define-key *root-map* (kbd "V") "version")
(define-key *root-map* (kbd "v") '*views-map*)
(define-key *root-map* (kbd "quoteleft") "scale-up 10")
(define-key *root-map* (kbd "~") "scale-down 10")
(define-key *root-map* (kbd "@") "reset-scale")
(define-key *root-map* (kbd "]") "scale-up 100")
(define-key *root-map* (kbd "[") "scale-down 100")
(fill-keymap *views-map*
(kbd "F1") "record-view 1"
(kbd "F2") "record-view 2"
(kbd "F3") "record-view 3"
(kbd "F4") "record-view 4"
(kbd "F5") "record-view 5"
(kbd "F6") "record-view 6"
(kbd "F7") "record-view 7"
(kbd "F8") "record-view 8"
(kbd "F9") "record-view 9"
(kbd "F10") "record-view 10"
(kbd "1") "activate-view 1"
(kbd "2") "activate-view 2"
(kbd "3") "activate-view 3"
(kbd "4") "activate-view 4"
(kbd "5") "activate-view 5"
(kbd "6") "activate-view 6"
(kbd "7") "activate-view 7"
(kbd "8") "activate-view 8"
(kbd "9") "activate-view 9"
(kbd "0") "activate-view 10")
(defun list-to-string (lst)
(format nil "~{~A~}" lst))
(run-shell-command "compton --dbus")
;; (run-shell-command "feh --bg-center ~/Pictures/background.png")
;; (run-shell-command "redshift")