diff options
| author | bd <bdunahu@operationnull.com> | 2025-01-19 15:39:59 -0700 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2025-01-19 15:39:59 -0700 |
| commit | 1aecf1bfcb5b135607732b20be58887b7fc9a5e8 (patch) | |
| tree | 6a6938550b31a7faacf2acb90560abda1faeab62 /.config/guix/modules/base.scm | |
| parent | 5ced9532fa6c5ec80bc8ca850d7c5254bf51e729 (diff) | |
move dwm files to separate directory
Diffstat (limited to '.config/guix/modules/base.scm')
| -rw-r--r-- | .config/guix/modules/base.scm | 28 |
1 files changed, 16 insertions, 12 deletions
diff --git a/.config/guix/modules/base.scm b/.config/guix/modules/base.scm index 60fecd8..480ccb8 100644 --- a/.config/guix/modules/base.scm +++ b/.config/guix/modules/base.scm @@ -1,10 +1,3 @@ -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Provides a set of my preferred ;; -;; programs and services for any ;; -;; system ;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - - (define-module (modules base) #:use-module (gnu) #:use-module (gnu home services) @@ -15,6 +8,7 @@ #:use-module (gnu home services shepherd) #:use-module (gnu home services ssh) #:use-module (gnu home services xdg) + #:use-module (ice-9 rdelim) #:use-module (gnu system) #:use-module (guix gexp) #:use-module (modules emacs) @@ -29,7 +23,6 @@ (use-package-modules admin ;; netcat algebra ;; bc - bittorrent ;; transmission commencement ;; gcc-toolchain compression ;; unzip cryptsetup ;; cryptsetup @@ -67,6 +60,14 @@ web ;; jq ) +(define (read-hosts filename) + (let ((port (open-input-file filename))) + (let loop ((lines '())) + (let ((line (read-line port))) + (if (eof-object? line) + (begin (close-input-port port) + lines) + (loop (cons line lines))))))) (define base (list @@ -76,7 +77,6 @@ password-store pinentry-emacs screen - transmission xpdf ; pdftotext yt-dlp @@ -171,8 +171,12 @@ (permit-root-login 'prohibit-password) (password-authentication? #f))) ,(service tor-service-type) - ;; ,(service transmission-daemon-service-type) - + ,(simple-service 'add-extra-hosts + hosts-service-type + (map + (lambda (x) + (host "0.0.0.0" x)) + (read-hosts "/home/bdunahu/.config/guix/modules/blocklist.txt"))) ,@%base-services)) (define bd-base-home-services @@ -194,7 +198,7 @@ (service home-bash-service-type (home-bash-configuration - (aliases '(("auth" . "echo $pwd >> $HOME/.config/guix/shell-authorized-directories") + (aliases '(("auth" . "echo -e \"$PWD\n\" >> $HOME/.config/guix/shell-authorized-directories") ("cp" . "cp -i") ("grep" . "grep --color=auto") ("guix-rcfg" . "sudo guix system -L ${HOME}/.config/guix/ reconfigure ${HOME}/.config/guix/${HOSTNAME}.scm") |