114 lines
2.9 KiB
Common Lisp
114 lines
2.9 KiB
Common Lisp
#-quicklisp
|
|
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
|
|
(user-homedir-pathname))))
|
|
(when (probe-file quicklisp-init)
|
|
(load quicklisp-init)))
|
|
|
|
|
|
;;; init
|
|
(in-package :stumpwm)
|
|
(setf *default-package* :stumpwm)
|
|
;; (set-module-dir (concatenate 'string (getenv "HOME") "/.stumpwm.d/modules"))
|
|
(set-module-dir "/usr/share/stumpwm/contrib/util/")
|
|
|
|
(defvar phundrak-nord0 "#2e3440")
|
|
(defvar phundrak-nord1 "#3b4252")
|
|
(defvar phundrak-nord2 "#434c5e")
|
|
(defvar phundrak-nord3 "#4c566a")
|
|
(defvar phundrak-nord4 "#d8dee9")
|
|
(defvar phundrak-nord5 "#e5e9f0")
|
|
(defvar phundrak-nord6 "#eceff4")
|
|
(defvar phundrak-nord7 "#8fbcbb")
|
|
(defvar phundrak-nord8 "#88c0d0")
|
|
(defvar phundrak-nord9 "#81a1c1")
|
|
(defvar phundrak-nord10 "#5e81ac")
|
|
(defvar phundrak-nord11 "#bf616a")
|
|
(defvar phundrak-nord12 "#d08770")
|
|
(defvar phundrak-nord13 "#ebcb8b")
|
|
(defvar phundrak-nord14 "#a3be8c")
|
|
(defvar phundrak-nord15 "#b48ead")
|
|
|
|
;; startup
|
|
(setf *startup-message* nil)
|
|
|
|
(run-shell-command "autostart")
|
|
|
|
;;; workspaces
|
|
(when *initializing*
|
|
(grename "term")
|
|
(gnewbg "emacs")
|
|
(gnewbg "browser")
|
|
(gnewbg "files")
|
|
(gnewbg "discord")
|
|
(gnewbg "private"))
|
|
|
|
(load "~/.stumpwm.d/keybindings.lisp")
|
|
|
|
;;; load ttf
|
|
;; (require 'clx-truetype)
|
|
;; (ql:quickload :truetype-clx)
|
|
;; (load-module "ttf-fonts")
|
|
;; (set-font (make-instance 'xft:font
|
|
;; :family "DejaVu Sans Mono for Powerline"
|
|
;; :subfamily "Regular"
|
|
;; :size 7
|
|
;; :antialias t))
|
|
|
|
(set-border-color phundrak-nord4)
|
|
(set-focus-color phundrak-nord15)
|
|
(set-unfocus-color phundrak-nord4)
|
|
(set-float-focus-color phundrak-nord15)
|
|
(set-float-unfocus-color phundrak-nord4)
|
|
(setf *normal-border-width* 3
|
|
*float-window-border* 3
|
|
*float-window-title-height* 15
|
|
*window-border-style* :thick)
|
|
|
|
;; configs
|
|
(setf *mouse-focus-policy* :click
|
|
*float-window-modifier* :META)
|
|
|
|
;; message and input bar
|
|
(setf *input-window-gravity* :top
|
|
*message-window-padding* 5
|
|
*message-window-y-padding* 5
|
|
*message-window-gravity* :top)
|
|
|
|
;;; gaps
|
|
(load-module "swm-gaps")
|
|
(setf swm-gaps:*head-gaps-size* 0
|
|
swm-gaps:*inner-gaps-size* 5
|
|
swm-gaps:*outer-gaps-size* 15)
|
|
(when *initializing*
|
|
(swm-gaps:toggle-gaps))
|
|
|
|
;;; end session module
|
|
(load-module "end-session")
|
|
|
|
;;; global windows list module
|
|
(load-module "globalwindows")
|
|
|
|
;;; Modeline
|
|
(load "~/.stumpwm.d/modeline.lisp")
|
|
(when *initializing*
|
|
(mode-line))
|
|
|
|
(load-module "swm-ssh")
|
|
(setq swm-ssh:*swm-ssh-default-term* "kitty")
|
|
|
|
;;; load window placement rules
|
|
(load "~/.stumpwm.d/placement.lisp")
|
|
|
|
;;; alert module
|
|
(load-module "alert-me")
|
|
|
|
;;; menu for stumpwm
|
|
(load-module "app-menu")
|
|
(setq app-menu:*app-menu*
|
|
'("Emacs" "emacs"))
|
|
|
|
;;; globalwindow
|
|
(load-module "globalwindows")
|
|
|
|
(setf *startup-message* "StumpWM is ready!")
|