;;; guix-location.el --- Package locations

;; Copyright © 2016 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 Location as published by
;; the Free Software Foundation, either version 3 of the Location, 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 Location for more details.

;; You should have received a copy of the GNU General Public Location
;; along with this program.  If not, see <http://www.gnu.org/locations/>.

;;; Commentary:

;; This file provides the code to work with locations of Guix packages.

;;; Code:

(require 'cl-lib)
(require 'guix-backend)
(require 'guix-read)
(require 'guix-guile)

(defun guix-package-location (id-or-name)
  "Return location of a package with ID-OR-NAME.
For the meaning of location, see `guix-find-location'."
  (guix-eval-read (guix-make-guile-expression
                   'package-location-string id-or-name)))

;;;###autoload
(defun guix-find-location (location &optional directory)
  "Go to LOCATION of a package.
LOCATION is a string of the form:

  \"FILE:LINE:COLUMN\"

If FILE is relative, it is considered to be relative to
DIRECTORY (`guix-directory' by default).

Interactively, prompt for LOCATION.  With prefix argument, prompt
for DIRECTORY as well."
  (interactive
   (list (guix-read-package-location)
         (guix-read-directory)))
  (cl-multiple-value-bind (file line column)
      (split-string location ":")
    (find-file (expand-file-name file (or directory guix-directory)))
    (when (and line column)
      (let ((line   (string-to-number line))
            (column (string-to-number column)))
        (goto-char (point-min))
        (forward-line (- line 1))
        (move-to-column column)
        (recenter 1)))))

;;;###autoload
(defun guix-edit (id-or-name &optional directory)
  "Edit (go to location of) package with ID-OR-NAME.
See `guix-find-location' for the meaning of package location and
DIRECTORY.
Interactively, with prefix argument, prompt for DIRECTORY."
  (interactive
   (list (guix-read-package-name)
         (guix-read-directory)))
  (let ((loc (guix-package-location id-or-name)))
    (if loc
        (guix-find-location loc directory)
      (message "Couldn't find package location."))))

(provide 'guix-location)

;;; guix-location.el ends here
:26 +0100'>2019-03-01</span></td><td><a href='/guix/commit/doc/guix.fr.texi?id=15f1bff4b6f3a89cb0c9cd10f8cbefdc6d9ac350'>nls: Update 'fr' translation of the manual.</a></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2018-12-02 14:31:20 +0100'>2018-12-02</span></td><td><a href='/guix/commit/doc/guix.fr.texi?id=adfb167f12c91731788f0b20066471274df23400'>nls: Update 'fr' translation.</a></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2018-08-26 12:43:49 +0200'>2018-08-26</span></td><td><a href='/guix/commit/doc/guix.fr.texi?id=1d8d69c863ae88d5fc20e52e49a22f68c531c1db'>nls: Update 'fr' translation.</a></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2018-08-15 18:54:29 +0200'>2018-08-15</span></td><td><a href='/guix/commit/doc/guix.fr.texi?id=524756d127a80beebef04b028fa73b8a99617fe0'>nls: Update 'fr' translation.</a></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2018-06-23 16:23:50 +0200'>2018-06-23</span></td><td><a href='/guix/commit/doc/guix.fr.texi?id=2cf2c778846153f3d5a56e98232fbef6f71b57a6'>nls: Update 'fr' translation.</a></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2018-06-08 20:38:41 +0200'>2018-06-08</span></td><td><a href='/guix/commit/doc/guix.fr.texi?id=7f3f72b292b218873fe3379d5dc5cdae5c4f4747'>nls: Update 'fr' translation.</a></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2018-06-08 17:04:23 +0200'>2018-06-08</span></td><td><a href='/guix/commit/doc/guix.fr.texi?id=3cacfa9e1b1e01390628761a4b5fb7463cec8b71'>doc: Regenerate *.fr.texi.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-04-19 21:32:07 +0200'>2018-04-19</span></td><td><a href='/guix/commit/doc/guix.fr.texi?id=bf5c74e713c623cbb0001eb36af6998e92243482'>gnu: doc: Add French documentation.</a><span class='msg-avail'>...<span class='msg-tooltip'>* doc/contributing.fr.texi: New file.
* doc/guix.fr.texi: New file.
* doc/local.mk (TRANSLATED_INFO): Add them.
(info_TEXINFOS): Add guix.fr.texi.
* po/doc/contributing.fr.po: New file.
* po/doc/guix.fr.po: New file.
* po/doc/local.mk (EXTRA_DIST): Add them.
</span></span></td><td>Julien Lepiller</td></tr>