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

Compare commits

base: ryuslash:c9beaec472f153830b8f9fac31a710d629bd9b05
Branches Tags
ryuslash:master
..
compare: ryuslash:74ee7737782493ea48012c6559f623c9bc2a1b1a
Branches Tags
ryuslash:master

No commits in common. "c9beaec472f153830b8f9fac31a710d629bd9b05" and "74ee7737782493ea48012c6559f623c9bc2a1b1a" have entirely different histories.
c9beaec472 ... 74ee773778

6 changed files with 4 additions and 156 deletions
Show stats Expand all files Collapse all files

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

@ -197,7 +197,4 @@ LocalForward 2812 localhost:2812"))
;; This doesn't appear to work.
; (map . "ctrl+alt+o focus_visible_window")
(map . "alt+2 new_window")
(map . "alt+0 close_window")
;; Find any "View build log messages" from guix and open the
;; build log in Emacs.
(map . "ctrl+shift+g kitten hints --type=regex --regex=\\\"View build log at '([^']+)'\\.\\\" --program=\\\"emacsclient\\\""))))))
(map . "alt+0 close_window"))))))

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

@ -10,8 +10,7 @@
#:use-module ((gnu packages emacs-xyz)
#:select (emacs-org-roam
emacs-vterm
emacs-guix
emacs-org-contacts))
emacs-guix))
#:use-module ((gnu packages file-systems)
#:select (tmsu))
#:use-module ((gnu packages forth)
@ -81,8 +80,6 @@
home-stumpwm-configuration))
#:use-module ((oni home services syncthing)
#:select (home-syncthing-service-type))
#:use-module ((oni home services utilities)
#:select (home-inkplate-display-service-type))
#:use-module ((oni home services zsh)
#:select (home-zsh-syntax-highlighting-service-type
home-zsh-autosuggestions-service-type))
@ -189,7 +186,6 @@
emacs-org-roam
emacs-org-roam-ui
emacs-vterm
emacs-org-contacts
fakeroot ; Needed for build arch packages
tmsu
mpd-random-albums
@ -287,6 +283,4 @@
(service home-stumpwm-service-type
(home-stumpwm-configuration
(package stumpwm+swank)))
(service home-inkplate-display-service-type))))
(package stumpwm+swank))))))

60
oni/home/services/utilities.scm
View file

@ -1,60 +0,0 @@
(define-module (oni home services utilities)
#:use-module ((gnu services configuration)
#:select (serialize-package
define-configuration))
#: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 ((guix gexp)
#:select (gexp
file-append))
#:use-module ((guix packages)
#:select (package?))
#:use-module ((oni packages utilities)
#:select (inkplate-display))
#:export (home-inkplate-display-service-type
home-inkplate-display-configuration))
(define (serialize-boolean field value)
"")
(define-configuration home-inkplate-display-configuration
(package
(package inkplate-display)
"Package to use for updating the inkplate display.")
(auto-start?
(boolean #t)
"Should the Inkplate display be updated automatically?"))
(define (add-inkplate-display-packages config)
(list (home-inkplate-display-configuration-package config)))
(define (home-inkplate-display-shepherd-service config)
(list
(shepherd-service
(documentation "Update the Inkplate display")
(provision '(inkplate-display))
(auto-start? (home-inkplate-display-configuration-auto-start? config))
(one-shot? #t)
(start
#~(make-forkexec-constructor
'(#$(file-append inkplate-display "/bin/inkplate-display")))))))
(define home-inkplate-display-service-type
(service-type
(name 'home-inkplate-display)
(extensions
(list (service-extension
home-profile-service-type
add-inkplate-display-packages)
(service-extension
home-shepherd-service-type
home-inkplate-display-shepherd-service)))
(compose identity)
(default-value (home-inkplate-display-configuration))
(description "Install and configure Inkplate display.")))

2
oni/packages/inbox-size.scm
View file

@ -16,7 +16,7 @@
(source
(origin
(uri (git-reference
(url "https://code.ryuslash.org/ryuslash/inbox-size.git")
(url "git://ryuslash.org/util/tom/inbox-size")
(commit commit)))
(method git-fetch)
(sha256

41
oni/packages/inkplate.scm
View file

@ -1,41 +0,0 @@
(define-module (oni packages inkplate)
#:use-module (guix packages)
#:use-module (guix git-download)
#:use-module (guix build-system gnu)
#:use-module (gnu packages autotools)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages guile)
#:use-module ((guix licenses) #:prefix license:))
(define-public guile-inkplate
(package
(name "guile-inkplate")
(version "0.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://code.ryuslash.org/ryuslash/guile-inkplate/")
(commit "17e45127e137ff5c96596ae35b1913deb77f0d83")))
(file-name "guile-inkplate-0.1-checkout")
(sha256 (base32 "106w10c07kvgxhk702ii3bkxw00ra4xsf0nyybgwcnbswxcn1m19"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'configure 'autoreconf
(lambda* (#:key inputs #:allow-other-keys)
(system* (string-append (assoc-ref inputs "autoconf") "/bin/autoreconf")))))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("pkg-config" ,pkg-config)
("texinfo" ,texinfo)))
(inputs `(("guile" ,guile-3.0)))
(propagated-inputs `())
(synopsis "")
(description "")
(home-page "")
(license license:gpl3+)))

42
oni/packages/utilities.scm
View file

@ -1,42 +0,0 @@
(define-module (oni packages utilities)
#:use-module (guix packages)
#:use-module (guix git-download)
#:use-module (guix build-system gnu)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages guile)
#:use-module (oni packages inkplate))
(define-public inkplate-display
(let ((commit "8b2782e00b37d6e94d17071b7fe570d654af56f6")
(revision "0"))
(package
(name "inkplate-display")
(version (git-version "0.0.0" revision commit))
(source
(origin
(uri (git-reference
(url "https://code.ryuslash.org/ryuslash/inkplate-display.git")
(commit commit)))
(method git-fetch)
(sha256
(base32 "0s8vm09zdhwyvdnna68yhwxcxn869g5xds8p87jfzwvi7rg08crr"))
(file-name (git-file-name name version))))
(propagated-inputs
(list guile-3.0 guile-inkplate))
(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 "inkplate-display" bin)))))))
(home-page "https://ryuslash.org/")
(synopsis "My script for displaying information on my Inkplate")
(description "My script for displaying information on my Inkplate.")
(license license:gpl3+))))