Compare commits

...

2 commits

Author SHA1 Message Date
059cefc15d Update emacs config 2023-07-15 01:31:10 -07:00
b146cf9bcc Add screenshot bindings to stumpwm 2023-07-15 01:30:43 -07:00
2 changed files with 17 additions and 2 deletions

View file

@ -141,6 +141,21 @@ after it has been unlocked."
(swm-gaps:toggle-gaps-on) (swm-gaps:toggle-gaps-on)
;;; Screenshots
(defvar *screenshot-bindings*
(let ((m (make-sparse-keymap)))
(define-key m (kbd "s") "exec flameshot gui")
(define-key m (kbd "c") "exec flameshot screen")
(define-key m (kbd "f") "exec flameshot full")
m))
(defvar *user-bindings*
(let ((m (make-sparse-keymap)))
(define-key m (kbd "s") '*screenshot-bindings*)))
(define-key *top-map* (kbd "s-c") '*user-bindings*)
(restore-from-file "default") (restore-from-file "default")
(define-frame-preference "Default" (define-frame-preference "Default"

View file

@ -13,7 +13,7 @@
#:use-module (oni packages go)) #:use-module (oni packages go))
(define-public emacs-oni-config (define-public emacs-oni-config
(let ((commit "23ff70c4ef428bf554b4448c860e9b61c2db84f4") (let ((commit "6c97f1359599c8329f51ba8051fdd3fc1ccc82ef")
(revision "0")) (revision "0"))
(package (package
(name "emacs-oni-config") (name "emacs-oni-config")
@ -26,7 +26,7 @@
(commit commit))) (commit commit)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "04i2xham1zwip85zrx76f1mvkaicnkfyw1bp98wx999igg1vlivx")))) (base32 "1za8ywvx0q24f2mqy0dbskj7irp73ypvjxy7l5d4724icpj38ycx"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(home-page "https://code.ryuslash.org/ryuslash/emacs-config") (home-page "https://code.ryuslash.org/ryuslash/emacs-config")
(synopsis "My Emacs configuration") (synopsis "My Emacs configuration")