You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

379 lines
11 KiB
Common Lisp

;; -*-lisp-*-
;; StumpWM configuration file
;; <>
;; 2016 - 2020 (c) Marcel Kapfer <>
;; MIT License
(in-package :stumpwm)
;; Other parameters
(defparameter *key-layout* "de" "Stores the current key layout")
;; Default applicatoins
(defparameter *web-browser* "qutebrowser" "Stores the web browser")
(defparameter *editor* "emacs" "Stores the editor")
(defparameter *terminal* "alacritty" "Stores the terminal emulator")
(defparameter *file-manager* "dolphin" "Stores the terminal emulator")
(defparameter *music-player* "spotify" "Stores the terminal emulator")
;; set correct module directory
(set-module-dir "~/.stumpwm.d/contrib")
;; creating or rename groups
(setf (group-name (first (screen-groups (current-screen)))) "web")
(gnewbg "work")
(gnewbg "misc")
(gnewbg "music")
(gnewbg "winkel")
;; border width
(setf *maxsize-border-width* 3)
(setf *transient-border-width* 3)
(setf *normal-border-width* 3)
;; border style
(setf *window-border-style* :tight)
(set-focus-color "#b00045")
(set-win-bg-color "#b00045")
(set-unfocus-color "#333333")
(set-float-focus-color "#b00045")
(set-float-unfocus-color "#333333")
;; window gravity
(set-normal-gravity :center)
(set-maxsize-gravity :center)
(set-transient-gravity :center)
(gravity :center)
;; input bar position
(setf *input-window-gravity* :bottom)
;; message bar position
(setf *message-window-gravity* :bottom)
;; message timeout
(setf *timeout-wait* 3)
;; set the mouse focus
(setf *mouse-focus-policy* :click)
;; set DESKTOP_SESSION variable
(setf (getenv "DESKTOP_SESSION") "stumpwm")
;; bugfix for scrolling doesn't work with an external mouse in GTK+3 Apps
(setf (getenv "GDK_CORE_DEVICE_EVENTS") "1")
;; style message windows
(set-bg-color "#333333")
(set-border-color "#b00045")
;; loading modeline modules
(load-module "battery-portable")
(load-module "hostname")
(load-module "stumptray")
;; 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-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"))
;; customize texts
(setf *window-format* "^B %n ^b %20t "
*group-format* "%t")
;; root keybindings
;; Application keybindings
(define-key *root-map* (kbd "W") (concatenate 'string "exec " *web-browser*))
(define-key *root-map* (kbd "c") (concatenate 'string "exec " *terminal*))
(define-key *root-map* (kbd "e") (concatenate 'string "exec " *editor*))
(define-key *root-map* (kbd "C-c") (concatenate 'string "exec " *file-manager*))
(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 work")
(define-key *root-map* (kbd "C-3") "change-workspace misc")
(define-key *root-map* (kbd "C-4") "change-workspace music")
(define-key *root-map* (kbd "C-5") "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 work")
(define-key *root-map* (kbd "M-3") "gmove misc")
(define-key *root-map* (kbd "M-4") "gmove music")
(define-key *root-map* (kbd "M-s") "gmove winkel")
;;; mode-line key
(define-key *root-map* (kbd "Menu") "mode-line")
;; define volume control keys
(define-key *top-map* (kbd "XF86AudioLowerVolume") "exec amixer set Master 5%-")
(define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec amixer set Master 5%+")
(define-key *top-map* (kbd "XF86AudioMute") "exec amixer set Master toggle")
(define-key *top-map* (kbd "XF86AudioMicMute") "exec amixer set Capture toggle")
;; webjump keys
(defvar *webjump-frame-bindings*
(let ((m (make-sparse-keymap)))
(define-key m (kbd "g") "google")
(define-key m (kbd "G") "googlede")
(define-key m (kbd "d") "duckduckgo")
(define-key m (kbd "D") "packages")
(define-key m (kbd "w") "wikipedia")
(define-key m (kbd "W") "wikipediade")
(define-key *root-map* (kbd "j") '*webjump-frame-bindings*)
;; computer power state keys
(defvar *powerstate-frame-bindings*
(let ((m (make-sparse-keymap)))
(define-key m (kbd "M-s") "systemctl suspend")
(define-key m (kbd "M-p") "systemctl poweroff")
(define-key m (kbd "M-r") "systemctl reboot")
(define-key m (kbd "M-h") "systemctl hibernate")
(define-key *root-map* (kbd "C-F12") '*powerstate-frame-bindings*)
;; lockscreen
(define-key *root-map* (kbd "M-l") "exec blurlock")
;; battery status
(define-key *root-map* (kbd "b") "exec ~/scripts/rat/")
;; xserver
(run-shell-command "xrdb -merge ~/.Xresources")
;;; HiDPI stuff.
;;; TODO: Only run if required
;; (run-shell-command "xrdb -merge ~/.Xresources-hidpi")
;; dunst notify server
(run-shell-command "dunst")
;; nitrogen (wallpaper)
(run-shell-command "~/.fehbg")
;; start compton (compositor)
(run-shell-command "compton --config ~/.config/compton.conf")
;; start mode line
;; (if (not (head-mode-line (current-head)))
;; (toggle-mode-line (current-screen) (current-head)))
(defparameter *backlight-sysfs* "/sys/class/backlight/intel_backlight/")
(defun get-max-backlight ()
"Retrieve maximal backlight brightness from sysfs"
(let ((max-backlight-file (concatenate 'string *backlight-sysfs* "max_brightness")))
(if (probe-file max-backlight-file)
(with-open-file (in max-backlight-file)
(parse-integer (read-line in))))))
(defun get-backlight ()
"Retrieve current backlight brightness from sysfs"
(let ((backlight-file (concatenate 'string *backlight-sysfs* "brightness")))
(if (probe-file backlight-file)
(with-open-file (in backlight-file)
(parse-integer (read-line in))))))
(defun get-backlight-rel ()
"Retrieve current backlight brightness relative to maximum"
(round (* 100
(float (/ (get-backlight)
(defun set-backlight (value)
"Set backlight brightness to given value using sysfs"
(let ((backlight-file (concatenate 'string *backlight-sysfs* "brightness")))
(if (probe-file backlight-file)
(progn (with-open-file (out backlight-file
:direction :output
:if-exists :overwrite)
(format out "~D" (truncate value)))
(defun set-backlight-rel (value)
"Set backlight brightness relative to maximum"
(let ((max-backlight (get-max-backlight)))
(if max-backlight
(set-backlight (* 0.01 value max-backlight)))))
(defcommand change-backlight (value)
((:number "Backlight in %: "))
"Setting a new backlight value"
(unless (set-backlight-rel value)
(echo "Can't set backlight")))
(defcommand increase-backlight ()
"Increase backlight by 5%"
(let ((current (get-backlight-rel)))
(if (> current 95)
(set-backlight-rel 100)
(set-backlight-rel (+ current 5)))))
(defcommand decrease-backlight ()
"Decrease backlight by 5%"
(let ((current (get-backlight-rel)))
(if (< current 6)
(set-backlight-rel 1)
(set-backlight-rel (- current 5)))))
(define-key *root-map* (kbd "B") "change-backlight")
(define-key *top-map* (kbd "XF86MonBrightnessUp") "increase-backlight")
(define-key *top-map* (kbd "XF86MonBrightnessDown") "decrease-backlight")
;; switch key layout
(defun switch-layout-to (new-lang)
"Switch the key layout to the given one"
(setq *key-layout* new-lang)
(run-shell-command (concatenate 'string "setxkbmap -layout " new-lang " && xmodmap ~/.Xmodmap"))
(echo (concatenate 'string "Set keyboard layout to " new-lang)))
;; switch key leyout to german
(defcommand layout-de ()
"Set the keyboard layout to de (german)"
(switch-layout-to "de"))
;; switch key leyout to american english
(defcommand layout-en ()
"Set the keyboard layout to US International AltGr"
(switch-layout-to "us -variant altgr-intl"))
;; switch key layout automatically
(defcommand switch-layout ()
"Switch the layout"
(if (string= "us -variant altgr-intl" *key-layout*)
(switch-layout-to "de")
(switch-layout-to "us -variant altgr-intl")))
(define-key *top-map* (kbd "s-SPC" ) "switch-layout")
;; switch workspace with a message
(defcommand change-workspace (n)
((:string n))
"Switch workspace"
(run-commands (concatenate 'string "gselect " n))
(echo (concatenate 'string "Switched to " n)))
;; toggle window floating
(defcommand toggle-float ()
"Toggle weather window is floating or not"
(if (typep (current-window) 'STUMPWM::FLOAT-WINDOW)
;; and the key for it
(define-key *root-map* (kbd "C-f") "toggle-float")
;; key for keeping window always on top
(define-key *root-map* (kbd "C-T") "toggle-always-on-top")
;; webjumps
(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))))
(make-web-jump "google" "")
(make-web-jump "googlede" "")
(make-web-jump "duckduckgo" "")
(make-web-jump "packages" "")
(make-web-jump "wikipedia" "")
(make-web-jump "wikipediade" "")
(defun list-screen-layouts ()
"Return an alist of possible screen layouts. Those are the layouts saved in
~/ First is the name of the layout and second the path to the
for file
in (mapcar 'namestring
(directory "~/.screenlayout/*.sh"))
collect `(,(subseq file
(+ 1 (search "/" file :from-end t))
(- (length file) 3))
(defcommand switch-screen-layout ()
"Menu to switch the screen layout. Possible options are the scripts saved in
((pick (options)
(let ((selection
((null selection)
(t (stringp (second selection))
(run-shell-command (second selection)))))))
(pick (list-screen-layouts))))
(define-key *root-map* (kbd "l") "switch-screen-layout")
;; font configuration
;; Currently disabled since the ttf-fonts module no longer works
;; (load-module "ttf-fonts")
;; (set-font (make-instance 'xft:font :family "Hack" :subfamily "Regular" :size 10))
;; window placement rules
(define-frame-preference "winkel"
(0 nil t :class "keepassxc")
(0 nil t :class "Nextcloud")
(0 nil t :class "TelegramDesktop"))
(define-frame-preference "web"
(0 nil t :class "Firefox"))
(define-frame-preference "music"
(0 nil t :class "Spotify"))
;; autostart programs
;; emacs
(run-shell-command "emacs")
;; keepassxc
(run-shell-command "keepassxc-wrapper")
;; owncloud
(run-shell-command "nextcloud")
;; web browser
(run-shell-command *web-browser*)
;; redshift
(run-shell-command "redshift")
;; last settings
;; (stumptray:stumptray)
(switch-layout-to *key-layout*)
(run-shell-command "xmodmap $HOME/.Xmodmap" t)
;; Local Variables:
;; mode: stumpwm
;; End: