Move emacs-perl-live to emacs.scm.origin/wip-perl-livewip-perl-live

2 files changed, 44 insertions, 81 deletions

diff --git a/wigust/packages/emacs.scm b/wigust/packages/emacs.scm
index efcccd9..6aa51ef 100644
--- a/wigust/packages/emacs.scm
+++ b/wigust/packages/emacs.scm
@@ -46,6 +46,7 @@
   #:use-module (gnu packages haskell)
   #:use-module (gnu packages tex)
   #:use-module (gnu packages texinfo)
+  #:use-module (gnu packages libevent)
   #:use-module (gnu packages tcl)
   #:use-module (gnu packages tls)
   #:use-module (gnu packages pkg-config)
@@ -3991,3 +3992,46 @@ which is an extension for Google Chrome browser that allows you to edit text
 areas of the browser in Emacs. It's similar to Edit with Emacs, but has some
 advantages as below with the help of websocket.")
       (license license:gpl2+))))
+
+(define-public emacs-perl-live
+  (package
+    (name "emacs-perl-live")
+    (version "1")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "https://github.com/vividsnow/perl-live/archive/v"
+                           version ".tar.gz"))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "0i1ila542bgfpb5r1w62w5bnhh97mpp9mwpjbfp3kr8qn1ymvqq4"))))
+    (build-system emacs-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-before 'install 'install-perl-live-pl
+           ;; This build phase installs ‘perl-live.pl’ file
+           ;; and patches a location to this in ‘perl-live.el’.
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((data (string-append (assoc-ref outputs "out") "/share/"
+                                        ,name "-" ,version)))
+               (install-file "perl-live.pl" data)
+               (let ((file "perl-live.el"))
+                 (chmod file #o644)
+                 (emacs-substitute-sexps file
+                   ("(defcustom perl-live-bin"
+                    (which "perl"))
+                   ("(defcustom perl-live-script"
+                    (string-append data "/perl-live.pl"))))))))))
+    (native-inputs
+     `(("perl" ,perl)))
+    (propagated-inputs
+     `(("perl-anyevent" ,perl-anyevent)
+       ("perl-package-stash-xs" ,perl-package-stash-xs)
+       ("perl-ev" ,perl-ev) ;optional
+       ("perl-padwalker" ,perl-padwalker)))
+    (home-page "https://github.com/vividsnow/perl-live/")
+    (synopsis "Perl live coding")
+    (description "This package provides a Perl script for live coding.")
+    (license license:gpl3+)))
diff --git a/wigust/packages/perl.scm b/wigust/packages/perl.scm
deleted file mode 100644
index 2c54424..0000000
--- a/wigust/packages/perl.scm
+++ /dev/null
@@ -1,81 +0,0 @@
-;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2018 Oleg Pykhalov <go.wigust@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 License as published by
-;;; the Free Software Foundation; either version 3 of the License, 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 License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
-
-(define-module (wigust packages perl)
-  #:use-module (srfi srfi-1)
-  #:use-module ((guix licenses) #:prefix license:)
-  #:use-module (gnu packages)
-  #:use-module (guix packages)
-  #:use-module (guix download)
-  #:use-module (guix build-system gnu)
-  #:use-module (guix build-system perl)
-  #:use-module (guix utils) ;substitute-keyword-arguments for perl-5.26.2
-  #:use-module (guix git-download)
-  #:use-module (gnu packages base)
-  #:use-module (gnu packages compression)
-  #:use-module (gnu packages freedesktop)
-  #:use-module (gnu packages libevent)
-  #:use-module (gnu packages perl)
-  #:use-module (gnu packages perl-check)
-  #:use-module (gnu packages perl-web)
-  #:use-module (gnu packages pkg-config)
-  #:use-module (guix build-system emacs)
-  #:use-module (guix build emacs-utils))
-
-(define-public emacs-perl-live
-  (package
-    (name "emacs-perl-live")
-    (version "1")
-    (source
-     (origin
-       (method url-fetch)
-       (uri (string-append "https://github.com/vividsnow/perl-live/archive/v"
-                           version ".tar.gz"))
-       (file-name (string-append name "-" version ".tar.gz"))
-       (sha256
-        (base32
-         "0i1ila542bgfpb5r1w62w5bnhh97mpp9mwpjbfp3kr8qn1ymvqq4"))))
-    (build-system emacs-build-system)
-    (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-before 'install 'install-perl-live-pl
-           ;; This build phase installs ‘perl-live.pl’ file
-           ;; and patches a location to this in ‘perl-live.el’.
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((data (string-append (assoc-ref outputs "out") "/share/"
-                                        ,name "-" ,version)))
-               (install-file "perl-live.pl" data)
-               (let ((file "perl-live.el"))
-                 (chmod file #o644)
-                 (emacs-substitute-sexps file
-                   ("(defcustom perl-live-bin"
-                    (which "perl"))
-                   ("(defcustom perl-live-script"
-                    (string-append data "/perl-live.pl"))))))))))
-    (native-inputs
-     `(("perl" ,perl)))
-    (propagated-inputs
-     `(("perl-anyevent" ,perl-anyevent)
-       ("perl-package-stash-xs" ,perl-package-stash-xs)
-       ("perl-ev" ,perl-ev) ;optional
-       ("perl-padwalker" ,perl-padwalker)))
-    (home-page "https://github.com/vividsnow/perl-live/")
-    (synopsis "Perl live coding")
-    (description "This package provides a Perl script for live coding.")
-    (license license:gpl3+)))