diff --git a/.env.example b/.env.example
index b8a19a4..5166f7b 100644
--- a/.env.example
+++ b/.env.example
@@ -1,5 +1,5 @@
-HP_ENV=
-HP_URL=
+WEBSITE_ENV=
+WEBSITE_URL=
MICROCMS_SERVICE_DOMAIN=
MICROCMS_API_KEY=
CLOUDFLARE_ZONE_ID=
diff --git a/Makefile b/Makefile
index ed3c962..ef4ad66 100644
--- a/Makefile
+++ b/Makefile
@@ -51,7 +51,7 @@ lem: ## Open Lem with TailwindCSS server
kill $$WATCH_PID
docker-build: ## Build docker image
- docker build -t hp .
+ docker build -t website .
docker-run: ## Run docker container
- docker run -p 3000:3000 hp
\ No newline at end of file
+ docker run -p 3000:3000 website
\ No newline at end of file
diff --git a/README.md b/README.md
index e245afd..1fd62cb 100644
--- a/README.md
+++ b/README.md
@@ -1 +1 @@
-# hp
+# website
diff --git a/entrypoint.sh b/entrypoint.sh
index 7f0ded1..2c13609 100644
--- a/entrypoint.sh
+++ b/entrypoint.sh
@@ -2,7 +2,7 @@
set -e
echo "Starting server..."
-.qlot/bin/clackup --system hp --server woo --address 0.0.0.0 --port 3000 src/app.lisp &
+.qlot/bin/clackup --system website --server woo --address 0.0.0.0 --port 3000 src/app.lisp &
SERVER_PID=$!
diff --git a/src/app.lisp b/src/app.lisp
index 6710a1c..aa59dc6 100644
--- a/src/app.lisp
+++ b/src/app.lisp
@@ -1,4 +1,4 @@
-(defpackage #:hp/app
+(defpackage #:website/app
(:use #:cl)
(:import-from #:jingle
#:make-app
@@ -11,19 +11,19 @@
#:*trim-trailing-slash*)
(:import-from #:clack-errors
#:*clack-error-middleware*)
- (:import-from #:hp/lib/env
- #:hp-env)
- (:import-from #:hp/renderer)
+ (:import-from #:website/lib/env
+ #:website-env)
+ (:import-from #:website/renderer)
(:export #:*app*))
-(in-package #:hp/app)
+(in-package #:website/app)
(defparameter *app*
(let ((app (make-app)))
- (set-routes app :system :hp :target-dir-path "routes")
+ (set-routes app :system :website :target-dir-path "routes")
(install-middleware app (lambda (app)
(funcall *clack-error-middleware*
app
- :debug (string= (hp-env) "dev"))))
+ :debug (string= (website-env) "dev"))))
(install-middleware app *trim-trailing-slash*)
(static-path app "/img/" "static/img/")
(static-path app "/style/" "static/style/")
diff --git a/src/components/header.lisp b/src/components/header.lisp
index 0ec039a..6e29235 100644
--- a/src/components/header.lisp
+++ b/src/components/header.lisp
@@ -1,10 +1,10 @@
-(defpackage #:hp/components/header
+(defpackage #:website/components/header
(:use #:cl
#:hsx)
(:import-from #:jingle
#:request-uri)
(:export #:~header))
-(in-package #:hp/components/header)
+(in-package #:website/components/header)
(defparameter *nav-menu*
'(("/bio" "bio")
diff --git a/src/components/layout.lisp b/src/components/layout.lisp
index f50e71d..08f8f1f 100644
--- a/src/components/layout.lisp
+++ b/src/components/layout.lisp
@@ -1,12 +1,12 @@
-(defpackage #:hp/components/layout
+(defpackage #:website/components/layout
(:use #:cl
#:hsx)
- (:import-from #:hp/components/metadata
+ (:import-from #:website/components/metadata
#:~metadata)
- (:import-from #:hp/components/header
+ (:import-from #:website/components/header
#:~header)
(:export #:~layout))
-(in-package #:hp/components/layout)
+(in-package #:website/components/layout)
(defun bust-cache (url)
(format nil "~a?v=~a" url #.(get-universal-time)))
diff --git a/src/components/metadata.lisp b/src/components/metadata.lisp
index f540d66..37986fa 100644
--- a/src/components/metadata.lisp
+++ b/src/components/metadata.lisp
@@ -1,10 +1,10 @@
-(defpackage #:hp/components/metadata
+(defpackage #:website/components/metadata
(:use #:cl
#:hsx)
- (:import-from #:hp/lib/env
- #:hp-url)
+ (:import-from #:website/lib/env
+ #:website-url)
(:export #:~metadata))
-(in-package #:hp/components/metadata)
+(in-package #:website/components/metadata)
(defun create-metadata (&key title
description
@@ -27,7 +27,7 @@
(defun path->url (path)
(concatenate 'string
- (hp-url)
+ (website-url)
(and (not (string= path "/")) path)))
(defparameter *metadata-template*
diff --git a/src/lib/cms.lisp b/src/lib/cms.lisp
index d242dd9..a133274 100644
--- a/src/lib/cms.lisp
+++ b/src/lib/cms.lisp
@@ -1,16 +1,16 @@
-(defpackage #:hp/lib/cms
+(defpackage #:website/lib/cms
(:use #:cl)
(:import-from #:microcms
#:define-list-client
#:define-object-client)
- (:import-from #:hp/lib/env
+ (:import-from #:website/lib/env
#:microcms-service-domain
#:microcms-api-key)
(:export #:get-blog-list
#:get-blog-detail
#:get-bio
#:get-work))
-(in-package :hp/lib/cms)
+(in-package :website/lib/cms)
(setf microcms:*service-domain* (microcms-service-domain))
(setf microcms:*api-key* (microcms-api-key))
diff --git a/src/lib/env.lisp b/src/lib/env.lisp
index 9dbd2a1..a6e1ffb 100644
--- a/src/lib/env.lisp
+++ b/src/lib/env.lisp
@@ -1,12 +1,12 @@
-(defpackage #:hp/lib/env
+(defpackage #:website/lib/env
(:use #:cl)
(:import-from #:cl-dotenv
#:load-env)
- (:export #:hp-env
- #:hp-url
+ (:export #:website-env
+ #:website-url
#:microcms-service-domain
#:microcms-api-key))
-(in-package #:hp/lib/env)
+(in-package #:website/lib/env)
(load-env (merge-pathnames "./.env"))
@@ -14,7 +14,7 @@
`(defun ,name ()
(or (uiop:getenv ,var) "")))
-(env-var hp-env "HP_ENV")
-(env-var hp-url "HP_URL")
+(env-var website-env "WEBSITE_ENV")
+(env-var website-url "WEBSITE_URL")
(env-var microcms-service-domain "MICROCMS_SERVICE_DOMAIN")
(env-var microcms-api-key "MICROCMS_API_KEY")
diff --git a/src/lib/time.lisp b/src/lib/time.lisp
index 16380dc..9d73708 100644
--- a/src/lib/time.lisp
+++ b/src/lib/time.lisp
@@ -1,4 +1,4 @@
-(defpackage #:hp/lib/time
+(defpackage #:website/lib/time
(:use #:cl)
(:import-from #:local-time
#:reread-timezone-repository
@@ -7,7 +7,7 @@
#:format-timestring)
(:export #:datetime
#:jp-datetime))
-(in-package #:hp/lib/time)
+(in-package #:website/lib/time)
(reread-timezone-repository)
(setf local-time:*default-timezone*
diff --git a/src/main.lisp b/src/main.lisp
index 121202b..2c311c4 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -1,13 +1,13 @@
-(defpackage #:hp
- (:nicknames #:hp/main)
+(defpackage #:website
+ (:nicknames #:website/main)
(:use #:cl)
(:import-from #:clack)
- (:import-from #:hp/app
+ (:import-from #:website/app
#:*app*)
(:export #:start
#:stop
#:reload))
-(in-package #:hp)
+(in-package #:website)
(defparameter *handler* nil)
@@ -28,5 +28,5 @@
(defun reload ()
(stop)
- (ql:quickload :hp/app)
+ (ql:quickload :website/app)
(start))
diff --git a/src/renderer.lisp b/src/renderer.lisp
index 8d26ca9..774bf6c 100644
--- a/src/renderer.lisp
+++ b/src/renderer.lisp
@@ -1,4 +1,4 @@
-(defpackage #:hp/renderer
+(defpackage #:website/renderer
(:use #:cl
#:hsx
#:trivia)
@@ -6,16 +6,16 @@
#:set-response-header)
(:import-from #:hsx/element
#:element)
- (:import-from #:hp/lib/env
- #:hp-url
- #:hp-env)
- (:import-from #:hp/components/layout
+ (:import-from #:website/lib/env
+ #:website-url
+ #:website-env)
+ (:import-from #:website/components/layout
#:~layout))
-(in-package #:hp/renderer)
+(in-package #:website/renderer)
(defun set-cache-control (strategy)
(set-response-header :cache-control
- (if (string= (hp-env) "dev")
+ (if (string= (website-env) "dev")
"private, no-store"
(cond
((eq strategy :static) "public, max-age=31536000, immutable")
diff --git a/src/routes/bio.lisp b/src/routes/bio.lisp
index e12e000..0fd6d94 100644
--- a/src/routes/bio.lisp
+++ b/src/routes/bio.lisp
@@ -1,8 +1,13 @@
-(defpackage #:hp/routes/bio
+(defpackage #:website/routes/bio
(:use #:cl
#:hsx)
+ (:import-from #:website/lib/cms
+ #:get-bio)
+ (:import-from #:website/lib/time
+ #:datetime
+ #:jp-datetime)
(:export #:handle-get))
-(in-package :hp/routes/bio)
+(in-package :website/routes/bio)
(defparameter *metadata*
(list :title "bio"
@@ -10,8 +15,7 @@
(defcomp ~page ()
(hsx
- (section
- (p "Coming soon..."))))
+ (p "comming soon")))
(defun handle-get (params)
(declare (ignore params))
diff --git a/src/routes/blog.lisp b/src/routes/blog.lisp
index 173a2ed..13bcc22 100644
--- a/src/routes/blog.lisp
+++ b/src/routes/blog.lisp
@@ -1,8 +1,8 @@
-(defpackage #:hp/routes/blog
+(defpackage #:website/routes/blog
(:use #:cl
#:hsx)
(:export #:handle-get))
-(in-package :hp/routes/blog)
+(in-package :website/routes/blog)
(defparameter *metadata*
(list :title "blog"
@@ -10,8 +10,7 @@
(defcomp ~page ()
(hsx
- (section
- (p "Coming soon..."))))
+ (p "comming soon")))
(defun handle-get (params)
(declare (ignore params))
diff --git a/src/routes/index.lisp b/src/routes/index.lisp
index 418e8c5..77e03db 100644
--- a/src/routes/index.lisp
+++ b/src/routes/index.lisp
@@ -1,9 +1,9 @@
-(defpackage #:hp/routes/index
+(defpackage #:website/routes/index
(:use #:cl
#:hsx)
(:export #:handle-get
#:handle-head))
-(in-package #:hp/routes/index)
+(in-package #:website/routes/index)
(defparameter *links*
'(("Keyoxide" "https://keyoxide.org/f39d5b2c951d16732a5cd3528f0c1a22f26d7e62")
diff --git a/src/routes/not-found.lisp b/src/routes/not-found.lisp
index 34c3e21..2253893 100644
--- a/src/routes/not-found.lisp
+++ b/src/routes/not-found.lisp
@@ -1,8 +1,8 @@
-(defpackage #:hp/routes/not-found
+(defpackage #:website/routes/not-found
(:use #:cl
#:hsx)
(:export #:handle-not-found))
-(in-package #:hp/routes/not-found)
+(in-package #:website/routes/not-found)
(defparameter *metadata*
'(:title "404 Not Found"
diff --git a/src/routes/work.lisp b/src/routes/work.lisp
index 9345a53..d7ab18b 100644
--- a/src/routes/work.lisp
+++ b/src/routes/work.lisp
@@ -1,8 +1,13 @@
-(defpackage #:hp/routes/work
+(defpackage #:website/routes/work
(:use #:cl
#:hsx)
+ (:import-from #:website/lib/cms
+ #:get-work)
+ (:import-from #:website/lib/time
+ #:datetime
+ #:jp-datetime)
(:export #:handle-get))
-(in-package :hp/routes/work)
+(in-package :website/routes/work)
(defparameter *metadata*
(list :title "work"
@@ -10,8 +15,7 @@
(defcomp ~page ()
(hsx
- (section
- (p "Coming soon..."))))
+ (p "comming soon")))
(defun handle-get (params)
(declare (ignore params))
diff --git a/tests/example.lisp b/tests/example.lisp
index faf4574..3dfab79 100644
--- a/tests/example.lisp
+++ b/tests/example.lisp
@@ -1,7 +1,7 @@
-(defpackage #:hp-tests/example
+(defpackage #:website-tests/example
(:use #:cl
#:fiveam))
-(in-package #:hp-tests/example)
+(in-package #:website-tests/example)
(def-suite example-test)
(in-suite example-test)
diff --git a/hp-tests.asd b/website-tests.asd
similarity index 70%
rename from hp-tests.asd
rename to website-tests.asd
index 54fcc9f..8aa464b 100644
--- a/hp-tests.asd
+++ b/website-tests.asd
@@ -1,7 +1,7 @@
-(defsystem "hp-tests"
+(defsystem "website-tests"
:class :package-inferred-system
:pathname "tests"
:depends-on ("fiveam"
- "hp-tests/example")
+ "website-tests/example")
:perform (test-op (o c)
(symbol-call :fiveam :run-all-tests)))
diff --git a/hp.asd b/website.asd
similarity index 56%
rename from hp.asd
rename to website.asd
index 1ff5ec6..5c6b793 100644
--- a/hp.asd
+++ b/website.asd
@@ -1,7 +1,7 @@
-(defsystem "hp"
+(defsystem "website"
:description "My personal website"
:author "Akira Tempaku <paku@skyizwhite.dev>"
:class :package-inferred-system
:pathname "src"
- :depends-on ("hp/main")
- :in-order-to ((test-op (test-op "hp-tests"))))
+ :depends-on ("website/main")
+ :in-order-to ((test-op (test-op "website-tests"))))