diff options
author | Thanos Apollo <[email protected]> | 2023-03-09 14:25:22 +0200 |
---|---|---|
committer | Thanos Apollo <[email protected]> | 2023-03-09 14:25:22 +0200 |
commit | 7309cf147dfb292b90ab70e46ad207bf5fbcdbce (patch) | |
tree | d3cd3b9e0e2937e797a8cd39aa177688817cfb8a /.config/stumpwm/config | |
parent | c0a0a6e65dbfdbc21efbafc923ae4ebb9ba20c09 (diff) |
stump: for config load modules
Diffstat (limited to '.config/stumpwm/config')
-rw-r--r-- | .config/stumpwm/config | 61 |
1 files changed, 42 insertions, 19 deletions
diff --git a/.config/stumpwm/config b/.config/stumpwm/config index ea923ba..745a060 100644 --- a/.config/stumpwm/config +++ b/.config/stumpwm/config @@ -1,4 +1,21 @@ +#-quicklisp +(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" + (user-homedir-pathname)))) + (when (probe-file quicklisp-init) + (load quicklisp-init))) + (in-package :stumpwm) +(setf *default-package* :stumpwm) + + + +;; (load "~/.stumpwm.d/bluetooth.lisp") +;; (load "~/.stumpwm.d/commands.lisp") +(load "~/.config/stumpwm/placement.lisp") +(load "~/.config/stumpwm/keybindings.lisp") +(load "~/.config/stumpwm/theme.lisp") +;; (load "~/./utilities.lisp") +(load "~/.config/stumpwm/modeline.lisp") ;; autostart @@ -9,15 +26,9 @@ picom & exec qbittorrent &") -;; UI -(setf *message-window-gravity* :center - *input-window-gravity* :center - *window-border-style :thin - *mouse-focus-policy* :click - *transient-border-width* 2 - *normal-size-border-width* 2) +(setf *mouse-focus-policy* :click) -;; change the prefix key to something else +;; prefix key (set-prefix-key (kbd "C-t")) ;; prompt the user for an interactive command. The first arg is an @@ -27,12 +38,13 @@ exec qbittorrent &") (when cmd (eval-command cmd t)))) +(define-key *top-map* (kbd "Super-2") (gselect 1)) ;; Run rofi (define-key *root-map* (kbd "C-r") "exec rofi -show drun") (define-key *root-map* (kbd "e") "exec emacsclient -c") -(define-key *root-map* (kbd "e") "emacs --daemon")ay +(define-key *root-map* (kbd "e") "emacs --daemon") ;; Browse somewhere (define-key *root-map* (kbd "b") "colon1 exec firefox http://www.") @@ -50,8 +62,8 @@ exec qbittorrent &") ;; Web jump (works for DuckDuckGo and Imdb) (defmacro make-web-jump (name prefix) `(defcommand ,(intern name) (search) ((:rest ,(concatenate 'string name " search: "))) - (nsubstitute #\+ #\Space search) - (run-shell-command (concatenate 'string ,prefix search)))) + (nsubstitute #\+ #\Space search) + (run-shell-command (concatenate 'string ,prefix search)))) (make-web-jump "duckduckgo" "firefox https://duckduckgo.com/?q=") (make-web-jump "imdb" "firefox http://www.imdb.com/find?q=") @@ -60,9 +72,22 @@ exec qbittorrent &") (define-key *root-map* (kbd "M-s") "duckduckgo") (define-key *root-map* (kbd "i") "imdb") + + + +;; UI +(setf *message-window-gravity* :center + *input-window-gravity* :center + *window-border-style :thin + *mouse-focus-policy* :click + *transient-border-width* 2 + *normal-size-border-width* 2) + ;; Message window font (set-font "-xos4-terminus-medium-r-normal--14-140-72-72-c-80-iso8859-15") +(set-font "-xos4-terminus-medium-r-normal-*-20-*-*-*-*-*-*-*") + ;;; Define window placement policy... @@ -93,15 +118,15 @@ exec qbittorrent &") ;; match is performed. ;; TIP: if the :create flag is set then a missing group will be created and ;; restored from *data-dir*/create file. -;; TIP: if the :restore flag is set then group dump is restored even for an +;; TIP: if the :restonre flag is set then group dump is restored even for an ;; existing group using *data-dir*/restore file. (define-frame-preference "Default" - ;; frame raise lock (lock AND raise == jumpto) - (0 t nil :class "Konqueror" :role "...konqueror-mainwindow") + ;; frame raise lock (lock AND raise == jumpto) + (0 t nil :class "Konqueror" :role "...konqueror-mainwindow") (1 t nil :class "XTerm")) (define-frame-preference "Ardour" - (0 t t :instance "ardour_editor" :type :normal) + (0 t t :instance "ardour_editor" :type :normal) (0 t t :title "Ardour - Session Control") (0 nil nil :class "XTerm") (1 t nil :type :normal) @@ -111,11 +136,9 @@ exec qbittorrent &") (3 t t :instance "qjackctl" :role "qjackctlMainForm")) (define-frame-preference "Shareland" - (0 t nil :class "XTerm") + (0 t nil :class "XTerm") (1 nil t :class "aMule")) (define-frame-preference "Emacs" - (1 t t :restore "emacs-editing-dump" :title "...xdvi") + (1 t t :restore "emacs-editing-dump" :title "...xdvi") (0 t t :create "emacs-dump" :class "Emacs")) - -(setf *mouse-focus-policy* :click) |