Re: How to install a package in guile

[Feng Shu]

Alex Kost <address@hidden> writes:

> Feng Shu (2017-07-26 20:44 +0800) wrote:
>
>> address@hidden (Ludovic Courtès) writes:
> [...]
>>> The rest (setting up the symlink) is a little less convenient though.
>>> See (guix scripts package) or the equivalent Emacs-Guix code for how
>>> this works.
>>
>> (build-and-use-profile store "~/.guix-profile" $2)
>>
>> How can I get the "store"?
>
> For example, like this:
>
> (with-store store
>   (build-and-use-profile ...))

guix's code seem to hard for me, I use a emacs command to solve my
problem:

-----------------

  (defvar guix-export-directory "~/myguix/")

  (defun guix-export-package ()
    (interactive)
    (let* ((directory (file-name-as-directory guix-export-directory))
           (current-module (guix-guile-current-module))
           (define-public-string
             (save-excursion
               (end-of-defun)
               (let ((end (point)))
                 (beginning-of-defun)
                 (buffer-substring (point) end))))
           (package-name
            (progn (string-match "\\(define-public +\\)\\([a-z-]+\\)\n+"
                                 define-public-string)
                   (match-string 2 define-public-string)))
           (define-module-string
             (replace-regexp-in-string
              " *(define-module.*\n"
              (format (concat "(define-module (%s)\n"
                              "  #:use-module %s\n")
                      package-name current-module)
              (save-excursion
                (goto-char (point-min))
                (search-forward "(define-module")
                (end-of-defun)
                (let ((end (point)))
                  (beginning-of-defun)
                  (buffer-substring (point) end)))))
           (command (format "guix package --load-path='%s' -i %s "
                            directory package-name)))
      (unless (file-directory-p directory)
        (make-directory directory t))
      (with-temp-buffer
        (insert define-module-string)
        (insert "\n")
        (insert define-public-string)
        (write-file (concat directory package-name ".scm"))
        (kill-new command)
        (message command)))

------------



--