diff options
Diffstat (limited to 'home.scm')
| -rw-r--r-- | home.scm | 106 |
1 files changed, 32 insertions, 74 deletions
@@ -23,8 +23,6 @@ (gnu packages) (gnu services) - ;(gnu services syncthing) - (guix packages) (gnu packages music) (gnu packages guile-xyz) @@ -52,38 +50,6 @@ (define rz/terminal-emulator "foot") -;; (load "./gptel.scm") - -(define wofi-config - (with-extensions - (list guile-ini guile-smc guile-lib) - #~(begin - (import (ini)) - (with-output-to-file #$output - (lambda () - (scm->ini - '((#f - ("stylesheet" . #$(local-file "wofi/style.css")) - ("xoffset" . 0) - ("yoffset" . 0) - ("hide_scroll" . "true") - ("show" . "drun") - ("width" . "600px") - ("lines" . 10) - ("line_wrap" . "word") - ("term" . #$rz/terminal-emulator) - ("allow_markup" . "true") - ("always_parse_args" . "true") - ("show_all" . "true") - ("print_command" . "true") - ("layer" . "overlay") - ("allow_images" . "true") - ("insensitivity" . "true") - ("prompt" . "Hey, you should type something!") - ("image_size" . 25) - ("display_generic" . "true") - ("key_expand" . "Tab"))))))))) - (define git-config (with-output-to-string (lambda () @@ -179,7 +145,8 @@ `(;; ("sway/config" ,(plain-file "sway-config" rz/sway-config)) ("emacs/init.el" ,(plain-file "init.el" rz/emacs-config)) ("foot/foot.ini" ,(plain-file "foot.ini" foot-config)) - ("wofi/config" ,(computed-file "wofi-config" wofi-config)) + ("wofi/config" ,(local-file "wofi/config")) + ("wofi/style.css" ,(local-file "wofi/style.css")) ("git/config" ,(plain-file "git-config" git-config)) ("bat/config" ,(plain-file "bat-config" bat-config)) ("guix-gaming-channels/games.scm" ,(plain-file "guix-gaming-config" guix-gaming-config)))) @@ -214,15 +181,6 @@ (provision '(emacs)) (start #~(make-system-constructor "emacs --daemon")) (stop #~(make-system-destructor "emacsclient --eval \"(kill-emacs)\""))) - ;(shepherd-service - ;(documentation "Run `syncthing' without calling the browser") - ;(provision '(syncthing)) - ;(start #~(make-forkexec-constructor - ;(list #$(file-append (specification->package "syncthing") "/bin/syncthing") - ;"-no-browser") - ;#:log-file (string-append #$log-dir "/syncthing.log"))) - ;(stop #~(make-kill-destructor)) - ;(respawn? #t)) (shepherd-service (documentation "Run a Radicle node") (provision '(rad)) @@ -241,24 +199,24 @@ (respawn? #t)))))) (service home-pipewire-service-type) (simple-service 'some-useful-env-vars-service - home-environment-variables-service-type - `(("LESSHISTFILE" . "$XDG_CACHE_HOME/.lesshst") - ("XDG_DATA_DIRS" . "$XDG_DATA_DIRS:/var/lib/flatpak/exports/share:/home/robby/.local/share/flatpak/exports/share") - ("EDITOR" . "emacsclient -n -a emacs") - ("EMACSLOADPATH" . "$HOME/.guix-home/profile/share/emacs/site-lisp/") - ("XDG_DESKTOP_DIR" . "$HOME/desktop") - ("XDG_DOWNLOAD_DIR" . "$HOME/downloads") - ("XDG_TEMPLATES_DIR" . "$HOME/templates") - ("XDG_PUBLICSHARE_DIR" . "$HOME/public") - ("XDG_DOCUMENTS_DIR" . "$HOME/documents") - ("XDG_MUSIC_DIR" . "$HOME/music") - ("XDG_PICTURES_DIR" . "$HOME/pictures") - ("XDG_VIDEOS_DIR" . "$HOME/videos") - ("BROWSER" . "xdg-open") - ("PODMAN_COMPOSE_WARNING_LOGS" . "false") - ;; Required to open links in Firefox with DBUS instead of X11 sockets - ("MOZ_DBUS_REMOTE" . "1") - ("MOZ_ENABLE_WAYLAND" . "1"))) + home-environment-variables-service-type + `(("LESSHISTFILE" . "$XDG_CACHE_HOME/.lesshst") + ("XDG_DATA_DIRS" . "$XDG_DATA_DIRS:/var/lib/flatpak/exports/share:/home/robby/.local/share/flatpak/exports/share") + ("EDITOR" . "emacsclient -n -a emacs") + ("EMACSLOADPATH" . "$HOME/.guix-home/profile/share/emacs/site-lisp/") + ("XDG_DESKTOP_DIR" . "$HOME/desktop") + ("XDG_DOWNLOAD_DIR" . "$HOME/downloads") + ("XDG_TEMPLATES_DIR" . "$HOME/templates") + ("XDG_PUBLICSHARE_DIR" . "$HOME/public") + ("XDG_DOCUMENTS_DIR" . "$HOME/documents") + ("XDG_MUSIC_DIR" . "$HOME/music") + ("XDG_PICTURES_DIR" . "$HOME/pictures") + ("XDG_VIDEOS_DIR" . "$HOME/videos") + ("BROWSER" . "xdg-open") + ("PODMAN_COMPOSE_WARNING_LOGS" . "false") + ;; Required to open links in Firefox with DBUS instead of X11 sockets + ("MOZ_DBUS_REMOTE" . "1") + ("MOZ_ENABLE_WAYLAND" . "1"))) (service home-openssh-service-type (home-openssh-configuration (hosts @@ -300,17 +258,17 @@ (user "rz") (port 2210) (extra-content - (string-append " DynamicForward 8888\n"))) - (openssh-host (name "kali") - (user "redteam") - (host-name (string-append "172.18.6." (number->string (+ 60 7)))) - (identity-file "/home/robby/.ssh/redteam_key") - (proxy (list - (proxy-jump (host-name "cnyhackathon-jump")))) - (extra-content - (string-append " DynamicForward 8888\n" - " StrictHostKeyChecking no\n" - " UserKnownHostsFile=/dev/null"))) + (string-append " DynamicForward 8888\n"))) + (openssh-host (name "kali") + (user "redteam") + (host-name (string-append "172.18.6." (number->string (+ 60 7)))) + (identity-file "/home/robby/.ssh/redteam_key") + (proxy (list + (proxy-jump (host-name "cnyhackathon-jump")))) + (extra-content + (string-append " DynamicForward 8888\n" + " StrictHostKeyChecking no\n" + " UserKnownHostsFile=/dev/null"))) (openssh-host (name "vce1") (host-name "vce1.ncaecybergames.org") (user "rz") @@ -366,4 +324,4 @@ ;; '() ;; ;; %default-channels ;; )) -))) + ))) |