wigust: Add python-hosts.origin/python-hostspython-hosts

* wigust/packages/python.scm (python-hosts): New variable.

1 files changed, 57 insertions, 0 deletions

diff --git a/wigust/packages/python.scm b/wigust/packages/python.scm
index 6c63890..a23fdb6 100644
--- a/wigust/packages/python.scm
+++ b/wigust/packages/python.scm
@@ -249,3 +249,60 @@ Integration")
     (description "A Supercharged Git/Shell Autocompleter with GitHub Integration.")
     (license license:gpl3+)))
 
+(define-public python-hosts
+  (let ((commit "b42c9ea692ab36a96fb0f2804a7440eca406e36c")
+        (revision "1"))
+    (package
+      (name "python-hosts")
+      (version "0.1.0")
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://github.com/StevenBlack/hosts.git")
+                      (commit commit)))
+                (file-name (string-append name "-" version "-checkout"))
+                (sha256
+                 (base32
+                  "04hanv6cwp23wvaz1hd1niz2wk2vrr3z0nsa9wiqp5fpxch5rmiz"))))
+      (build-system trivial-build-system)
+      (inputs `(("python" ,python)))
+      (arguments
+       `(#:modules ((guix build utils))
+         #:builder
+         (begin
+           (use-modules (guix build utils))
+           (let ((bin         (string-append %output "/bin"))
+                 (share-hosts (string-append %output "/share/hosts")))
+             (copy-recursively (assoc-ref %build-inputs "source") ".")
+             (let ((python-files (find-files "." "\\.py"))
+                   (wrapper      (string-append bin "/updateHostsFile")))
+               ;; Patch Python shebangs
+               (substitute* python-files
+                 (("/usr/bin/env python")
+                  (string-append (assoc-ref %build-inputs "python")
+                                 "/bin/python3"))
+                 (("/etc/hosts") "/tmp/hosts"))
+               ;; Install
+               (copy-recursively "data" (string-append share-hosts "/data"))
+               (for-each (lambda (file) (install-file file share-hosts))
+                         python-files)
+               ;; Wrapper
+               (mkdir-p bin)
+               (with-output-to-file wrapper
+                 (lambda ()
+                   (display
+                    (string-join `("#!/bin/sh"
+                                   ,(string-join `("cd" ,share-hosts))
+                                   ,(string-join '("exec"
+                                                   "-a" "updateHostsFile"
+                                                   "./updateHostsFile.py"
+                                                   "\"$@\"")))
+                                 "\n"))))
+               (for-each (lambda (file) (chmod file #o555))
+                         (append (list wrapper)
+                                 (find-files share-hosts "\\.py")))))
+           #t)))
+      (home-page "https://github.com/StevenBlack/hosts.git")
+      (synopsis "Extending @code{hosts} file from several sources")
+      (description "Extending @code{hosts} file from several sources")
+      (license license:expat))))