;;; guix-profiles.el --- Guix profiles

;; Copyright © 2014 Alex Kost <alezost@gmail.com>

;; This file is part of GNU Guix.

;; GNU Guix 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.

;; GNU Guix 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/>.

;;; Code:

(defvar guix-user-profile
  (expand-file-name "~/.guix-profile")
  "User profile.")

(defvar guix-default-profile
  (concat (or (getenv "NIX_STATE_DIR") "@guix_localstatedir@/guix")
          "/profiles/per-user/"
          (getenv "USER")
          "/guix-profile")
  "Default Guix profile.")

(defvar guix-current-profile guix-default-profile
  "Current profile.")

(defun guix-profile-prompt (&optional default)
  "Prompt for profile and return it.
Use DEFAULT as a start directory.  If it is nil, use
`guix-current-profile'."
  (let* ((path (read-file-name "Profile: "
                               (file-name-directory
                                (or default guix-current-profile))))
         (path (directory-file-name (expand-file-name path))))
    (if (string= path guix-user-profile)
        guix-default-profile
      path)))

(defun guix-set-current-profile (path)
  "Set `guix-current-profile' to PATH.
Interactively, prompt for PATH.  With prefix, use
`guix-default-profile'."
  (interactive
   (list (if current-prefix-arg
             guix-default-profile
           (guix-profile-prompt))))
  (setq guix-current-profile path)
  (message "Current profile has been set to '%s'."
           guix-current-profile))

(provide 'guix-profiles)

;;; guix-profiles.el ends here
</table>
<div class='path'>path: <a href='/guix/log/?id=3f7772c447b57300ad253b877a4cbbe5b4a9f237'>root</a>/<a href='/guix/log/gnu?id=3f7772c447b57300ad253b877a4cbbe5b4a9f237'>gnu</a>/<a href='/guix/log/gnu/build?id=3f7772c447b57300ad253b877a4cbbe5b4a9f237'>build</a>/<a href='/guix/log/gnu/build/linux-initrd.scm?id=3f7772c447b57300ad253b877a4cbbe5b4a9f237'>linux-initrd.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/build/linux-initrd.scm?id=3f7772c447b57300ad253b877a4cbbe5b4a9f237&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-12-15 17:32:10 +0100'>2020-12-15</span></td><td><a href='/guix/commit/gnu/build/linux-initrd.scm?id=6a060ff27ff68384d7c90076baa36c349fff689d'>store-copy: 'populate-store' can optionally deduplicate files.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-21 12:39:14 +0100'>2020-11-21</span></td><td><a href='/guix/commit/gnu/build/linux-initrd.scm?id=2200bb214690ebc78b9fa42887ac9dfb8035bd4f'>linux-initrd: Remove unnecessary timestamp reset phase.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
=63539587bc63e1be0a838ba2230c73774dd18ffe'>gnu: bdb: Fix cross-compilation.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2019-07-08 16:21:48 -0400'>2019-07-08</span></td><td><a href='/guix/commit/gnu/packages/dbm.scm?id=883fe9bb913ac284c6ec203b41fc22cb6212c337'>gnu: bdb: Add 4.8.30.</a><span class='msg-avail'>...</span></td><td>Carl Dong</td></tr>
<tr><td><span title='2019-02-11 19:48:31 +0100'>2019-02-11</span></td><td><a href='/guix/commit/gnu/packages/dbm.scm?id=fe82194394137bbd617d474d3a3b58783afb0470'>gnu: gdbm: Update to 1.18.1.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2019-01-16 16:08:22 +0100'>2019-01-16</span></td><td><a href='/guix/commit/gnu/packages/dbm.scm?id=255d1bbe777a824be726edeb9fd47458a3a877a9'>gnu: Move dbm databases to new module.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>