7 files changed, 240 insertions, 0 deletions

diff --git a/hipis/hipis.scm b/hipis.scm
index 3660782..6cd5654 100755
--- a/hipis/hipis.scm
+++ b/hipis.scm
@@ -156,6 +156,10 @@
                            (ssl-certificate-key (letsencrypt-key "jdlugosz.com"))
                            (root "/srv/http/jdlugosz.com"))))))
 
+              (service hwp-service-type
+                       (hwp-site-configuration
+                        (name "hwp-base")))
+
               (modify-services %base-services
                                (delete static-networking-service-type))))
 
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))
+
diff --git a/hipis/packages/web.scm b/hipis/packages/web.scm
new file mode 100644
index 0000000..e4f4f6c
--- /dev/null
+++ b/hipis/packages/web.scm
@@ -0,0 +1,90 @@
+(define-module (hipis packages web)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (guix profiles)
+  #:use-module (guix gexp)
+  #:use-module (guix build-system copy)
+  #:use-module (guix build-system guile)
+
+  #:use-module (gnu packages)
+  #:use-module (guix download)
+  #:use-module (gnu packages python-xyz)
+  #:use-module (gnu packages python-web)
+  #:use-module (gnu packages python-crypto)
+  #:use-module (gnu packages python-check)
+  #:use-module (gnu packages check)
+  #:use-module (gnu packages guile-xyz)
+  #:use-module (gnu packages guile)
+  #:use-module (guix git-download)
+  ) ;; (guix utils)
+
+(define-public hipis-web-site
+  (package
+    (name "emacs-hipis-web-site")
+    (version "1.0")
+    (synopsis "Build scripts to *.jdlugosz.com pages.")
+    (description "Build scripts to *.jdlugosz.com pages.")
+    (home-page "https://git.jdlugosz.com/hipis/hipis-system/")
+    (source
+     (local-file "/home/jakub/Projects/hipis/hipis/packages/source/hwp" #:recursive? #t))
+    (build-system guile-build-system)
+
+    (arguments
+     `(#:phases (modify-phases %standard-phases
+                               (add-before 'install 'move-files
+                                          (lambda* (#:key inputs outputs #:allow-other-keys)
+                                            (let* ((out  (assoc-ref outputs "out"))
+                                                   (bin  (string-append out "/bin/"))
+                                                   (haunt (assoc-ref inputs "haunt"))
+                                                   (hwp "hwp-build"))
+                                              (mkdir-p bin)
+                                              (chmod hwp #o555)
+                                              (copy-recursively hwp (string-append bin hwp))
+                                              (delete-file-recursively hwp))))
+
+                               (add-before 'install 'wrap-hipis-build-web-page
+                                          (lambda* (#:key inputs outputs #:allow-other-keys)
+                                            (let* ((out  (assoc-ref outputs "out"))
+                                                   (bin  (string-append out "/bin"))
+                                                   (deps (list (assoc-ref inputs "haunt")
+                                                               (assoc-ref inputs "guile-commonmark")
+                                                               (assoc-ref inputs "guile-reader")
+                                                               out)))
+                                              (wrap-program (string-append bin "/hwp-build")
+                                                            #:sh "/bin/sh"
+                                                            `("GUILE_LOAD_PATH" ":" prefix
+                                                              (,@(map (lambda (dep)
+                                                                        (string-append dep
+                                                                                       "/share/guile/site/3.0/"))
+                                                                      deps)))
+                                                            `("GUILE_LOAD_COMPILED_PATH" ":" prefix
+                                                              (,@(map (lambda (dep)
+                                                                        (string-append dep
+                                                                                       "/lib/guile/3.0/site-ccache"))
+                                                                      deps))))))))))
+
+    ;; (native-inputs (list haunt))
+    (inputs (list guile-3.0
+                  guile-reader
+                  guile-commonmark))
+    (propagated-inputs (list haunt))
+    (license license:gpl3+)))
+
+
+;; (use-modules (guix store)
+;;           (guix derivations))
+
+;; (define (test-hipis-web-site-pacakge)
+;;   (let* ((con (open-connection))
+;;       (drv (run-with-store con  (package->derivation hipis-web-site)))
+;;       (drv-file-name (derivation-file-name drv))
+;;       (drv-output-path (derivation->output-path drv)))
+;;     (build-things con (list drv-file-name))
+;;     drv-output-path))
+
+;; (test-hipis-web-site-pacakge)
+
+
+(packages->manifest
+ (list hipis-web-site
+       guile-3.0-latest))
diff --git a/hipis/services/web.scm b/hipis/services/web.scm
new file mode 100644
index 0000000..52cc6db
--- /dev/null
+++ b/hipis/services/web.scm
@@ -0,0 +1,76 @@
+(define-module (hipis services web)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (guix profiles)
+  #:use-module (guix gexp)
+  #:use-module (guix build-system copy)
+  #:use-module (guix build-system guile)
+  #:use-module (guix records)
+
+  #:use-module (gnu packages)
+  #:use-module (guix download)
+  #:use-module (gnu packages python-xyz)
+  #:use-module (gnu packages python-web)
+  #:use-module (gnu packages python-crypto)
+  #:use-module (gnu packages python-check)
+  #:use-module (gnu packages check)
+  #:use-module (gnu packages guile-xyz)
+  #:use-module (gnu packages guile)
+  #:use-module (guix git-download)
+  #:use-module (gnu services)
+  #:use-module (gnu services guix)
+  #:use-module (hipis packages web)
+
+  #:export (hwp-service-type
+             hwp-theme-configuration
+             hwp-site-configuration))
+
+
+(define-record-type* <hwp-theme-configuration>
+  hwp-theme-configuration make-hwp-theme-configuration
+  hwp-theme-configuration-configuration?
+  (primary-color          hwp-theme-configuration-primary-color
+                          (default "#000")))
+
+(define-record-type* <hwp-site-configuration>
+  hwp-site-configuration make-hwp-theme-configuration
+  hwp-site-configuration-configuration?
+  (name          hwp-site-configuration-name)
+  (theme          hwp-site-configuration-theme
+                  (default #nil)))
+
+
+(define (make-hwp-start-script config)
+  (match-record config <hwp-site-configuration>
+                (name)
+                (program-file (string-append "hwp-" name)
+                 (with-extensions (cons
+                                   hipis-web-site
+                                   (map cadr
+                                        (append (package-inputs hipis-web-site)
+                                                (package-propagated-inputs hipis-web-site))))
+                                  #~(begin
+                                      (use-modules (hwp))
+                                      (hwp-run '(_ "/tmp/in" "/tmp/out")))))))
+
+(define (hwp-activation config)
+  (match-record config <hwp-site-configuration>
+                (name theme)
+                (let* ((hwp-directory "/var/lib/hwp")
+                       (hwp-site-script (string-append hwp-directory "/hwp-" name))
+                       (message (string-append "Script for building websites is generated in: "
+                                               hwp-site-script)))
+                  (with-imported-modules '((guix build utils))
+                                         #~(begin
+                                             (use-modules (guix build utils))
+                                             (mkdir-p #$hwp-directory)
+                                             (copy-file #$(make-hwp-start-script config) #$hwp-site-script)
+                                             (display #$message))))))
+
+(define hwp-service-type
+  (service-type (name 'hwp)
+                (extensions
+                 (list (service-extension activation-service-type
+                                          hwp-activation)))
+                (description
+                 "hipis-web-page: Automatically build guile haunt pages.")))