Compare commits
6 commits
2e7620a3c2
...
fc180e22c4
Author | SHA1 | Date | |
---|---|---|---|
Marcel Kapfer | fc180e22c4 | ||
Marcel Kapfer | 5deb9e4569 | ||
Marcel Kapfer | 38de41ed73 | ||
Marcel Kapfer | f6a959373a | ||
Marcel Kapfer | 76063e5f6f | ||
Marcel Kapfer | 9ca85aa3c4 |
|
@ -49,10 +49,10 @@
|
|||
(gravity :center)
|
||||
|
||||
;; input bar position
|
||||
(setf *input-window-gravity* :bottom)
|
||||
(setf *input-window-gravity* :center)
|
||||
|
||||
;; message bar position
|
||||
(setf *message-window-gravity* :bottom)
|
||||
(setf *message-window-gravity* :center)
|
||||
|
||||
;; message timeout
|
||||
(setf *timeout-wait* 3)
|
||||
|
@ -78,13 +78,20 @@
|
|||
;; mode-line style
|
||||
(setf *mode-line-background-color* "#333333"
|
||||
*mode-line-foreground-color* "#cccccc"
|
||||
*mode-line-border-color* "#b00045"
|
||||
*mode-line-timeout* 5
|
||||
*mode-line-border-width* 3
|
||||
*mode-line-border-width* 0
|
||||
*mode-line-pad-x* 3
|
||||
*mode-line-pad-y* 3
|
||||
*screen-mode-line-format* (list "[" '(:eval (RUN-SHELL-COMMAND "date '+%F %H:%M'|tr -d [:cntrl:]" T)) "] [%n] %w ^> [%B] [marcel@%h] %T"))
|
||||
|
||||
;; Gaps
|
||||
(load-module "swm-gaps")
|
||||
(setf swm-gaps:*inner-gaps-size* 5
|
||||
swm-gaps:*outer-gaps-size* 5
|
||||
swm-gaps:*head-gaps-size* 0)
|
||||
(when *initializing*
|
||||
(swm-gaps:toggle-gaps))
|
||||
|
||||
;; customize texts
|
||||
(setf *window-format* "^B %n ^b %20t "
|
||||
*group-format* "%t")
|
||||
|
@ -100,20 +107,32 @@
|
|||
(define-key *root-map* (kbd "m") (concatenate 'string "exec " *music-player*))
|
||||
|
||||
;;; bind keys for changing workspace
|
||||
(define-key *root-map* (kbd "C-1") "change-workspace web")
|
||||
(define-key *root-map* (kbd "C-2") "change-workspace emacs")
|
||||
(define-key *root-map* (kbd "C-3") "change-workspace work")
|
||||
(define-key *root-map* (kbd "C-4") "change-workspace misc")
|
||||
(define-key *root-map* (kbd "C-9") "change-workspace music")
|
||||
(define-key *root-map* (kbd "C-0") "change-workspace winkel")
|
||||
(define-key *top-map* (kbd "s-1") "change-workspace web")
|
||||
(define-key *top-map* (kbd "s-2") "change-workspace emacs")
|
||||
(define-key *top-map* (kbd "s-3") "change-workspace work")
|
||||
(define-key *top-map* (kbd "s-4") "change-workspace misc")
|
||||
(define-key *top-map* (kbd "s-9") "change-workspace music")
|
||||
(define-key *top-map* (kbd "s-0") "change-workspace winkel")
|
||||
|
||||
;; bind keys for moving the current window to another workspace
|
||||
(define-key *root-map* (kbd "M-1") "gmove web")
|
||||
(define-key *root-map* (kbd "M-2") "gmove emacs")
|
||||
(define-key *root-map* (kbd "M-3") "gmove work")
|
||||
(define-key *root-map* (kbd "M-4") "gmove misc")
|
||||
(define-key *root-map* (kbd "M-9") "gmove music")
|
||||
(define-key *root-map* (kbd "M-0") "gmove winkel")
|
||||
(define-key *top-map* (kbd "s-C-1") "gmove web")
|
||||
(define-key *top-map* (kbd "s-C-2") "gmove emacs")
|
||||
(define-key *top-map* (kbd "s-C-3") "gmove work")
|
||||
(define-key *top-map* (kbd "s-C-4") "gmove misc")
|
||||
(define-key *top-map* (kbd "s-C-9") "gmove music")
|
||||
(define-key *top-map* (kbd "s-C-0") "gmove winkel")
|
||||
|
||||
;; bind keys for focus changing
|
||||
(define-key *top-map* (kbd "s-h") "move-focus left")
|
||||
(define-key *top-map* (kbd "s-j") "move-focus down")
|
||||
(define-key *top-map* (kbd "s-k") "move-focus up")
|
||||
(define-key *top-map* (kbd "s-l") "move-focus right")
|
||||
|
||||
;; bind keys for window moving
|
||||
(define-key *top-map* (kbd "s-C-h") "move-window left")
|
||||
(define-key *top-map* (kbd "s-C-j") "move-window down")
|
||||
(define-key *top-map* (kbd "s-C-k") "move-window up")
|
||||
(define-key *top-map* (kbd "s-C-l") "move-window right")
|
||||
|
||||
;;; mode-line key
|
||||
(define-key *root-map* (kbd "Menu") "mode-line")
|
||||
|
@ -293,7 +312,7 @@
|
|||
(defmacro make-web-jump (name prefix)
|
||||
`(defcommand ,(intern name) (search) ((:rest ,(concatenate 'string name " search: ")))
|
||||
(substitute #\+ #\Space search)
|
||||
(run-shell-command (concatenate 'string *www-browser* " " ,prefix search))))
|
||||
(run-shell-command (concatenate 'string *web-browser* " " ,prefix search))))
|
||||
|
||||
(make-web-jump "google" "http://www.google.com/search?q=")
|
||||
(make-web-jump "googlede" "http://www.google.de/search?q=")
|
||||
|
|
Loading…
Reference in a new issue