;;; Guix Home Manager.

;;;

;;; Copyright © 2020 Jelle Licht <jlicht@fsfe.org>

;;;

;;; This program is free software: you can redistribute it and/or modify

;;; it under the terms of the GNU General Public License as published by

;;; the Free Software Foundation, either version 3 of the License, or

;;; (at your option) any later version.

;;;

;;; This program is distributed in the hope that it will be useful,

;;; but WITHOUT ANY WARRANTY; without even the implied warranty of

;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

;;; GNU General Public License for more details.

;;;

;;; You should have received a copy of the GNU General Public License

;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

(define-module (home profile)

  #:use-module (guix profiles)

  #:use-module (guix gexp)

  #:use-module (srfi srfi-1)

  #:use-module (ice-9 match)

  #:use-module (home)

  #:export (package-profile-home-type

            source-profile))

(define (packages->profile-entry packages)

  "Return an entry for the profile containing PACKAGES."

  `((".home-profile" ,(profile

		       (content (packages->manifest

				 (delete-duplicates packages eq?)))))))

(define* (source-profile #:optional (profile-path ".home-profile"))

  "Returns a string that can be added to either `.bash_profile` or

`.zprofile` that sources guix profile PROFILE-PATH, making the

contained packages available to the shell. Defaults to sourcing the

guix profile in \"$HOME/.home-profile\"."

  (apply format #f "if [ -f ~s/etc/profile ]; then

	GUIX_PROFILE=~s ; . ~s/etc/profile

	export MANPATH=~s/share/man:$MANPATH

	export INFOPATH=~s/share/info:$INFOPATH

	export XDG_DATA_DIRS=~s/share:$XDG_DATA_DIRS

	export XDG_CONFIG_DIRS=~s/etc/xdg:$XDG_CONFIG_DIRS

fi\n"

         (make-list 7 profile-path)))

(define package-profile-home-type

  (home-type

   (name 'profile)

   (extension-points

    (list (home-extension-point

           (compose concatenate)

           (extend (lambda (v l)

                     (apply append v l))))))

   (extensions

    (list

     (home-extension

      (target root-home-type)

      (compute packages->profile-entry))))

   (default-value '())

   (description "The package-profile home type")))