;;; 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:

(require 'guix-config)

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

(defvar guix-default-profile
  (concat guix-config-state-directory
          "/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=54ddd852209a0bd8500dc7dd5775d5dd87a9a017'>root</a>/<a href='/guix/log/po?id=54ddd852209a0bd8500dc7dd5775d5dd87a9a017'>po</a>/<a href='/guix/log/po/doc?id=54ddd852209a0bd8500dc7dd5775d5dd87a9a017'>doc</a>/<a href='/guix/log/po/doc/guix-manual.de.po?id=54ddd852209a0bd8500dc7dd5775d5dd87a9a017'>guix-manual.de.po</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/po/doc/guix-manual.de.po?id=54ddd852209a0bd8500dc7dd5775d5dd87a9a017&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2019-08-25 22:48:41 +0200'>2019-08-25</span></td><td><a href='/guix/commit/po/doc/guix-manual.de.po?id=127a07152fa4f36e073ecdd216adae8200b6a049'>nls: Update 'de' translation.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-06-10 14:34:16 +0200'>2019-06-10</span></td><td><a href='/guix/commit/po/doc/guix-manual.de.po?id=d69bbd8c70a98ae6f3257fb4b4098ee92eeaebfe'>Revert "nls: Update 'de' translation of the manual."</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2019-06-07 21:59:56 +0200'>2019-06-07</span></td><td><a href='/guix/commit/po/doc/guix-manual.de.po?id=78b0f9419fdac88d7b84314868bab1b1e8173602'>nls: Update 'de' translation of the manual.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-05-17 11:20:02 +0200'>2019-05-17</span></td><td><a href='/guix/commit/po/doc/guix-manual.de.po?id=61886e5d0ece701f3ae544c23be2bbfc62df22db'>nls: Update 'de' translation.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-05-13 10:53:06 +0200'>2019-05-13</span></td><td><a href='/guix/commit/po/doc/guix-manual.de.po?id=2e6218135747f5c50a69f232e7e03dda171b669c'>nls: Update de translation.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-05-01 10:16:58 +0200'>2019-05-01</span></td><td><a href='/guix/commit/po/doc/guix-manual.de.po?id=d3619b296fd1db6441e09bb51b55a4264b9fd0ed'>nls: Update manual translations for de, es, fr, and zh_CN.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-04-25 18:55:09 +0200'>2019-04-25</span></td><td><a href='/guix/commit/po/doc/guix-manual.de.po?id=9d92774a22f049ef9cf56e059ed59e22014a9986'>nls: Update 'de' translation.</a></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2019-04-17 14:06:30 +0200'>2019-04-17</span></td><td><a href='/guix/commit/po/doc/guix-manual.de.po?id=c04052e4dfeb8cd6abd84d7c9009bae81f4b8686'>nls: Update 'de' translation of the manual.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-04-02 18:15:37 +0200'>2019-04-02</span></td><td><a href='/guix/commit/po/doc/guix-manual.de.po?id=36d69ac993a322aea5b9021bc9920c135ab5edbb'>nls: Update 'de' translation of the manual.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-03-12 18:57:00 +0100'>2019-03-12</span></td><td><a href='/guix/commit/po/doc/guix-manual.de.po?id=61ce2e77ff77ab4ad260343e77989201a6826482'>nls: Update 'de' translation of the manual.</a></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2019-01-28 15:45:48 +0100'>2019-01-28</span></td><td><a href='/guix/commit/po/doc/guix-manual.de.po?id=f20f1681214950621c373594b75aa3f425542a54'>nls: Update 'de' translation of the manual.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-12-02 23:08:47 +0100'>2018-12-02</span></td><td><a href='/guix/commit/po/doc/guix-manual.de.po?id=793dcd8c679cd53e2792cf26d539505fac396d3d'>nls: Update 'de' translation of the manual.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-11-01 12:36:47 +0100'>2018-11-01</span></td><td><a href='/guix/commit/po/doc/guix-manual.de.po?id=1e40e70bfebba47ccea354ddf862276d2c4223ea'>doc: Add German translation.</a><span class='msg-avail'>...</span></td><td>Julien Lepiller</td></tr>