ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add shutdown-rofi script

Browse source
This commit is contained in:
Tom Willemse 2022-10-13 20:45:32 -07:00
parent d1ca763c92
commit e421dc63ae
5 changed files with 51 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
oni/home/config/common.scm
View file

@ -30,7 +30,8 @@
(service home-xbindkeys-service-type
(home-xbindkeys-configuration
(keybindings
'(((mod4 k) . "hersbtclient close")
'(((mod4 q) . "shutdown-rofi")
((mod4 k) . "hersbtclient close")
((mod4 mod1 k) . "herbstclient remove")
((mod4 Return) . "herbstclient spawn kitty")
((mod4 t) . "herbstclient spawn hlwm-run-or-raise \"\\(URxct\\|Hyper\\|kitty\\)\" kitty")

6
oni/home/config/data.scm
View file

@ -23,14 +23,16 @@
#:use-module (oni home services environment)
#:use-module (oni packages hlwm-run-or-raise)
#:use-module (oni packages pick-random-wallpaper)
#:use-module (oni home config common))
#:use-module (oni home config common)
#:use-module (oni packages shutdown-rofi))
(home-environment
(packages (list (specification->package+output "glibc-locales")
(specification->package+output "font-fantasque-sans")
(specification->package+output "font-comic-neue")
hlwm-run-or-raise
pick-random-wallpaper))
pick-random-wallpaper
shutdown-rofi))
(services
(list

4
oni/home/config/rincewind.scm
View file

@ -31,7 +31,8 @@
#:use-module (oni packages inbox-size)
#:use-module (oni packages notmuch-collect-tasks)
#:use-module (oni packages notmuch-tag-mailinglists)
#:use-module (oni packages pick-random-wallpaper))
#:use-module (oni packages pick-random-wallpaper)
#:use-module (oni packages shutdown-rofi))
(define (with-master-branch package)
"Apply a transformation to PACKAGE so that it uses the master branch."
@ -50,6 +51,7 @@
notmuch-tag-mailinglists
(inbox-size emacs-next)
count-emails
shutdown-rofi
emacs-org-roam
emacs-vterm
fakeroot ; Needed for build arch packages

4
oni/packages/count-emails.scm
View file

@ -9,7 +9,7 @@
#:use-module (gnu packages mail))
(define-public count-emails
(let ((commit "de8d1094fca307b44020ae85ef0acf0d467cd8c4")
(let ((commit "66165bdecea54888967fcc6a8c29a3df09a18256")
(revision "0"))
(package
(name "count-emails")
@ -21,7 +21,7 @@
(commit commit)))
(method git-fetch)
(sha256
(base32 "1wkppgkwp6rd7bx9zbyyljq4px47jb2flfgiflvjh1qxwdz9m25a"))
(base32 "0pv4wbxbg0szs2jiskmxvivrq44ha5ljdn18j3j2pi8q1dp9rmb3"))
(file-name (git-file-name name version))))
(propagated-inputs
(list bash scsh notmuch))

40
oni/packages/shutdown-rofi.scm Normal file
View file

@ -0,0 +1,40 @@
(define-module (oni packages shutdown-rofi)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages wm)
#:use-module (gnu packages xdisorg)
#:use-module (guix build-system gnu)
#:use-module (guix git-download)
#:use-module (guix packages))
(define-public shutdown-rofi
(let ((commit "79cc1bdbabe5d4a1521723de1a5b9c32a1df1c7c")
(revision "0"))
(package
(name "shutdown-rofi")
(version (git-version "0.0.0" revision commit))
(source
(origin
(uri (git-reference
(url "git://ryuslash.org/util/tom/shutdown-rofi")
(commit commit)))
(method git-fetch)
(sha256
(base32 "17c5hr3yrafmmgcxi6m0njhp113yfcylv7ifpgds06sxxn8wdzv0"))
(file-name (git-file-name name version))))
(propagated-inputs
(list herbstluftwm rofi))
(build-system gnu-build-system)
(arguments
`(#:tests? #f
#:phases
(modify-phases %standard-phases
(delete 'configure)
(delete 'build)
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out") "/bin")))
(install-file "shutdown-rofi" bin)))))))
(home-page "https://ryuslash.org/")
(synopsis "A simple script that shows a shutdown menu using rofi.")
(description "Uses rofi to show a simple shutdown menu.")
(license license:gpl3+))))