(use-modules (gnu packages glib))



(define %alpine-other-packages (list "polkit"
                                    "polkit-gnome"
                                    "autorandr"

                                    ;; "dconf"
                                    "glib-networking"

                                    "xf86-input-evdev"))

(define %alpine-system-selected-package-names (list "glibc-utf8-locales"
                                                   "gdm"
                                                   "gpm"
                                                   "slock" ; need suid
                                                   "zsh"
                                                   "stumpwm"
                                                   "guile-wm"
                                                   "windowmaker"
                                                   ;; "findutils"
                                                   "idutils"
                                                   ;; "twm"
                                                   ;; "herbstluftwm"
                                                   "ecryptfs-utils"))

;; (define %alpine-font-packages (list "gs-fonts"
;;                                    "font-gnu-freefont-ttf"
;;                                    "font-adobe-source-code-pro"
;;                                    "font-terminus"
;;                                    "font-dejavu"
;;                                    "font-hack"
;;                                    "font-awesome"
;;                                    "font-arabic-misc"
;;                                    "font-lohit"))

(define %alpine-mail-packages (list))
(define %alpine-font-packages (list))
(define %alpine-media-packages (list))
(define %alpine-gui-packages (list))
(define %alpine-text-packages (list))
(define %alpine-notification-packages (list))


(define %alpine-package-names-for-installation
  (append %alpine-other-packages
          %alpine-system-selected-package-names
          %alpine-mail-packages
          %alpine-font-packages
          %alpine-media-packages
          %alpine-gui-packages
          %alpine-text-packages
          %alpine-notification-packages))

(define %alpine-system-desktop-packages
  (list lvm2
        ;; for HTTPS access
        nss-certs
        ;; for user mounts
        gvfs))

(define %alpine-system-selected-packages
  (map specification->package
       %alpine-package-names-for-installation))

(define %alpine-system-packages (append %alpine-system-desktop-packages
                                       %alpine-system-selected-packages))

(define %alpine-reinit-packages (append %alpine-system-packages
                                %base-packages))


(define this-package-file
  (local-file (assoc-ref (current-source-location) 'filename)))

;; (define %alpine-copy-current-package-file-in-etc (list
;;                                                  ;; https://willschenk.com/articles/2019/installing_guix_on_nuc/
;;                                                  ;; Copy current config to /etc/config.scm
;;                                                  (simple-service 'package-file etc-service-type
;;                                                                  `(("config.scm" ,this-package-file)))))