gnu: guile-studio: Update to 0.0.2-1.d24d59a.

* gnu/packages/guile-xyz.scm (guile-studio): Update to 0.0.2-1.d24d59a.
2024-12-24 21:38:07 -05:00 · 2020-05-16 14:18:02 +02:00 · 2020-05-16 14:18:02 +02:00 · c660779722
commit c660779722
parent 8ec6b9fe0c
1 changed files with 60 additions and 58 deletions
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@ -2375,67 +2375,69 @@ (define-public guile3.0-picture-language
                      guile-picture-language))
 (define-public guile-studio
-  (package
+  (let ((commit "d24d59a68e3f1fa9477e3430fc48a2efe97b805d")
-    (name "guile-studio")
+        (revision "1"))
-    (version "0.0.2")
+    (package
-    (source (origin
+      (name "guile-studio")
-              (method git-fetch)
+      (version (git-version "0.0.2" revision commit))
-              (uri (git-reference
+      (source (origin
-                    (url "https://git.elephly.net/software/guile-studio.git")
+                (method git-fetch)
-                    (commit version)))
+                (uri (git-reference
-              (file-name (git-file-name name version))
+                      (url "https://git.elephly.net/software/guile-studio.git")
-              (sha256
+                      (commit commit)))
-               (base32
+                (file-name (git-file-name name version))
-                "10ls4ra148hd9ra7sin4kh9vv0am5pwk48p7dsjhrlg2l1hsh4hi"))))
+                (sha256
-    (build-system gnu-build-system)
+                 (base32
-    (arguments
+                  "0kqi0q8a7si65n21b7gn8vbninwcg0fqy5hmvy3l1bi6iync20zr"))))
-     `(#:modules
+      (build-system gnu-build-system)
-       ((ice-9 match)
+      (arguments
-        (srfi srfi-1)
+       `(#:modules
-        ,@%gnu-build-system-modules)
+         ((ice-9 match)
-       #:tests? #f                    ; there are none
+          (srfi srfi-1)
-       #:make-flags
+          ,@%gnu-build-system-modules)
-       (list (string-append "ICONS_DIR="
+         #:tests? #f                    ; there are none
-                            (assoc-ref %build-inputs "adwaita-icon-theme")
+         #:make-flags
-                            "/share/icons/Adwaita/")
+         (list (string-append "ICONS_DIR="
-             (string-append "PICT_DIR="
+                              (assoc-ref %build-inputs "adwaita-icon-theme")
-                            (assoc-ref %build-inputs "guile-picture-language"))
+                              "/share/icons/Adwaita/")
-             (string-append "EMACS_DIR="
+               (string-append "PICT_DIR="
-                            (assoc-ref %build-inputs "emacs"))
+                              (assoc-ref %build-inputs "guile-picture-language"))
-             (string-append "GUILE_DIR="
+               (string-append "EMACS_DIR="
-                            (assoc-ref %build-inputs "guile"))
+                              (assoc-ref %build-inputs "emacs"))
-             (string-join (cons "INPUTS="
+               (string-append "GUILE_DIR="
-                                (filter-map
+                              (assoc-ref %build-inputs "guile"))
-                                 (lambda (input)
+               (string-join (cons "INPUTS="
-                                   (match input
+                                  (filter-map
-                                     ((label . pkg)
+                                   (lambda (input)
-                                      (and (string-prefix? "emacs" label) pkg))))
+                                     (match input
-                                 %build-inputs)))
+                                       ((label . pkg)
-             (string-append "PREFIX=" (assoc-ref %outputs "out")))
+                                        (and (string-prefix? "emacs" label) pkg))))
-       #:phases
+                                   %build-inputs)))
-       (modify-phases %standard-phases
+               (string-append "PREFIX=" (assoc-ref %outputs "out")))
-         (delete 'configure)
+         #:phases
-         (delete 'install))))
+         (modify-phases %standard-phases
-    (inputs
+           (delete 'configure)
-     `(("guile" ,guile-3.0)
+           (delete 'install))))
-       ("guile-picture-language" ,guile-picture-language)
+      (inputs
-       ("emacs" ,emacs)
+       `(("guile" ,guile-3.0)
-       ("emacs-geiser" ,emacs-geiser)
+         ("guile-picture-language" ,guile-picture-language)
-       ("emacs-company" ,emacs-company)
+         ("emacs" ,emacs)
-       ("emacs-flycheck" ,emacs-flycheck)
+         ("emacs-geiser" ,emacs-geiser)
-       ("emacs-smart-mode-line" ,emacs-smart-mode-line)
+         ("emacs-company" ,emacs-company)
-       ("emacs-paren-face" ,emacs-paren-face)
+         ("emacs-flycheck" ,emacs-flycheck)
-       ("adwaita-icon-theme" ,adwaita-icon-theme)))
+         ("emacs-smart-mode-line" ,emacs-smart-mode-line)
-    (native-inputs
+         ("emacs-paren-face" ,emacs-paren-face)
-     `(("texinfo" ,texinfo)))
+         ("adwaita-icon-theme" ,adwaita-icon-theme)))
-    (home-page "https://gnu.org/software/guile")
+      (native-inputs
-    (synopsis "IDE for Guile")
+       `(("texinfo" ,texinfo)))
-    (description
+      (home-page "https://gnu.org/software/guile")
-     "This is Emacs with a few settings that make working with Guile easier
+      (synopsis "IDE for Guile")
      (description
       "This is Emacs with a few settings that make working with Guile easier
 for people new to Emacs.  Features include: CUA mode, Geiser, tool bar icons
 to evaluate Guile buffers, support for Guile's very own picture language, code
 completion, a simple mode line, etc.")
-    (license license:gpl3+)))
+      (license license:gpl3+))))
 (define-public guile-stis-parser
  (let ((commit "6e85d37ffc333b722f4413a6c648263701eb75bd")