diff options
| author | vin <git@vineetk.net> | 2026-04-14 11:52:16 -0400 |
|---|---|---|
| committer | vin <git@vineetk.net> | 2026-04-15 10:54:20 -0400 |
| commit | 6c25a2f8f115ec2d29557ca7731d41ee4866ed1e (patch) | |
| tree | 9db511ad2f5f4c714b7e7dd9abecf9ab29a0e75a | |
| parent | a70c5903f6176d6966e3213c3b129e7b20083626 (diff) | |
reindent files
| -rw-r--r-- | epistemia/packages/emacs.scm | 4 | ||||
| -rw-r--r-- | epistemia/packages/firmware.scm | 20 | ||||
| -rw-r--r-- | epistemia/packages/xorg.scm | 120 | ||||
| -rw-r--r-- | epistemia/services/age-secret.scm | 10 |
4 files changed, 77 insertions, 77 deletions
diff --git a/epistemia/packages/emacs.scm b/epistemia/packages/emacs.scm index dc64eee..0488898 100644 --- a/epistemia/packages/emacs.scm +++ b/epistemia/packages/emacs.scm | |||
| @@ -15,8 +15,8 @@ | |||
| 15 | (origin | 15 | (origin |
| 16 | (method git-fetch) | 16 | (method git-fetch) |
| 17 | (uri (git-reference | 17 | (uri (git-reference |
| 18 | (url "https://github.com/ogdenwebb/emacs-kaolin-themes") | 18 | (url "https://github.com/ogdenwebb/emacs-kaolin-themes") |
| 19 | (commit (string-append "v" version)))) | 19 | (commit (string-append "v" version)))) |
| 20 | (file-name (git-file-name name version)) | 20 | (file-name (git-file-name name version)) |
| 21 | (sha256 | 21 | (sha256 |
| 22 | (base32 "1lbqvs2jqvs6x8gj7bali24mw2fl6gk184zln6avy6wmam7n8dqi")))) | 22 | (base32 "1lbqvs2jqvs6x8gj7bali24mw2fl6gk184zln6avy6wmam7n8dqi")))) |
diff --git a/epistemia/packages/firmware.scm b/epistemia/packages/firmware.scm index 6fa49b5..0438b44 100644 --- a/epistemia/packages/firmware.scm +++ b/epistemia/packages/firmware.scm | |||
| @@ -12,10 +12,10 @@ | |||
| 12 | 12 | ||
| 13 | ;; originally from guix upstream, but it's old and only for avr | 13 | ;; originally from guix upstream, but it's old and only for avr |
| 14 | (define* (make-qmk-firmware-rp2040 keyboard keymap | 14 | (define* (make-qmk-firmware-rp2040 keyboard keymap |
| 15 | #:key (description "") | 15 | #:key (description "") |
| 16 | keymap-json | 16 | keymap-json |
| 17 | keymap-source-directory | 17 | keymap-source-directory |
| 18 | keyboard-source-directory) | 18 | keyboard-source-directory) |
| 19 | "Return a package to build the QMK firmware for KEYBOARD with KEYMAP. | 19 | "Return a package to build the QMK firmware for KEYBOARD with KEYMAP. |
| 20 | Keyboard should be the name of a sub-directory under the @file{keyboards} directory. | 20 | Keyboard should be the name of a sub-directory under the @file{keyboards} directory. |
| 21 | For custom keymaps, KEYMAP-JSON, a file-like object of a JSON representation of | 21 | For custom keymaps, KEYMAP-JSON, a file-like object of a JSON representation of |
| @@ -34,8 +34,8 @@ keyboard definition in KEYBOARD-SOURCE-DIRECTORY." | |||
| 34 | (source (origin | 34 | (source (origin |
| 35 | (method git-fetch) | 35 | (method git-fetch) |
| 36 | (uri (git-reference | 36 | (uri (git-reference |
| 37 | (url "https://github.com/qmk/qmk_firmware") | 37 | (url "https://github.com/qmk/qmk_firmware") |
| 38 | (commit version))) | 38 | (commit version))) |
| 39 | (file-name (git-file-name "qmk-firmware" version)) | 39 | (file-name (git-file-name "qmk-firmware" version)) |
| 40 | (sha256 | 40 | (sha256 |
| 41 | (base32 | 41 | (base32 |
| @@ -72,8 +72,8 @@ keyboard definition in KEYBOARD-SOURCE-DIRECTORY." | |||
| 72 | (origin | 72 | (origin |
| 73 | (method git-fetch) | 73 | (method git-fetch) |
| 74 | (uri (git-reference | 74 | (uri (git-reference |
| 75 | (url "https://github.com/qmk/chibios") | 75 | (url "https://github.com/qmk/chibios") |
| 76 | (commit commit))) | 76 | (commit commit))) |
| 77 | (file-name (git-file-name "chibios" commit)) | 77 | (file-name (git-file-name "chibios" commit)) |
| 78 | (sha256 | 78 | (sha256 |
| 79 | (base32 | 79 | (base32 |
| @@ -137,10 +137,10 @@ staggered keys and 3 thumb keys.")) | |||
| 137 | 137 | ||
| 138 | (define-public qmk-ferris-sweep | 138 | (define-public qmk-ferris-sweep |
| 139 | (make-qmk-firmware-rp2040 "ferris/sweep" "default" #:description | 139 | (make-qmk-firmware-rp2040 "ferris/sweep" "default" #:description |
| 140 | "The default keymap for the Ferris Sweep keyboard, a version of the | 140 | "The default keymap for the Ferris Sweep keyboard, a version of the |
| 141 | Ferris 3x5+2 split keyboard with a daughterboard for MCU.")) | 141 | Ferris 3x5+2 split keyboard with a daughterboard for MCU.")) |
| 142 | 142 | ||
| 143 | (define-public qmk-ploopy-adept | 143 | (define-public qmk-ploopy-adept |
| 144 | (make-qmk-firmware-rp2040 "ploopyco/madromys" "default" #:description | 144 | (make-qmk-firmware-rp2040 "ploopyco/madromys" "default" #:description |
| 145 | "The default keymap for the Ploopy Adept open-hardware programmable | 145 | "The default keymap for the Ploopy Adept open-hardware programmable |
| 146 | trackball mouse.")) | 146 | trackball mouse.")) |
diff --git a/epistemia/packages/xorg.scm b/epistemia/packages/xorg.scm index bc2ec0f..05b63f1 100644 --- a/epistemia/packages/xorg.scm +++ b/epistemia/packages/xorg.scm | |||
| @@ -7,63 +7,63 @@ | |||
| 7 | 7 | ||
| 8 | (define-public xorg-server-with-drivers | 8 | (define-public xorg-server-with-drivers |
| 9 | (package | 9 | (package |
| 10 | (inherit xorg-server) | 10 | (inherit xorg-server) |
| 11 | (name "xorg-server-with-drivers") | 11 | (name "xorg-server-with-drivers") |
| 12 | (arguments | 12 | (arguments |
| 13 | (substitute-keyword-arguments (package-arguments xorg-server) | 13 | (substitute-keyword-arguments (package-arguments xorg-server) |
| 14 | ((#:phases phases) | 14 | ((#:phases phases) |
| 15 | #~(modify-phases #$phases | 15 | #~(modify-phases #$phases |
| 16 | (add-after 'install 'install-modules-conf | 16 | (add-after 'install 'install-modules-conf |
| 17 | (lambda _ | 17 | (lambda _ |
| 18 | ;; Add Xorg module paths so drivers in inputs are found. | 18 | ;; Add Xorg module paths so drivers in inputs are found. |
| 19 | (call-with-output-file | 19 | (call-with-output-file |
| 20 | (string-append #$output "/share/X11/xorg.conf.d/00-modules.conf") | 20 | (string-append #$output "/share/X11/xorg.conf.d/00-modules.conf") |
| 21 | (lambda (port) | 21 | (lambda (port) |
| 22 | (display | 22 | (display |
| 23 | (string-append | 23 | (string-append |
| 24 | "Section \"Files\"\nModulePath \"" | 24 | "Section \"Files\"\nModulePath \"" |
| 25 | #$output "/lib/xorg/modules," | 25 | #$output "/lib/xorg/modules," |
| 26 | #$(this-package-input "xf86-input-libinput") "/lib/xorg/modules," | 26 | #$(this-package-input "xf86-input-libinput") "/lib/xorg/modules," |
| 27 | #$(this-package-input "xf86-input-wacom") "/lib/xorg/modules," | 27 | #$(this-package-input "xf86-input-wacom") "/lib/xorg/modules," |
| 28 | #$(this-package-input "xf86-video-amdgpu") "/lib/xorg/modules\"\n" | 28 | #$(this-package-input "xf86-video-amdgpu") "/lib/xorg/modules\"\n" |
| 29 | "EndSection\n") | 29 | "EndSection\n") |
| 30 | port))) | 30 | port))) |
| 31 | (call-with-output-file | 31 | (call-with-output-file |
| 32 | (string-append #$output "/share/X11/xorg.conf.d/10-input.conf") | 32 | (string-append #$output "/share/X11/xorg.conf.d/10-input.conf") |
| 33 | (lambda (port) | 33 | (lambda (port) |
| 34 | (display | 34 | (display |
| 35 | (string-append | 35 | (string-append |
| 36 | "Section \"InputClass\"\n" | 36 | "Section \"InputClass\"\n" |
| 37 | " Identifier \"keyboards\"\n" | 37 | " Identifier \"keyboards\"\n" |
| 38 | " MatchIsKeyboard \"on\"\n" | 38 | " MatchIsKeyboard \"on\"\n" |
| 39 | " Driver \"libinput\"\n" | 39 | " Driver \"libinput\"\n" |
| 40 | "EndSection\n" | 40 | "EndSection\n" |
| 41 | "\n" | 41 | "\n" |
| 42 | "Section \"InputClass\"\n" | 42 | "Section \"InputClass\"\n" |
| 43 | " Identifier \"mice\"\n" | 43 | " Identifier \"mice\"\n" |
| 44 | " MatchIsPointer \"on\"\n" | 44 | " MatchIsPointer \"on\"\n" |
| 45 | " Driver \"libinput\"\n" | 45 | " Driver \"libinput\"\n" |
| 46 | " Option \"AccelProfile\" \"flat\"\n" | 46 | " Option \"AccelProfile\" \"flat\"\n" |
| 47 | " Option \"AccelSpeed\" \"0\"\n" | 47 | " Option \"AccelSpeed\" \"0\"\n" |
| 48 | "EndSection\n" | 48 | "EndSection\n" |
| 49 | "\n" | 49 | "\n" |
| 50 | "Section \"InputClass\"\n" | 50 | "Section \"InputClass\"\n" |
| 51 | " Identifier \"touchpads\"\n" | 51 | " Identifier \"touchpads\"\n" |
| 52 | " MatchIsTouchpad \"on\"\n" | 52 | " MatchIsTouchpad \"on\"\n" |
| 53 | " Driver \"libinput\"\n" | 53 | " Driver \"libinput\"\n" |
| 54 | " Option \"AccelProfile\" \"flat\"\n" | 54 | " Option \"AccelProfile\" \"flat\"\n" |
| 55 | " Option \"AccelSpeed\" \"0\"\n" | 55 | " Option \"AccelSpeed\" \"0\"\n" |
| 56 | " Option \"Tapping\" \"on\"\n" | 56 | " Option \"Tapping\" \"on\"\n" |
| 57 | " Option \"TappingButtonMap\" \"lrm\"\n" | 57 | " Option \"TappingButtonMap\" \"lrm\"\n" |
| 58 | "EndSection\n" | 58 | "EndSection\n" |
| 59 | "\n" | 59 | "\n" |
| 60 | "Section \"InputClass\"\n" | 60 | "Section \"InputClass\"\n" |
| 61 | " Identifier \"wacom\"\n" | 61 | " Identifier \"wacom\"\n" |
| 62 | " MatchProduct \"Wacom\"\n" | 62 | " MatchProduct \"Wacom\"\n" |
| 63 | " Driver \"wacom\"\n" | 63 | " Driver \"wacom\"\n" |
| 64 | "EndSection\n") | 64 | "EndSection\n") |
| 65 | port))))))))) | 65 | port))))))))) |
| 66 | (inputs (modify-inputs (package-inputs xorg-server) | 66 | (inputs (modify-inputs (package-inputs xorg-server) |
| 67 | (append xf86-input-libinput | 67 | (append xf86-input-libinput |
| 68 | xf86-input-wacom | 68 | xf86-input-wacom |
| 69 | xf86-video-amdgpu))))) | 69 | xf86-video-amdgpu))))) |
diff --git a/epistemia/services/age-secret.scm b/epistemia/services/age-secret.scm index 70d2b9f..e2ee502 100644 --- a/epistemia/services/age-secret.scm +++ b/epistemia/services/age-secret.scm | |||
| @@ -78,11 +78,11 @@ | |||
| 78 | 78 | ||
| 79 | (define (age-secret-shepherd-service config) | 79 | (define (age-secret-shepherd-service config) |
| 80 | (list (shepherd-service | 80 | (list (shepherd-service |
| 81 | (provision '(age-secret)) | 81 | (provision '(age-secret)) |
| 82 | (requirement '()) | 82 | (requirement '()) |
| 83 | (one-shot? #t) | 83 | (one-shot? #t) |
| 84 | (start #~(lambda () #t)) | 84 | (start #~(lambda () #t)) |
| 85 | (documentation "Age secret decryption marker service.")))) | 85 | (documentation "Age secret decryption marker service.")))) |
| 86 | 86 | ||
| 87 | (define age-secret-service-type | 87 | (define age-secret-service-type |
| 88 | (service-type | 88 | (service-type |
