summaryrefslogtreecommitdiff
path: root/.config/stumpwm/config
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2023-03-09 14:25:22 +0200
committerThanos Apollo <[email protected]>2023-03-09 14:25:22 +0200
commit7309cf147dfb292b90ab70e46ad207bf5fbcdbce (patch)
treed3cd3b9e0e2937e797a8cd39aa177688817cfb8a /.config/stumpwm/config
parentc0a0a6e65dbfdbc21efbafc923ae4ebb9ba20c09 (diff)
stump: for config load modules
Diffstat (limited to '.config/stumpwm/config')
-rw-r--r--.config/stumpwm/config61
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)