From 3723b427e0d97deb3d14d74344b6ef0b70fe4d24 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 10 May 2024 08:52:19 +0300 Subject: Readd stumpwm? --- .stumpwm.d/commands.lisp | 61 +----------------------------------------------- 1 file changed, 1 insertion(+), 60 deletions(-) mode change 100644 => 120000 .stumpwm.d/commands.lisp (limited to '.stumpwm.d/commands.lisp') diff --git a/.stumpwm.d/commands.lisp b/.stumpwm.d/commands.lisp deleted file mode 100644 index 1ad62a5..0000000 --- a/.stumpwm.d/commands.lisp +++ /dev/null @@ -1,60 +0,0 @@ - -(defmacro defnyxt-search (name search-url command) - `(stumpwm:defcommand ,(intern (concatenate 'string "nyxt-" name)) (query) - ((:string "Search: ")) - (stumpwm:run-shell-command - (concatenate 'string "nyxt -r -e '(" ,command "\"" ,search-url query "\"" ")'")))) - -(defvar duckduckgo "https://duckduckgo.com/?q=") -(defvar github "https://github.com/search?q=") - -(defnyxt-search "duck" duckduckgo "buffer-load") -(defnyxt-search "duck-newb" duckduckgo "set-url-new-buffer :url") -(defnyxt-search "http" "http://" "buffer-load") -(defnyxt-search "gh" github "buffer-load") - -;; Sly setup -(ql:quickload :slynk) - -(defcommand sly-start-server () () - "Start a slynk server for sly." - (sb-thread:make-thread (lambda () (slynk:create-server :dont-close t)))) - -(defcommand sly-stop-server () () - "Stop current slynk server for sly." - (sb-thread:make-thread (lambda () (slynk:stop-server 4005)))) - - -(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"))))) - -(when *initializing* - (mapc #'run-shell-command - '("picom" - "transmission-daemon" - "xsetroot -cursor_name left_ptr")) - (thanos/set-wallpapers)) diff --git a/.stumpwm.d/commands.lisp b/.stumpwm.d/commands.lisp new file mode 120000 index 0000000..dc1a495 --- /dev/null +++ b/.stumpwm.d/commands.lisp @@ -0,0 +1 @@ +/gnu/store/0mzi180himhrnjgc33n49slvs5vwb7rb-home-dotfiles--stumpwm-d-commands-lisp \ No newline at end of file -- cgit v1.2.3 From 0582004885cd35bfacbff5d4fdfdce8b834c32ce Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 10 May 2024 09:05:49 +0300 Subject: Remove stumpwm --- .stumpwm.d/colors.lisp | 1 - .stumpwm.d/commands.lisp | 1 - .stumpwm.d/init.lisp | 1 - .stumpwm.d/keybindings.lisp | 1 - .stumpwm.d/modeline.lisp | 1 - .stumpwm.d/modules | 1 - .stumpwm.d/theme.lisp | 1 - .stumpwm.d/utils.lisp | 1 - 8 files changed, 8 deletions(-) delete mode 120000 .stumpwm.d/colors.lisp delete mode 120000 .stumpwm.d/commands.lisp delete mode 120000 .stumpwm.d/init.lisp delete mode 120000 .stumpwm.d/keybindings.lisp delete mode 120000 .stumpwm.d/modeline.lisp delete mode 160000 .stumpwm.d/modules delete mode 120000 .stumpwm.d/theme.lisp delete mode 120000 .stumpwm.d/utils.lisp (limited to '.stumpwm.d/commands.lisp') diff --git a/.stumpwm.d/colors.lisp b/.stumpwm.d/colors.lisp deleted file mode 120000 index dbd2dbc..0000000 --- a/.stumpwm.d/colors.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/3wp5npi1xy1cmyzx8j3cg24kssq4n8vb-home-dotfiles--stumpwm-d-colors-lisp \ No newline at end of file diff --git a/.stumpwm.d/commands.lisp b/.stumpwm.d/commands.lisp deleted file mode 120000 index dc1a495..0000000 --- a/.stumpwm.d/commands.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/0mzi180himhrnjgc33n49slvs5vwb7rb-home-dotfiles--stumpwm-d-commands-lisp \ No newline at end of file diff --git a/.stumpwm.d/init.lisp b/.stumpwm.d/init.lisp deleted file mode 120000 index c98020a..0000000 --- a/.stumpwm.d/init.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/lj5nq45z9a616607c956cdf73jq0nvq0-home-dotfiles--stumpwm-d-init-lisp \ No newline at end of file diff --git a/.stumpwm.d/keybindings.lisp b/.stumpwm.d/keybindings.lisp deleted file mode 120000 index 26cf1e9..0000000 --- a/.stumpwm.d/keybindings.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/3fkzgz8klcybdjqc30k267aw2lyyn8kz-home-dotfiles--stumpwm-d-keybindings-lisp \ No newline at end of file diff --git a/.stumpwm.d/modeline.lisp b/.stumpwm.d/modeline.lisp deleted file mode 120000 index be38179..0000000 --- a/.stumpwm.d/modeline.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/4garpamz8m6h8dnfy7m4p59zp0s5lyys-home-dotfiles--stumpwm-d-modeline-lisp \ No newline at end of file diff --git a/.stumpwm.d/modules b/.stumpwm.d/modules deleted file mode 160000 index 472bdef..0000000 --- a/.stumpwm.d/modules +++ /dev/null @@ -1 +0,0 @@ -Subproject commit 472bdef0acaac8893c9c5a38d4319da86f10c876 diff --git a/.stumpwm.d/theme.lisp b/.stumpwm.d/theme.lisp deleted file mode 120000 index 7d51a75..0000000 --- a/.stumpwm.d/theme.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/82s7lvf8s6hpmqvxamqxf2yp2wi7xy18-home-dotfiles--stumpwm-d-theme-lisp \ No newline at end of file diff --git a/.stumpwm.d/utils.lisp b/.stumpwm.d/utils.lisp deleted file mode 120000 index 616b237..0000000 --- a/.stumpwm.d/utils.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/svvyhs2qfbdh620dagm5c30bflk7jn35-home-dotfiles--stumpwm-d-utils-lisp \ No newline at end of file -- cgit v1.2.3