4 files changed, 70 insertions, 0 deletions

diff --git a/hipis/packages/source/hwp/hwp-build b/hipis/packages/source/hwp/hwp-build
new file mode 100644
index 0000000..cf1e97e
--- /dev/null
+++ b/hipis/packages/source/hwp/hwp-build
@@ -0,0 +1,8 @@
+#!/usr/bin/guile --no-auto-compile
+-*- scheme -*-
+!#
+
+(use-modules (hwp))
+
+(hwp-run (command-line))
+
diff --git a/hipis/packages/source/hwp/hwp.scm b/hipis/packages/source/hwp/hwp.scm
new file mode 100644
index 0000000..6770b5b
--- /dev/null
+++ b/hipis/packages/source/hwp/hwp.scm
@@ -0,0 +1,13 @@
+(define-module (hwp)
+  #:use-module (hwp site)
+  #:use-module (hwp ui)
+  #:use-module (ice-9 match)
+  #:export (hwp-run))
+
+(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))))
diff --git a/hipis/packages/source/hwp/hwp/site.scm b/hipis/packages/source/hwp/hwp/site.scm
new file mode 100644
index 0000000..7fdb2f0
--- /dev/null
+++ b/hipis/packages/source/hwp/hwp/site.scm
@@ -0,0 +1,32 @@
+(define-module (hwp site)
+  #:use-module (haunt asset)
+  #:use-module (haunt builder blog)
+  #:use-module (haunt builder atom)
+  #:use-module (haunt builder assets)
+  #:use-module (haunt reader commonmark)
+  #:use-module (haunt site)
+
+  #:use-module (ice-9 match)
+
+  #:export (hipis-site))
+
+
+(define (hipis-site site-directory build-directory)
+  (build-site
+   (site #:title "Built with Guile"
+         #:domain "jdlugosz.com"
+         #:default-metadata
+         '((author . "Jakub Długosz")
+           (email  . "jdlugosz963@gmail.com"))
+         #:readers (list commonmark-reader)
+         #:builders (list (blog)
+                          (atom-feed)
+                          (atom-feeds-by-tag)
+                          (static-directory (string-append site-directory
+                                                           "/assets/images")
+                                            "/assets/images"))
+         #:build-directory build-directory
+         #:posts-directory (string-append site-directory
+                                          "/posts"))))
+
+
diff --git a/hipis/packages/source/hwp/hwp/ui.scm b/hipis/packages/source/hwp/hwp/ui.scm
new file mode 100644
index 0000000..ec11a31
--- /dev/null
+++ b/hipis/packages/source/hwp/hwp/ui.scm
@@ -0,0 +1,17 @@
+(define-module (hwp ui)
+  #:use-module (srfi srfi-9))
+
+(define-record-type <theme-configuration>
+  (make-theme-configuration primary-color
+                            secondary-color)
+  theme-configuration?
+  (primary-color theme-configuration-primary-color)
+  (secondary-color theme-configuration-secondary-color))
+
+
+(define* (theme-configuration #:key
+                              (primary-color "#000")
+                              (secondary-color "#111"))
+  (make-theme-configuration primary-color
+                            secondary-color))
+