source: dotfiles/wm/.stumpwmrc@ bec93c6

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

(in-package :stumpwm)

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

;; (require "ttf-fonts")
;; (setf xft:*font-dirs* '("/run/current-system/profile/share/fonts/"))
;; (setf
;;  clx-truetype:+font-cache-filename+
;;  (concat (getenv "HOME") "/.fonts/font-cache.sexp"))
;; (xft:cache-fonts)
;; (set-font (make-instance 'xft:font :family "Fira Sans"
;;                       :subfamily "Regular" :size 10.5))

;; Not available in guix yet
;;(require "battery-portable")

(require "cpu")
(require "mem")

;; Most of this settings are stumpwm defaults
(setf *mode-line-pad-x* 0
      *mode-line-pad-y* 0
      *mouse-focus-policy* :click
      *window-border-style* :thin
      *message-window-gravity* :center
      *normal-border-width* 0
      *mode-line-border-width* 0
      
      *transient-border-width* 0
      *mode-line-position* :top
      *time-modeline-string* "%d.%m.%y %k:%M"
      *window-format* "%m%n%s%t "
      *hidden-window-color* ""
      *cpu-modeline-fmt* "%C"
      *mode-line-background-color* "#f2f2f2"
      *startup-mode-line* t

      ;; Fix long windows names
      *window-name-source* :class

      ;; Delimiter in mode-line
      *delim* " ^7|^0 "

      ;; Mode-line customization
      *screen-mode-line-format*
      (list
       ;; Windows
       "^07%v^>^0"
       ;; CPU
       "%C" *delim*
       ;; RAM
       "%M" *delim*
       ;; Battery
       "%B" *delim*
       ;; Date
       "%d"
       ))

(set-normal-gravity :top)
(set-win-bg-color "#f2f2f2")

(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")