Compare commits

..

3 commits

View file

@ -30,11 +30,6 @@
(gnewbg "music") (gnewbg "music")
(gnewbg "winkel")) (gnewbg "winkel"))
;; border width
(setf *maxsize-border-width* 3)
(setf *transient-border-width* 3)
(setf *normal-border-width* 3)
;; border style ;; border style
(setf *window-border-style* :tight) (setf *window-border-style* :tight)
(set-focus-color "#b00045") (set-focus-color "#b00045")
@ -88,7 +83,7 @@
;; Gaps ;; Gaps
(load-module "swm-gaps") (load-module "swm-gaps")
(setf swm-gaps:*inner-gaps-size* 5 (setf swm-gaps:*inner-gaps-size* 5
swm-gaps:*outer-gaps-size* 5 swm-gaps:*outer-gaps-size* 10
swm-gaps:*head-gaps-size* 0) swm-gaps:*head-gaps-size* 0)
(when *initializing* (when *initializing*
(swm-gaps:toggle-gaps)) (swm-gaps:toggle-gaps))
@ -108,12 +103,13 @@
(define-key *root-map* (kbd "m") (concatenate 'string "exec " *music-player*)) (define-key *root-map* (kbd "m") (concatenate 'string "exec " *music-player*))
;;; bind keys for changing workspace ;;; bind keys for changing workspace
(define-key *top-map* (kbd "s-1") "change-workspace web") (define-key *top-map* (kbd "s-1") "gselect web")
(define-key *top-map* (kbd "s-2") "change-workspace emacs") (define-key *top-map* (kbd "s-2") "gselect emacs")
(define-key *top-map* (kbd "s-3") "change-workspace work") (define-key *top-map* (kbd "s-3") "gselect work")
(define-key *top-map* (kbd "s-4") "change-workspace misc") (define-key *top-map* (kbd "s-4") "gselect misc")
(define-key *top-map* (kbd "s-9") "change-workspace music") (define-key *top-map* (kbd "s-9") "gselect music")
(define-key *top-map* (kbd "s-0") "change-workspace winkel") (define-key *top-map* (kbd "s-0") "gselect winkel")
(define-key *top-map* (kbd "s-p") "gother")
;; bind keys for moving the current window to another workspace ;; bind keys for moving the current window to another workspace
(define-key *top-map* (kbd "s-C-1") "gmove web") (define-key *top-map* (kbd "s-C-1") "gmove web")