Subject: bug#31234: closed (Re: Status: [PATCH] gnu: Add src.)

From: [email-masked] (GNU bug Tracking System)
Date: Thu, 26 Apr 2018 01:30:03 +0000

Your bug report

#31234: [PATCH] gnu: Add src.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
31234: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=31234
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: Status: [PATCH] gnu: Add src.
From: [email-masked] (宋文武)
To: bug#31234 <[email-masked]>
Date: Thu, 26 Apr 2018 09:29:29 +0800
List-Id: <debbugs-submit.debbugs.gnu.org>

Done in commit 0ed7498a460af9b0175d3f6919858d0d40d5ccc1.

Subject: [PATCH] gnu: Add src.
From: 宋文武 <[email-masked]>
To: [email-masked]
Cc: 宋文武 <[email-masked]>
Date: Sun, 22 Apr 2018 11:09:29 +0800
List-Id: <debbugs-submit.debbugs.gnu.org>

* gnu/packages/version-control.scm (src): New variable.
---
 gnu/packages/version-control.scm | 50 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)

diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index 71ede4f54..b82abaf9e 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -18,6 +18,7 @@
 ;;; Copyright © 2017, 2018 Marius Bakke <[email-masked]>
 ;;; Copyright © 2017 Stefan Reichör <[email-masked]>
 ;;; Copyright © 2017 Oleg Pykhalov <[email-masked]>
+;;; Copyright © 2018 Sou Bunnbu <[email-masked]>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -1912,3 +1913,52 @@ repository is the centre, directories are branches and files are leaves.
 Contributors to the source code appear and disappear as they contribute to
 specific files and directories.")
     (license license:gpl3+)))
+
+(define-public src
+  (package
+    (name "src")
+    (version "1.18")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "http://www.catb.org/~esr/src/src-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0n0skhvya8w2az45h2gsafxy8m2mvqas64nrgxifcmrzfv0rf26c"))))
+    (build-system gnu-build-system)
+    (arguments
+     '(#:make-flags
+       (list (string-append "prefix=" (assoc-ref %outputs "out")))
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'configure)            ; no 'configure' script
+         (add-after 'install 'wrap-program
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let* ((out  (assoc-ref outputs "out"))
+                    (prog (string-append out "/bin/src"))
+                    (rcs  (assoc-ref inputs "rcs")))
+               (wrap-program prog
+                 `("PATH" ":" prefix (,(string-append rcs "/bin"))))
+               #t)))
+         (replace 'check
+           (lambda _
+             (setenv "HOME" (getenv "TMPDIR"))
+             (invoke "git" "config" "--global" "user.name" "guix")
+             (invoke "git" "config" "--global" "user.email" "guix")
+             (invoke "./srctest"))))))
+    (native-inputs
+     ;; For testing.
+     `(("git" ,git)
+       ("perl" ,perl)))
+    (inputs
+     `(("python" ,python-wrapper)
+       ("rcs" ,rcs)))
+    (synopsis "Simple revision control")
+    (home-page "http://www.catb.org/~esr/src/")
+    (description
+     "SRC (or src) is simple revision control, a version-control system for
+single-file projects by solo developers and authors.  It modernizes the
+venerable RCS, hence the anagrammatic acronym.  The design is tuned for use
+cases like all those little scripts in your @file{~/bin} directory, or a
+directory full of HOWTOs.")
+    (license license:bsd-2)))
-- 
2.13.3