source: dotfiles/wm/.stumpwmrc@ af94f3d

;; -*- mode: common-lisp -*-

(in-package :stumpwm)

(run-shell-command "xfce4-panel")

(setq *startup-message* "Welcome to your lovely LISP-machine")
(set-prefix-key (kbd "C-TAB"))

(set-normal-gravity :top)

(defcommand icecat () ()
            (run-or-raise "icecat" '(:class "IceCat")))

(defcommand nyxt () ()
            "Start Next or switch to it, if it is already running."
            (run-or-raise "nyxt" '(:class "nyxt")))
            
(define-key *root-map* (kbd "b") "nyxt")

;; launch terminal
(defcommand xterm () ()
  "Start Urxvt or switch to it, if it is already running."
  (run-or-raise "xterm" '(:class "xterm")))

(define-key *root-map* (kbd "c") "xterm")
(define-key *root-map* (kbd "C") "xterm")

;; Change emacs to emacsclient
(defcommand emacsclient () ()
  (run-or-raise "emacsclient -c -a emaces" '(:class "Emacs")))
(defcommand emacs () ()
  (run-or-raise "emacs" '(:class "Emacs")))
  (define-key *root-map* (kbd "e") "emacs")

;; Volume Management in thinkpad
(progn
  (define-key *top-map* (kbd "XF86AudioLowerVolume") "exec amixer -q sset Master 3%-")
  (define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec amixer -q sset Master 3%+")
  (define-key *top-map* (kbd "XF86AudioMute") "amixer -q sset Master toggle"))

;; Printscreen
(defcommand printscreen () ()
            "Works in X11 only"
            (message "Print screen region")
            (run-shell-command "import screenshot.png"))
            
(define-key *top-map* (kbd "SunPrint_Screen") "printscreen")

;; Enable Mode-line
;;(enable-mode-line (current-screen) (current-head) t)

;; Gaps: useless concept to be honest
(load-module "swm-gaps")
;; (setf swm-gaps:*inner-gaps-size* 0)
;; (setf swm-gaps:*outer-gaps-size* 2)
;; (swm-gaps:toggle-gaps)

;; Show / Hide mode-line
;; (define-key *root-map* (kbd "M") "mode-line")

;; Old fix for scrolling gtk issue
(setf (getenv "GDK_CORE_DEVICE_EVENTS") "1")