From 700a7e67cd58e0321facaa61f3f88f007b13145a Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 26 Mar 2023 14:31:35 +0300 Subject: remove stumpwm and guix --- .config/stumpwm/colors.lisp | 30 -------- .config/stumpwm/commands.lisp | 29 -------- .config/stumpwm/config | 144 --------------------------------------- .config/stumpwm/keybindings.lisp | 70 ------------------- .config/stumpwm/modeline.lisp | 59 ---------------- .config/stumpwm/placement.lisp | 14 ---- .config/stumpwm/theme.lisp | 30 -------- 7 files changed, 376 deletions(-) delete mode 100644 .config/stumpwm/colors.lisp delete mode 100644 .config/stumpwm/commands.lisp delete mode 100644 .config/stumpwm/config delete mode 100644 .config/stumpwm/keybindings.lisp delete mode 100644 .config/stumpwm/modeline.lisp delete mode 100644 .config/stumpwm/placement.lisp delete mode 100644 .config/stumpwm/theme.lisp (limited to '.config/stumpwm') 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) -- cgit v1.2.3