dotfiles/oni/home/config/rincewind.scm

526 lines
21 KiB
Scheme
Raw Normal View History

2022-10-13 22:06:14 +02:00
(define-module (oni home config rincewind)
2023-03-07 07:12:25 +01:00
#:use-module ((gnu home)
#:select (home-environment))
2023-11-06 09:28:00 +01:00
#:use-module ((gnu home services mail)
#:select (home-msmtp-service-type
home-msmtp-configuration
msmtp-configuration
msmtp-account))
#:use-module ((gnu home services guix)
#:select (home-channels-service-type))
#:use-module ((gnu packages certs)
#:select (nss-certs))
2023-08-30 07:20:40 +02:00
#:use-module ((gnu packages cdrom)
#:select (abcde))
2023-07-10 09:33:12 +02:00
#:use-module ((gnu packages databases)
#:select (recutils
emacs-rec-mode))
2023-03-07 07:12:25 +01:00
#:use-module ((gnu packages emacs)
#:select (emacs-next-tree-sitter))
2023-03-07 07:12:25 +01:00
#:use-module ((gnu packages emacs-xyz)
#:select (emacs-org-roam
emacs-vterm
emacs-guix
emacs-org-contacts))
2023-03-07 07:12:25 +01:00
#:use-module ((gnu packages file-systems)
#:select (tmsu))
#:use-module ((gnu packages forth)
#:select (gforth))
#:use-module ((gnu packages gnome)
#:select (hicolor-icon-theme))
2023-03-07 07:12:25 +01:00
#:use-module ((gnu packages linux)
#:select (fakeroot))
#:use-module ((gnu packages mail)
#:select (notmuch
emacs-notmuch))
2023-03-07 07:12:25 +01:00
#:use-module ((gnu packages music)
#:select (easytag))
#:use-module ((gnu packages tree-sitter)
2023-07-18 07:09:53 +02:00
#:select (tree-sitter-bash
tree-sitter-scheme
tree-sitter-python
tree-sitter-org
tree-sitter-json
tree-sitter-css))
2023-03-07 07:12:25 +01:00
#:use-module ((gnu packages)
#:select (specification->package+output))
#:use-module ((gnu services)
#:select (service
simple-service))
#:use-module ((guix channels)
#:select (channel
make-channel-introduction
openpgp-fingerprint))
#:use-module ((guix gexp)
#:select (local-file
mixed-text-file))
#:use-module ((guix packages)
#:select (package-name
package-input-rewriting))
#:use-module ((guix transformations)
#:select (options->transformation))
#:use-module ((nongnu packages emacs)
#:select (emacs-org-roam-ui))
2023-03-07 07:12:25 +01:00
#:use-module ((oni home config common)
#:select (home-redshift-service
;; home-xbindkeys-service
2023-03-07 07:12:25 +01:00
home-zsh-service
home-guile-service
home-xmodmap-service
home-openssh-service
home-kitty-service))
2023-10-13 05:54:54 +02:00
#:use-module ((oni home services autokey)
#:select (home-autokey-service-type))
#:use-module ((oni home services copyq)
#:select (home-copyq-service-type))
2023-03-07 07:12:25 +01:00
#:use-module ((oni home services dunst)
#:select (home-dunst-default-service))
#:use-module ((oni home services emacs)
#:select (home-emacs-service-type
2023-08-15 09:21:24 +02:00
home-emacs-configuration
home-emacs-helpful-service-type
home-emacs-helpful-configuration
home-emacs-yasnippet-capf-service-type
home-emacs-dashboard-service-type
2023-09-28 08:44:06 +02:00
home-emacs-dashboard-configuration
2023-09-28 09:22:30 +02:00
home-emacs-eros-service-type
2023-10-04 07:12:22 +02:00
home-emacs-ace-link-service-type
home-emacs-ace-link-configuration
home-emacs-golden-ratio-service-type))
2023-03-07 07:12:25 +01:00
#:use-module ((oni home services environment)
#:select (home-environment-service))
#:use-module ((oni home services flameshot)
#:select (home-flameshot-service-type))
#:use-module ((oni home services kdeconnect)
#:select (home-kdeconnect-service-type))
#:use-module ((oni home services mpd)
#:select (home-mpd-service-type
home-mpd-configuration
<home-mpd-audio-output>
2023-03-08 08:51:42 +01:00
home-mpc-update-service-type
home-mpd-notify-service-type))
2023-10-09 07:07:36 +02:00
#:use-module ((oni home services mpv)
#:select (home-mpv-service-type
home-mpv-mpris-service-type))
2023-07-13 00:46:05 +02:00
#:use-module ((oni home services notmuch)
#:select (home-notmuch-service-type
home-notmuch-configuration))
#:use-module ((oni home services picom)
#:select (home-picom-service-type
home-picom-configuration))
2023-03-07 07:12:25 +01:00
#:use-module ((oni home services polybar)
#:select (home-polybar-service-type
home-polybar-configuration))
#:use-module ((oni home services rofi)
#:select (home-rofi-default-service))
2023-03-17 00:35:06 +01:00
#:use-module ((oni home services stumpwm)
#:select (home-stumpwm-service-type
home-stumpwm-configuration
home-stumpwm-gaps-service-type
2023-07-28 08:17:45 +02:00
home-stumpwm-gaps-configuration
home-stumpwm-stumptray-service-type
home-stumpwm-stumptray-configuration))
2023-03-07 07:12:25 +01:00
#:use-module ((oni home services syncthing)
#:select (home-syncthing-service-type))
#:use-module ((oni home services utilities)
#:select (home-inkplate-display-service-type))
2023-03-07 07:12:25 +01:00
#:use-module ((oni home services zsh)
#:select (home-zsh-syntax-highlighting-service-type
2023-08-30 07:24:25 +02:00
home-zsh-autosuggestions-service-type
home-zsh-autopair-service-type))
2023-03-07 07:12:25 +01:00
#:use-module ((oni packages count-emails)
#:select (count-emails))
#:use-module ((oni packages emacs)
#:select (emacs-inkplate
2023-11-08 00:57:00 +01:00
oni-emacs-notmuch
emacs-syncthing-status))
#:use-module ((oni packages emacs-config)
2023-03-17 00:35:27 +01:00
#:select (emacs-oni-org-roam
emacs-oni-vterm
emacs-oni-elfeed
emacs-oni-elisp
emacs-oni-eshell
emacs-oni-core
emacs-oni-compilation
emacs-oni-common-lisp
emacs-oni-gui
emacs-oni-magit
emacs-oni-notmuch
2023-07-23 08:05:34 +02:00
emacs-oni-hy
emacs-oni-project
emacs-oni-bookmark
emacs-oni-dired
emacs-oni-browse-url
emacs-oni-c
emacs-oni-circe
emacs-oni-clojure
emacs-oni-cmake
emacs-oni-conf
emacs-oni-cpp
emacs-oni-csharp
emacs-oni-css
emacs-oni-diff-hl
emacs-oni-ediff
emacs-oni-elm
emacs-oni-emms
emacs-oni-epub
emacs-oni-eww
emacs-oni-grep
emacs-oni-haskell
emacs-oni-highlight-indent-guides
emacs-oni-html
emacs-oni-java
emacs-oni-json
emacs-oni-log-edit
emacs-oni-lua
emacs-oni-makefile
emacs-oni-nxml
emacs-oni-package
emacs-oni-projectile
emacs-oni-scheme
emacs-oni-sh
emacs-oni-shr
emacs-oni-tramp
emacs-oni-embrace))
2023-03-07 07:12:25 +01:00
#:use-module ((oni packages hlwm-run-or-raise)
#:select (hlwm-run-or-raise))
#:use-module ((oni packages inbox-size)
#:select (inbox-size))
#:use-module ((oni packages mpd-random-albums)
#:select (mpd-random-albums))
#:use-module ((oni packages notmuch-collect-tasks)
#:select (notmuch-collect-tasks))
#:use-module ((oni packages notmuch-tag-mailinglists)
#:select (notmuch-tag-mailinglists))
#:use-module ((oni packages pick-random-wallpaper)
#:select (pick-random-wallpaper))
#:use-module ((oni packages shutdown-rofi)
#:select (shutdown-rofi))
#:use-module ((oni packages stumpwm)
#:select (stumpwm+swank))
2023-03-07 07:12:25 +01:00
#:use-module ((oni packages emacs-outli)
#:select (emacs-outli))
#:use-module ((oop goops)
#:select (make)))
(define (with-master-branch package)
"Apply a transformation to PACKAGE so that it uses the master branch."
((options->transformation
`((with-branch . ,(string-append (package-name package) "=master"))))
package))
(define with-my-emacs-notmuch-package
(package-input-rewriting `((,emacs-notmuch . ,oni-emacs-notmuch))))
(define rincewind-picom-service
(service home-picom-service-type
(home-picom-configuration
(backend "glx")
(glx-no-stencil #t)
(detect-transient #t)
(shadow #t)
(shadow-radius 5)
(shadow-opacity 85)
(shadow-offset-x 15)
(shadow-offset-y 15)
(shadow-exclude
'("name = 'mowedline'"
"class_g = 'trayer'"
"bounding_shaped"
2023-03-17 06:23:14 +01:00
"class_g = 'i3lock'"))
(wintypes
'((dnd (shadow . #f))
(dock (shadow . #f))))
(corner-radius 15)
(inactive-opacity 75)
(active-opacity 95)
(frame-opacity 100)
(inactive-opacity-override #t)
(opacity-rule
'("100:name *?= '(Meeting) | Microsoft Teams'"
"100:name *?= 'freerdp'"))
(blur-background #t)
(blur-background-frame #t)
(blur
'((method . "dual_kawase")
(strength . 6.9)))
(blur-background-fixed #t)
(blur-background-exclude
'("name *= 'rofi'"
2023-03-17 06:23:14 +01:00
"class_g = 'i3lock'"))
(focus-exclude
'("name *= 'rofi'"
2023-03-17 06:23:14 +01:00
"class_g = 'i3lock'"))
(fading #t)
2023-03-17 00:54:55 +01:00
(fade-exclude
`("class_g = 'i3lock'"))
(fade-in-step 3)
(fade-out-step 3))))
2023-09-19 09:37:47 +02:00
(define my-emacs emacs-next-tree-sitter)
(home-environment
2023-10-09 07:07:36 +02:00
(packages (list easytag
(specification->package+output "glibc-locales")
(specification->package+output "font-fantasque-sans")
(specification->package+output "font-comic-neue")
hlwm-run-or-raise
pick-random-wallpaper
notmuch-collect-tasks
notmuch-tag-mailinglists
2023-09-19 09:37:47 +02:00
(inbox-size my-emacs)
count-emails
2022-10-14 05:45:32 +02:00
shutdown-rofi
emacs-org-roam
emacs-org-roam-ui
emacs-vterm
emacs-org-contacts
fakeroot ; Needed for build arch packages
tmsu
mpd-random-albums
notmuch
emacs-inkplate
2023-11-08 00:57:00 +01:00
emacs-syncthing-status
emacs-outli
emacs-guix
2023-09-19 09:37:47 +02:00
(emacs-oni-org-roam my-emacs)
emacs-oni-vterm
emacs-oni-elisp
emacs-oni-core
emacs-oni-elfeed
emacs-oni-eshell
emacs-oni-compilation
emacs-oni-common-lisp
emacs-oni-gui
emacs-oni-magit
(with-my-emacs-notmuch-package emacs-oni-notmuch)
emacs-oni-hy
2023-07-23 08:05:34 +02:00
emacs-oni-project
emacs-oni-bookmark
emacs-oni-dired
emacs-oni-browse-url
emacs-oni-c
emacs-oni-circe
emacs-oni-clojure
emacs-oni-cmake
emacs-oni-conf
emacs-oni-cpp
emacs-oni-csharp
emacs-oni-css
emacs-oni-diff-hl
emacs-oni-ediff
emacs-oni-elm
emacs-oni-embrace
emacs-oni-emms
emacs-oni-epub
emacs-oni-eww
emacs-oni-grep
emacs-oni-haskell
emacs-oni-highlight-indent-guides
emacs-oni-html
emacs-oni-java
emacs-oni-json
emacs-oni-log-edit
emacs-oni-lua
emacs-oni-makefile
emacs-oni-nxml
emacs-oni-package
emacs-oni-projectile
emacs-oni-scheme
emacs-oni-sh
emacs-oni-shr
emacs-oni-tramp
tree-sitter-bash
2023-07-18 07:09:53 +02:00
tree-sitter-scheme
tree-sitter-python
tree-sitter-org
tree-sitter-json
tree-sitter-css
gforth
2023-07-10 09:33:12 +02:00
recutils
emacs-rec-mode
;; Might be needed for certain icons?
hicolor-icon-theme
;; Might be needed for cetrificates
nss-certs))
(services
(list
home-environment-service
home-rofi-default-service
home-dunst-default-service
home-redshift-service
;; home-xbindkeys-service
home-zsh-service
home-guile-service
home-xmodmap-service
home-openssh-service
home-kitty-service
rincewind-picom-service
;; This has to be the first extension because it needs to be added to the
;; configuration last.
(service home-zsh-syntax-highlighting-service-type)
(service home-zsh-autosuggestions-service-type)
2023-08-30 07:24:25 +02:00
(service home-zsh-autopair-service-type)
(simple-service 'my-channel-service
home-channels-service-type
(list
(channel
(name 'oni)
2023-04-02 07:57:42 +02:00
(url "https://code.ryuslash.org/ryuslash/guix-packages.git")
(introduction
(make-channel-introduction
"646573578b7adfbff415645fed201269076cebf6"
(openpgp-fingerprint
"061C C5C4 D936 C9A8 AECC 1A17 7D5C 407B 4350 25C1"))))
(channel
(name 'nonguix)
(url "https://gitlab.com/nonguix/nonguix")
;; Enable signature verification:
(introduction
(make-channel-introduction
"897c1a470da759236cc11798f4e0a5f7d4d59fbc"
(openpgp-fingerprint
"2A39 3FFF 68F4 EF7A 3D29 12AF 6F51 20A0 22FB B2D5"))))
(channel
(name 'guix-gaming-games)
(url "https://gitlab.com/guix-gaming-channels/games.git")
(introduction
(make-channel-introduction
"c23d64f1b8cc086659f8781b27ab6c7314c5cca5"
(openpgp-fingerprint
"50F3 3E2E 5B0C 3D90 0424 ABE8 9BDC F497 A4BB CC7F"))))
(channel
(name 'rosenthal)
(url "https://codeberg.org/hako/rosenthal.git")
(branch "trunk")
(introduction
(make-channel-introduction
"7677db76330121a901604dfbad19077893865f35"
(openpgp-fingerprint
"13E7 6CD6 E649 C28C 3385 4DF5 5E5A A665 6149 17F7"))))))
;; (service home-polybar-service-type
;; (home-polybar-configuration
;; (bar "rincewind")))
;; (service home-kdeconnect-service-type)
(service home-syncthing-service-type)
(service home-emacs-service-type
(home-emacs-configuration
2023-09-19 09:37:47 +02:00
(package my-emacs)
(configurations
(list
(local-file "../services/emacs/init.el")
(mixed-text-file
"init.el"
"(with-eval-after-load 'hy-mode (require 'oni-hy))\n"
2023-07-23 08:05:34 +02:00
"(with-eval-after-load 'project (require 'oni-project))\n"
"(projectile-mode)\n"
"(setq custom-file \"~/.config/emacs/custom.el\")\n"
"(load custom-file)\n"
"(provide 'init)\n"
";;; init.el ends here\n")))))
2023-08-15 09:21:24 +02:00
(service home-emacs-helpful-service-type
(home-emacs-helpful-configuration
(configurations
(list
(local-file "../services/emacs/oni-helpful.el")))))
(service home-emacs-yasnippet-capf-service-type)
(service home-emacs-dashboard-service-type
(home-emacs-dashboard-configuration
(configurations
(list
(local-file "../services/emacs/oni-dashboard.el")))))
2023-09-28 08:44:06 +02:00
(service home-emacs-eros-service-type)
2023-10-04 07:12:22 +02:00
(service home-emacs-ace-link-service-type
(home-emacs-ace-link-configuration
(default-key "C-S-e")
(goto-address-key "C-S-e")
(org-mode-key "C-S-e")))
(service home-emacs-golden-ratio-service-type)
2022-10-07 08:21:43 +02:00
(service home-flameshot-service-type)
(service home-mpd-service-type
(home-mpd-configuration
(music-directory "~/music")
(playlist-directory "~/music/playlists")
(log-file "~/.local/share/mpd/mpd.log")
(pid-file "~/.local/share/mpd/mpd.pid")
(db-file "~/.local/share/mpd/mpd.db")
(state-file "~/.local/share/mpd/mpdstate")
(audio-outputs
(list (make <home-mpd-audio-output> #:type "pulse" #:name "MPD Pulse")
(make <home-mpd-audio-output>
#:type "fifo"
#:name "Visualizer"
#:path "/tmp/mpd.fifo"
#:format "44100:16:2")))))
2023-03-08 08:51:42 +01:00
(service home-mpc-update-service-type)
2023-03-17 00:35:06 +01:00
(service home-mpd-notify-service-type)
2023-10-09 07:07:36 +02:00
(service home-mpv-service-type)
(service home-mpv-mpris-service-type)
2023-03-17 00:35:06 +01:00
(service home-stumpwm-service-type
(home-stumpwm-configuration
(package stumpwm+swank)
(configurations
(list (local-file "../services/stumpwm/config")))))
(service home-stumpwm-gaps-service-type
(home-stumpwm-gaps-configuration
(configurations
(list (local-file "../services/stumpwm/config-gaps")))))
2023-07-28 08:17:45 +02:00
(service home-stumpwm-stumptray-service-type
(home-stumpwm-stumptray-configuration
(configurations
(list (mixed-text-file "config-stumptray"
"(require 'stumptray)\n"
"(stumptray::stumptray)\n")))))
2023-07-13 00:46:05 +02:00
(service home-inkplate-display-service-type)
(service home-notmuch-service-type
(home-notmuch-configuration
(database-path "/home/chelys/documents/mail")
(user-primary-email "tom@ryuslash.org")
(user-other-email '("ryuslash@gmail.com" "tom@iactor.nl"))
2023-07-23 08:05:46 +02:00
(new-ignore '(".nnmaildir" ".mbsyncstate" ".uidvalidity"
2023-10-13 05:54:54 +02:00
".mbsyncstate.journal" ".mbsyncstate.new"))))
(service home-autokey-service-type)
2023-11-06 09:28:00 +01:00
(service home-copyq-service-type)
(service home-msmtp-service-type
(home-msmtp-configuration
(defaults (msmtp-configuration
(auth? #t)
(tls? #t)
(tls-starttls? #t)
(port 587)))
(accounts
(list (msmtp-account
(name "gmail")
;; Use `secret-tool store --label=msmtp host smtp.gmail.com
;; service smtp user ryuslash@gmail.com' to store the
;; password.
(configuration (msmtp-configuration
(host "smtp.gmail.com")
(from "ryuslash@gmail.com")
(user "ryuslash@gmail.com"))))
(msmtp-account
(name "ryuslash")
;; Use `secret-tool store --label=msmtp host
;; smtp-ryuslash.alwaysdata.net service smtp user
;; tom@ryuslash.org' to store the password.
(configuration (msmtp-configuration
(host "smtp-ryuslash.alwaysdata.net")
(from "tom@ryuslash.org")
(user "tom@ryuslash.org"))))))
(default-account "ryuslash"))))))