summaryrefslogtreecommitdiff
path: root/.config/stumpwm
diff options
context:
space:
mode:
Diffstat (limited to '.config/stumpwm')
-rw-r--r--.config/stumpwm/colors.lisp30
-rw-r--r--.config/stumpwm/commands.lisp29
-rw-r--r--.config/stumpwm/config144
-rw-r--r--.config/stumpwm/keybindings.lisp70
-rw-r--r--.config/stumpwm/modeline.lisp59
-rw-r--r--.config/stumpwm/placement.lisp14
-rw-r--r--.config/stumpwm/theme.lisp30
7 files changed, 0 insertions, 376 deletions
diff --git a/.config/stumpwm/colors.lisp b/.config/stumpwm/colors.lisp
deleted file mode 100644
index 5c06cbf..0000000
--- a/.config/stumpwm/colors.lisp
+++ /dev/null
@@ -1,30 +0,0 @@
-;; Colors
-(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")
-
-(setq *colors*
- `(,phundrak-nord1 ;; 0 black
- ,phundrak-nord11 ;; 1 red
- ,phundrak-nord14 ;; 2 green
- ,phundrak-nord13 ;; 3 yellow
- ,phundrak-nord10 ;; 4 blue
- ,phundrak-nord14 ;; 5 magenta
- ,phundrak-nord8 ;; 6 cyan
- ,phundrak-nord5)) ;; 7 white
-
-(when *initializing*
- (update-color-map (current-screen)))
diff --git a/.config/stumpwm/commands.lisp b/.config/stumpwm/commands.lisp
deleted file mode 100644
index a47040e..0000000
--- a/.config/stumpwm/commands.lisp
+++ /dev/null
@@ -1,29 +0,0 @@
-;; Commands
-
-(defcommand firefox () ()
- "Run or raise Firefox."
- (sb-thread:make-thread (lambda () (run-or-raise "firefox" '(:class "Firefox") t nil))))
-
-
-(defcommand delete-window-and-frame () ()
- "Delete the current frame with its window."
- (delete-window)
- (remove-split))
-
-(defcommand hsplit-and-focus () ()
- "Create a new frame on the right and focus it."
- (hsplit)
- (move-focus :right))
-
-(defcommand vsplit-and-focus () ()
- "Create a new frame below and move focus to it."
- (vsplit)
- (move-focus :down))
-
-(defcommand term (&optional program) ()
- "Invoke a terminal, possibly with a @arg{program}."
- (sb-thread:make-thread
- (lambda ()
- (run-shell-command (if program
- (format nil "kitty ~A" program)
- "kitty")))))
diff --git a/.config/stumpwm/config b/.config/stumpwm/config
deleted file mode 100644
index 36867cf..0000000
--- a/.config/stumpwm/config
+++ /dev/null
@@ -1,144 +0,0 @@
-#-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/theme.lisp")
-(load "~/.config/stumpwm/placement.lisp")
-(load "~/.config/stumpwm/keybindings.lisp")
-;; (load "~/./utilities.lisp")
-(load "~/.config/stumpwm/modeline.lisp")
-
-
-;; autostart
-(run-shell-command "
-emacs --daemon &
-feh --bg-scale ~/dotfiles/wallpaper.png &
-picom &
-exec qbittorrent &")
-
-
-(setf *mouse-focus-policy* :click)
-
-;; prefix key
-(set-prefix-key (kbd "C-t"))
-
-;; prompt the user for an interactive command. The first arg is an
-;; optional initial contents.
-(defcommand colon1 (&optional (initial "")) (:rest)
- (let ((cmd (read-one-line (current-screen) ": " :initial-input initial)))
- (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 "C-e") "exec emacs --daemon")
-
-;; Browse somewhere
-(define-key *root-map* (kbd "b") "colon1 exec firefox http://www.")
-
-;; Ssh somewhere
-(define-key *root-map* (kbd "C-s") "colon1 exec xterm -e ssh ")
-
-;; Lock screen
-(define-key *root-map* (kbd "C-l") "exec xlock")
-
-;; Audio
-(define-key *top-map* (kbd "XF86AudioLowerVolume") "exec amixer sset Master 5%-")
-(define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec amixer sset Master 5%+")
-
-;; 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))))
-
-(make-web-jump "duckduckgo" "firefox https://duckduckgo.com/?q=")
-(make-web-jump "imdb" "firefox http://www.imdb.com/find?q=")
-
-;; C-t M-s is a terrble binding, but you get the idea.
-(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...
-
-
-(defvar *thanos/workspaces*
- (list "EMACS"
- "WEB"
- "ANKI"
- "DOC"
- "RAND"
- "VID"
- "TOR"))
-
-(stumpwm:grename (nth 0 *thanos/workspaces*))
-(dolist (workspace (cdr *thanos/workspaces*))
- (stumpwm:gnewbg workspace))
-
-(defvar *move-to-keybinds* (list "!" "@" "#" "$" "%" "^" "&" "*" "("))
-(dotimes (y (length *ce/workspaces*))
- (let ((workspace (write-to-string (+ y 1))))
- (define-key *root-map* (kbd workspace) (concat "gselect " workspace))
- (define-key *root-map* (kbd (nth y *move-to-keybinds*)) (concat "gmove-and-follow " workspace))))
-
-;; Clear rules
-(clear-window-placement-rules)
-
-;; Last rule to match takes precedence!
-;; TIP: if the argument to :title or :role begins with an ellipsis, a substring
-;; 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 :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")
- (1 t nil :class "XTerm"))
-
-(define-frame-preference "Ardour"
- (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)
- (1 t t :instance "ardour_mixer")
- (2 t t :instance "jvmetro")
- (1 t t :instance "qjackctl")
- (3 t t :instance "qjackctl" :role "qjackctlMainForm"))
-
-(define-frame-preference "Shareland"
- (0 t nil :class "XTerm")
- (1 nil t :class "aMule"))
-
-(define-frame-preference "Emacs"
- (1 t t :restore "emacs-editing-dump" :title "...xdvi")
- (0 t t :create "emacs-dump" :class "Emacs"))
diff --git a/.config/stumpwm/keybindings.lisp b/.config/stumpwm/keybindings.lisp
deleted file mode 100644
index f72544d..0000000
--- a/.config/stumpwm/keybindings.lisp
+++ /dev/null
@@ -1,70 +0,0 @@
-
-(in-package :stumpwm)
-
-(which-key-mode)
-
-
-(setf *mouse-focus-policy* :click)
-
-;; prefix key
-(set-prefix-key (kbd "C-t"))
-
-;; prompt the user for an interactive command. The first arg is an
-;; optional initial contents.
-(defcommand colon1 (&optional (initial "")) (:rest)
- (let ((cmd (read-one-line (current-screen) ": " :initial-input initial)))
- (when cmd
- (eval-command cmd t))))
-
-
-
-(define-key *root-map* (kbd "`") "select-window-by-number 0")
-
-(define-key *root-map* (kbd "C-p") "exec rofi-pass")
-(define-key *root-map* (kbd "C-f") "fullscreen")
-
-;; Run rofi
-(define-key *root-map* (kbd "C-r") "exec rofi -show drun")
-
-(define-key *root-map* (kbd "e") "exec emacsclient -c")
-
-;; Browse somewhere
-(define-key *root-map* (kbd "b") "colon1 exec firefox http://www.")
-
-;; Lock screen
-(define-key *root-map* (kbd "C-l") "exec xlock")
-
-;; Audio
-(define-key *top-map* (kbd "XF86AudioLowerVolume") "exec amixer sset Master 5%-")
-(define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec amixer sset Master 5%+")
-
-;;Keyboard-light
-(define-key *top-map* (kbd "XF86Explorer") "exec brightnessctl --device='tpacpi::kbd_backlight' set +1")
-(define-key *top-map* (kbd "XF86LaunchA") "exec brightnessctl --device='tpacpi::kbd_backlight' set 1-")
-
-;; Keyboard layout
-(define-key *top-map* (kbd "F1") "exec setxkbmap us")
-(define-key *top-map* (kbd "F2") "exec setxkbmap gr")
-
-
-;;; Groups
-;; Switch to group
-(define-key *top-map* (kbd "s-1") "gselect 1")
-(define-key *top-map* (kbd "s-2") "gselect 2")
-(define-key *top-map* (kbd "s-3") "gselect 3")
-(define-key *top-map* (kbd "s-4") "gselect 4")
-(define-key *top-map* (kbd "s-5") "gselect 5")
-(define-key *top-map* (kbd "s-6") "gselect 6")
-(define-key *top-map* (kbd "s-7") "gselect 7")
-;; Move window to group
-(define-key *top-map* (kbd "s-!") "gmove 1")
-(define-key *top-map* (kbd "s-@") "gmove 2")
-(define-key *top-map* (kbd "s-#") "gmove 3")
-(define-key *top-map* (kbd "s-$") "gmove 4")
-(define-key *top-map* (kbd "s-%") "gmove 5")
-(define-key *top-map* (kbd "s-^") "gmove 6")
-(define-key *top-map* (kbd "s-&") "gmove 7")
-;; Focus
-(define-key *top-map* (kbd "s-b") "move-focus left")
-(define-key *top-map* (kbd "s-f") "move-focus right")
-(define-key *top-map* (kbd "s-n") "move-focus down")
diff --git a/.config/stumpwm/modeline.lisp b/.config/stumpwm/modeline.lisp
deleted file mode 100644
index 43dfb9a..0000000
--- a/.config/stumpwm/modeline.lisp
+++ /dev/null
@@ -1,59 +0,0 @@
-
-;; Modeline
-(setf *window-format* "%m%n%s%c")
-(setf *screen-mode-line-format* (list "%g ^> %d"))
-
-(enable-mode-line (current-screen) (current-head) t)
-
-(setf *mode-line-timeout* 2)
-
-(setf *time-modeline-string* "%F %H:%M")
-
-(setf *group-format* "%t")
-
-(setf *window-format* "%n: %30t")
-
-(load "~/.config/stumpwm/colors.lisp")
-
-(setf *mode-line-background-color* phundrak-nord1
- *mode-line-foreground-color* phundrak-nord5)
-
-(setf *mode-line-border-color* phundrak-nord1
- *mode-line-border-width* 0)
-
-;; (defvar *mode-line-formatter-list*
-;; '(("%g") ("%W") ("^>") ("mu-unread" . t) ("%m") ("%C") ("%M") ("%B") ("%d"))
-;; "List of formatters for the modeline.")
-
-
-;; (defun generate-modeline (elements &optional not-invertedp rightp)
-;; "Generate a modeline for StumpWM.
-;; ELEMENTS should be a list of `cons'es which `car' is the modeline
-;; formatter or the shell command to run, and their `cdr' is either nil
-;; when the `car' is a formatter and t when it is a shell command."
-;; (when elements
-;; (cons (format nil
-;; " ^[~A^]^(:bg \"~A\") "
-;; (format nil "^(:fg \"~A\")^(:bg \"~A\")^f1~A^f0"
-;; (if (xor not-invertedp rightp) phundrak-nord1 phundrak-nord3)
-;; (if (xor not-invertedp rightp) phundrak-nord3 phundrak-nord1)
-;; (if rightp "" ""))
-;; (if not-invertedp phundrak-nord3 phundrak-nord1))
-;; (let* ((current-element (car elements))
-;; (formatter (car current-element))
-;; (commandp (cdr current-element)))
-;; (cons (if commandp
-;; `(:eval (run-shell-command ,formatter t))
-;; (format nil "~A" formatter))
-;; (generate-modeline (cdr elements)
-;; (not not-invertedp)
-;; (if (string= "^>" (caar elements)) t rightp)))))))
-
-;; (defcommand reload-modeline () ()
-;; "Reload modeline."
-;; (sb-thread:make-thread
-;; (lambda ()
-;; (setf *screen-mode-line-format*
-;; (cdr (generate-modeline *mode-line-formatter-list*))))))
-
-;; (reload-modeline)
diff --git a/.config/stumpwm/placement.lisp b/.config/stumpwm/placement.lisp
deleted file mode 100644
index dfef676..0000000
--- a/.config/stumpwm/placement.lisp
+++ /dev/null
@@ -1,14 +0,0 @@
-(when *initializing*
- (grename "EMACS")
- (gnewbg "WEB")
- (gnewbg "ANKI")
- (gnewbg "DOC")
- (gnewbg "RAND")
- (gnewbg "VID")
- (gnewbg "TOR"))
-
-(clear-window-placement-rules)
-
-(define-frame-preference "[VID]" (nil t t :class "Nemo"))
-
-(setf *dynamic-group-master-split-ratio* 1/2)
diff --git a/.config/stumpwm/theme.lisp b/.config/stumpwm/theme.lisp
deleted file mode 100644
index cdc1c6b..0000000
--- a/.config/stumpwm/theme.lisp
+++ /dev/null
@@ -1,30 +0,0 @@
-(load "~/.config/stumpwm/colors.lisp")
-
-;; TODO FONTS
-
-
-(set-border-color phundrak-nord1)
-(set-focus-color phundrak-nord1)
-(set-unfocus-color phundrak-nord3)
-(set-float-focus-color phundrak-nord1)
-(set-float-unfocus-color phundrak-nord3)
-
-
-(set-fg-color phundrak-nord4)
-(set-bg-color phundrak-nord1)
-
-
-(setf *normal-border-width* 0
- *float-window-border* 0
- *float-window-title-height* 15
- *window-border-style* :none
- *window-format* "%n:%t")
-
-(setf *key-seq-color* "^2")
-(setf *which-key-format* (concat *key-seq-color* "*~5a^n ~a"))
-
-
-(setf *input-window-gravity* :top
- *message-window-padding* 10
- *message-window-y-padding* 10
- *message-window-gravity* :center)
generated by cgit v1.2.3 (git 2.46.2) at 2024-12-23 17:37:40 +0000