;;; 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
1fbcc98a857f50b611d1df111d9a&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-02-13 14:19:05 +0000'>2024-02-13</span></td><td><a href='/guix/commit/gnu/packages/curl.scm?id=a4aac98bbb6e6475ba7e35ad0eb82d861e483709'>gnu: go-golang-org-x-sys: Move to golang-build.</a><span class='msg-avail'>...</span></td><td>Sharlatan Hellseher</td></tr>
<tr><td><span title='2024-01-23 14:01:51 +0000'>2024-01-23</span></td><td><a href='/guix/commit/gnu/packages/curl.scm?id=fbeae77ae6b8c4ad1c23e65d172b38c5a80bf2e3'>gnu: trurl: Update to 0.9.</a><span class='msg-avail'>...</span></td><td>Sharlatan Hellseher</td></tr>
<tr><td><span title='2023-12-25 11:36:20 +0200'>2023-12-25</span></td><td><a href='/guix/commit/gnu/packages/curl.scm?id=bdab356332e391e09d0feafe0fcac9c52388a07d'>gnu: curl: Fix test suite on arm platforms.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2023-12-17 01:27:00 -0500'>2023-12-17</span></td><td><a href='/guix/commit/gnu/packages/curl.scm?id=bc7713fa8878ab8a2158c8660d9b2bbb8fb2f77e'>gnu: curl: Update to 8.5.0 [security fixes].</a><span class='msg-avail'>...</span></td><td>John Kehayias</td></tr>
<tr><td><span title='2023-11-30 07:12:41 +0100'>2023-11-30</span></td><td><a href='/guix/commit/gnu/packages/curl.scm?id=e0885fcfbb12942f566a5ce9a4f3199a4d191723'>gnu: curl: Skip failing test on the Hurd.</a><span class='msg-avail'>...</span></td><td>Janneke Nieuwenhuizen</td></tr>
<tr><td><span title='2023-11-15 18:02:39 +0200'>2023-11-15</span></td><td><a href='/guix/commit/gnu/packages/curl.scm?id=bc71be1a1d1491087c2588ad7d3a12974c2f1403'>gnu: curl: Skip failing test on arm machines.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2023-11-05 22:09:48 -0500'>2023-11-05</span></td><td><a href='/guix/commit/gnu/packages/curl.scm?id=d70f2b788e56545f93dc24238d2617e20fde7460'>gnu: curl: Run tests in parallel.</a><span class='msg-avail'>...</span></td><td>John Kehayias</td></tr>
<tr><td><span title='2023-11-05 22:09:47 -0500'>2023-11-05</span></td><td><a href='/guix/commit/gnu/packages/curl.scm?id=00442f15d46cd9d5d02499827946d23426aad0ba'>gnu: curl: Ungraft.</a><span class='msg-avail'>...</span></td><td>John Kehayias</td></tr>
<tr><td><span title='2023-10-25 11:59:58 +0200'>2023-10-25</span></td><td><a href='/guix/commit/gnu/packages/curl.scm?id=a0060934a5d7c0bfe81652b31fded150a0ed8e3d'>gnu: curlie: Update to 1.7.2.</a><span class='msg-avail'>...</span></td><td>Imran Iqbal</td></tr>
<tr><td><span title='2023-10-11 23:12:15 -0400'>2023-10-11</span></td><td><a href='/guix/commit/gnu/packages/curl.scm?id=f62737bfee086040fa3ecb26968f6d16f84147aa'>gnu: curl/fixed: Fix version.</a><span class='msg-avail'>...</span></td><td>John Kehayias</td></tr>
<tr><td><span title='2023-10-11 22:08:14 -0400'>2023-10-11</span></td><td><a href='/guix/commit/gnu/packages/curl.scm?id=d6d706a58b8159748d3a46fa97cae18850487c8a'>gnu: curl/fixed: Update to 8.4.0 [security fixes].</a><span class='msg-avail'>...</span></td><td>John Kehayias</td></tr>
<tr><td><span title='2023-10-10 18:45:44 +0200'>2023-10-10</span></td><td><a href='/guix/commit/gnu/packages/curl.scm?id=fc6c910f797ea232f6019c4ca5dbd105f78928df'>gnu: curl/fixed: Skip failing test on the Hurd.</a><span class='msg-avail'>...</span></td><td>Janneke Nieuwenhuizen</td></tr>
<tr><td><span title='2023-10-05 09:41:31 +0200'>2023-10-05</span></td><td><a href='/guix/commit/gnu/packages/curl.scm?id=759b55712e62e913f5ab650651108649775cead2'>gnu: curl: Update to 8.3.0.</a><span class='msg-avail'>...</span></td><td>Liliana Marie Prikler</td></tr>