diff options
| -rw-r--r-- | README.org | 6 | ||||
| -rw-r--r-- | guix/rekado/guile-studio.scm | 14 |
2 files changed, 12 insertions, 8 deletions
@@ -11,10 +11,8 @@ to create yet another “prelude” or starter pack for general use of Emacs. Instead the only goal is to hide Emacs quirks and provide a pleasant Guile + Geiser experience out of the box. -To install it try this: +To build Guile Studio from source with Guix and run it try this: git clone https://git.elephly.net/software/guile-studio.git cd guile-studio - guix package -L guix -i guile-studio - -Run “guile-studio” to start it. + $(guix build -L guix guile-studio-devel)/bin/guile-studio diff --git a/guix/rekado/guile-studio.scm b/guix/rekado/guile-studio.scm index 8e555bf..ca14a1e 100644 --- a/guix/rekado/guile-studio.scm +++ b/guix/rekado/guile-studio.scm @@ -10,17 +10,22 @@ (gnu packages emacs-xyz) (gnu packages gnome)) + +;;; XXX big bad hack... +(system* "tar" "-cf" "/tmp/guile-studio.tar" + "--exclude-vcs" "--exclude" "guix" + "-C" "/home/rekado/dev/" "guile-studio") + (define-public guile-studio (package - (name "guile-studio") + (name "guile-studio-devel") (version "0") - (source (local-file "../../guile-studio-configure.scm")) + (source "/tmp/guile-studio.tar") (build-system gnu-build-system) (arguments `(#:tests? #f ; there are none #:phases (modify-phases %standard-phases - (delete 'unpack) (delete 'configure) (replace 'build (lambda* (#:key source inputs outputs #:allow-other-keys) @@ -29,7 +34,8 @@ (share (string-append out "/share/"))) (mkdir-p share) (mkdir-p bin) - (apply invoke "guile" "-s" source + (apply invoke "guile" "-s" + "guile-studio-configure.scm" out (assoc-ref inputs "emacs") (assoc-ref inputs "guile-picture-language") |