2 files changed, 34 insertions, 7 deletions

diff --git a/hipis/packages/source/hwp/hwp.scm b/hipis/packages/source/hwp/hwp.scm
index 6770b5b..c497538 100644
--- a/hipis/packages/source/hwp/hwp.scm
+++ b/hipis/packages/source/hwp/hwp.scm
@@ -1,13 +1,20 @@
 (define-module (hwp)
   #:use-module (hwp site)
+  #:use-module (hwp download)
   #:use-module (hwp ui)
   #:use-module (ice-9 match)
-  #:export (hwp-run))
+  #:export (hwp-build
+            hwp-run))
+
+
+(define (hwp-build url dest)
+  (define website-source-dir (download-curl url "/tmp"))
+  (hipis-site website-source-dir dest))
 
 (define (hwp-run args)
- (match args
-   ((cmd)
-    (display "To create site: hwp-build [input-path] [output-path]")
-    (newline))
-   ((cmd in out)
-    (hipis-site in out))))
+  (match args
+    ((cmd)
+     (display "To create site: hwp-build [input-path] [output-path]")
+     (newline))
+    ((cmd in out)
+     (hipis-site in out))))
diff --git a/hipis/packages/source/hwp/hwp/download.scm b/hipis/packages/source/hwp/hwp/download.scm
new file mode 100644
index 0000000..be4f292
--- /dev/null
+++ b/hipis/packages/source/hwp/hwp/download.scm
@@ -0,0 +1,20 @@
+(define-module (hwp download)
+  #:export (download-curl))
+
+
+(define (download-curl url dest)
+  (define file-name (basename url))
+  (define compressed-file (string-append "/tmp/" file-name))
+
+  (when (not (= (system* "curl" url "-o" compressed-file) 0))
+    (error (string-append "Error: cannot download file: " url)))
+
+  (cond
+   ((or (string-suffix? "tar.gz" file-name)
+        (string-suffix? "tar.xz" file-name))
+    (if (not (= (system* "tar" "-C" dest "-x" "-f" compressed-file) 0))
+      (error (format #f "Error: when trying to decompress file: ~a in destination: ~a"
+                     compressed-file dest))
+      (string-append dest "/" (string-drop-right file-name 7))))
+   (#t (error (string-append "Error: file with unspuported format: " dest)))))
+