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

Compare commits

base: ryuslash:21d8c958e83cab295a528fe141231149f3804077
Branches Tags
ryuslash:master
..
compare: ryuslash:864f3941d52396683ff556ae402b09201ef48ffa
Branches Tags
ryuslash:master

No commits in common. "21d8c958e83cab295a528fe141231149f3804077" and "864f3941d52396683ff556ae402b09201ef48ffa" have entirely different histories.
21d8c958e8 ... 864f3941d5

3 changed files with 1 additions and 108 deletions
Show stats Expand all files Collapse all files

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

@ -15,8 +15,6 @@
#:use-module (gnu services)
#:use-module (guix gexp)
#:use-module (oni home config common)
#:use-module ((oni home services admin)
#:select (home-cbatticon-service-type))
#:use-module (oni home services cmst)
#:use-module (oni home services dunst)
#:use-module ((oni home services emacs)
@ -300,5 +298,4 @@
(service home-emacs-golden-ratio-service-type)
(service home-emacs-pinentry-service-type)
(service home-xss-lock-service-type)
(service home-cbatticon-service-type))))
(service home-xss-lock-service-type))))

55
oni/home/services/admin.scm
View file

@ -1,55 +0,0 @@
(define-module (oni home services admin)
#:use-module ((gnu home services)
#:select (service-type
service-extension
home-profile-service-type))
#:use-module ((gnu home services shepherd)
#:select (home-shepherd-service-type
shepherd-service))
#:use-module ((gnu packages admin)
#:select (cbatticon))
#:use-module ((gnu services configuration)
#:select (serialize-package
define-configuration))
#:use-module ((guix gexp)
#:select (gexp
file-append))
#:use-module ((guix packages)
#:select (package?))
#:export (home-cbatticon-configuration
home-cbatticon-service-type))
(define-configuration home-cbatticon-configuration
(package
(package cbatticon)
"Package to use for setting cbatticon"))
(define (add-cbatticon-packages config)
(list (home-cbatticon-configuration-package config)))
(define (home-cbatticon-shepherd-service config)
(list
(shepherd-service
(documentation "Start cbatticon")
(provision '(cbatticon))
(auto-start? #t)
(start
#~(make-forkexec-constructor
(list #$(file-append (home-cbatticon-configuration-package config) "/bin/cbatticon"))
#:log-file (format #f "~a/.local/var/log/cbatticon.log" (getenv "HOME"))))
(stop #~(make-kill-destructor)))))
(define home-cbatticon-service-type
(service-type
(name 'home-cbatticon)
(extensions
(list (service-extension
home-profile-service-type
add-cbatticon-packages)
(service-extension
home-shepherd-service-type
home-cbatticon-shepherd-service)))
(compose identity)
(default-value (home-cbatticon-configuration))
(description "Install and configure cbatticon.")))

49
oni/home/services/sawfish.scm
View file

@ -1,49 +0,0 @@
(define-module (oni home services sawfish)
#:use-module ((gnu services configuration)
#:select (define-configuration/no-serialization))
#:use-module ((gnu home services)
#:select (service-type
service-extension
home-profile-service-type))
#:use-module ((gnu packages sawfish)
#:select (sawfish))
#:use-module ((guix gexp)
#:select (mixed-text-file))
#:use-module ((guix packages)
#:select (package?))
#:use-module ((oni home services xinit)
#:select (home-xinit-service-type
home-xinit-extension))
#:export (home-sawfish-service-type
home-sawfish-configuration))
(define-configuration/no-serialization home-sawfish-configuration
(package
(package sawfish)
"Package use for setting sawfish"))
(define (add-sawfish-packages config)
(list (home-sawfish-configuration-package config)))
(define (add-sawfish-executable config)
(home-xinit-extension
(wm
(list
(mixed-text-file
"xinitrc"
"exec " (home-sawfish-configuration-package config) "/bin/sawfish")))))
(define home-sawfish-service-type
(service-type
(name 'home-sawfish)
(extensions
(list (service-extension
home-profile-service-type
add-sawfish-packages)
(service-extension
home-xinit-service-type
add-sawfish-executable)))
(compose identity)
(default-value (home-sawfish-configuration))
(description "Install and configure sawfish.")))