;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Provides a set of my preferred ;;
;; programs and services for any  ;;
;; system                         ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(define-module (base)
  #:use-module (gnu packages)
  #:use-module (gnu packages gnupg)
  #:use-module (gnu services)
  #:use-module (gnu services base)
  #:use-module (gnu services file-sharing)
  #:use-module (gnu services networking)
  #:use-module (gnu services ssh)
  #:use-module (gnu system)
  #:export (bd-base-system-packages
            bd-base-system-services))


(define dev
  '(
    "cryptsetup"
    "curl"
    "emacs"
    "git"
    "jq"
    "netcat"
    "recutils"
    "rsync"
    "sbcl"
    "stow"
    "texlive"
    "vim"
    ))

(define comm
  '(
    "aspell"
    "aspell-dict-en"
    "gnupg"
    "notmuch"
    "offlineimap3"
    "pass-otp"
    "password-store"
    "pinentry"
    "transmission"
    "xpdf" ; pdftotext
    "yt-dlp"
    ))

(define bd-base-system-packages
  `(,@(map specification->package
           (append!
            dev
            comm
            ))
    ,@%base-packages))

(define bd-base-system-services
  `(,(service openssh-service-type
              (openssh-configuration
               (x11-forwarding? #t)
               (permit-root-login 'prohibit-password)
               (password-authentication? #f)))
    ,(service tor-service-type)
    ,(service transmission-daemon-service-type)
    ,@%base-services))