cristiancmoises
/
modern_lisp-machine
mirror of https://codeberg.org/hashirama/modern_lisp-machine
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

changes

main
hashirama 2024-02-17 23:17:30 -04:00
parent eb261e4114
commit 9ec9bcef93
No known key found for this signature in database
GPG Key ID: 53E62470A86BC185
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
stumpwm/init.lisp
View File

@ -20,6 +20,9 @@
(run-shell-command "exec feh --bg-fill ~/wallpaper.jpg & picom -b") (run-shell-command "exec feh --bg-fill ~/wallpaper.jpg & picom -b")
(run-shell-command "xrandr --output HDMI-A-0 --mode 1366x768") (run-shell-command "xrandr --output HDMI-A-0 --mode 1366x768")
(defcommand screenshot () ()
(run-shell-command "flameshot gui --path=/mnt/Data/mpv-screenshots/screenshots"))
(define-key *top-map* (kbd "M-i") "screenshot")
(defcommand nyxt () () (defcommand nyxt () ()
(run-or-raise "nyxt" '(:class "Nyxt"))) (run-or-raise "nyxt" '(:class "Nyxt")))
@ -27,11 +30,11 @@
(define-key *top-map* (kbd "M-p") "nyxt") (define-key *top-map* (kbd "M-p") "nyxt")
;; in the case i want a new terminal ;; in the case i want a new terminal
(define-key *top-map* (kbd "M-l") "exec alacritty") (define-key *top-map* (kbd "M-l") "exec kitty")
;; for reusing a open terminal ;; for reusing a open terminal
(defcommand terminal () () (defcommand terminal () ()
(run-or-raise "alacritty" '(:class "Alacritty"))) (run-or-raise "kitty" '(:class "kitty")))
(define-key *top-map* (kbd "M-v") "terminal") (define-key *top-map* (kbd "M-v") "terminal")