kjartanoli
/
guix-channel
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove some code

This commit is contained in:
Kjartan Oli Agustsson 2024-02-25 16:04:53 +00:00
parent 9a950ab040
commit 510883703a
Signed by: kjartanoli
GPG Key ID: D7572FE3605EE6B0
2 changed files with 0 additions and 102 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
kjartan/home/services/notifications.scm
View File

@ -1,32 +0,0 @@
(define-module (kjartan home services notifications)
#:use-module (guix packages)
#:use-module (guix gexp)
#:use-module (gnu services)
#:use-module (gnu services configuration)
#:use-module (gnu home services shepherd)
#:use-module (gnu home services)
#:use-module (gnu packages wm)
#:export (swaync-configuration
swaync-service-type))
(define-configuration/no-serialization swaync-configuration
(swaync
(package swaynotificationcenter)
"The swaync package to use"))
(define (swaync-shepherd-service config)
(let ((bin (file-append (swaync-configuration-swaync config) "/bin/swaync")))
(list (shepherd-service
(documentation "Sway Notification Daemon")
(provision '(swaync notifications))
(start #~(make-forkexec-constructor `(#$bin)))
(stop #~(make-kill-destructor))))))
(define swaync-service-type
(service-type
(name 'swaync)
(extensions
(list (service-extension home-shepherd-service-type
swaync-shepherd-service)))
(default-value (swaync-configuration))
(description "A notification daemon for the Sway Wayland compositor.")))

70
kjartan/packages/aspell.scm
View File

@ -1,70 +0,0 @@
(define-module (kjartan packages aspell)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu)
#:use-module (guix licenses)
#:use-module (guix utils)
#:use-module (guix gexp)
#:use-module (gnu packages)
#:use-module (gnu packages base)
#:use-module (gnu packages bison)
#:use-module (gnu packages compression)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages perl)
#:use-module (gnu packages aspell)
#:use-module (ice-9 match))
(define* (aspell-dictionary dict-name full-name
#:key version sha256 (prefix "aspell6-") (snippet #f))
(package
(name (string-append
"aspell-dict-"
;; Downcase and replace underscore in package names
;; to follow Guix naming conventions.
(string-map (match-lambda
(#\_ #\-)
(chr chr))
(string-downcase dict-name))))
(version version)
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/aspell/dict/" dict-name
"/" prefix dict-name "-"
version ".tar.bz2"))
(hash (content-hash sha256))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'unpack 'pre-unpack
(lambda* (#:key inputs outputs #:allow-other-keys)
(setlocale LC_ALL "en_US.iso88591")))
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(invoke "./configure")))))
#:make-flags
(let ((out (assoc-ref %outputs "out")))
(list (string-append "dictdir=" out "/lib/aspell")
(string-append "datadir=" out "/lib/aspell")))
#:tests? #f))
(inputs (list glibc-locales))
(native-inputs (list aspell which))
(synopsis (string-append full-name " dictionary for GNU Aspell")) ; XXX: i18n
(description
"This package provides a dictionary for the GNU Aspell spell checker.")
(license gpl2+)
(properties
;; Unfortunately any versions with a trailing 'dash and digit' (eg.: '-0')
;; will fail to register as a version.
`((upstream-name . ,(string-append prefix dict-name))
(ftp-directory . ,(string-append "/aspell/dict/" dict-name))))
(home-page "http://aspell.net/")))
(define-public aspell-dict-is
(aspell-dictionary "is" "Icelandic"
#:version "0.51.1-0"
#:prefix "aspell-"
#:sha256
(base32
"1mp3248lhbr13cj7iq9zs7h5ix0dcwlprp5cwrkcwafrv8lvsd9h")))