src/xyz/euandreh/docs.scm: Remove "rfcs" package

 It became a command under ~/.usr/bin/.

1 files changed, 1 insertions, 40 deletions

diff --git a/src/xyz/euandreh/docs.scm b/src/xyz/euandreh/docs.scm
index 17b446d..32d2668 100644
--- a/src/xyz/euandreh/docs.scm
+++ b/src/xyz/euandreh/docs.scm
@@ -36,43 +36,6 @@
 documenting the specification.")
     (license gpl2+))) ;; FIXME
 
-(define-public rfcs
-  (package
-    (name "rfcs")
-    (version "singleton")
-    (source (origin
-              (method url-fetch)
-              (uri "https://www.rfc-editor.org/in-notes/tar/RFC-all.tar.gz")
-              (sha256
-               (base32
-                "0lhmvf1qsryf19pl9pk9k8431crq70xz5hcrlifs9srbr3ig3qkc"))))
-    (build-system trivial-build-system)
-    (native-inputs (list tar gzip))
-    (arguments
-     `(#:modules ((guix build utils))
-       #:builder
-       (begin
-         (use-modules (guix build utils)
-                      (ice-9 string-fun))
-         (let* ((source (assoc-ref %build-inputs "source"))
-                (tar (string-append (assoc-ref %build-inputs "tar") "/bin/tar"))
-                (out (assoc-ref %outputs "out"))
-                (man (string-append out "/share/man/man7rfc/")))
-           (setenv "PATH" (string-append (assoc-ref %build-inputs "gzip") "/bin"))
-           (invoke tar "-xvf" source)
-           (mkdir-p man)
-           (define (rename-extension s)
-             (string-replace-substring s ".txt" ".7rfc"))
-           (for-each (lambda (f)
-                       (format #t "Copying file: ~a~%" f)
-                       (copy-file f (string-append man (rename-extension f))))
-                     (find-files "." "^rfc[0-9]+.txt$"))))))
-    (home-page "https://www.rfc-editor.org/")
-    (synopsis "The RFC technical and organizational documents about the Internet")
-    (description
-     "This package provies reference RFC (Request For Comments) documents.")
-    (license gpl2+))) ;; FIXME
-
 (define-public perl-commonmark
   (package
     (name "perl-commonmark")
@@ -102,6 +65,4 @@ documenting the specification.")
 
 (list
  posix-man-pages
- perl-commonmark
- #;
- rfcs)
+ perl-commonmark)