30 files changed, 23 insertions, 24 deletions

diff --git a/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/.gitignore b/lisp/webapps/bogenherr/clojurescript/bogenherr/.gitignore
index 864ae75..864ae75 100644
--- a/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/.gitignore
+++ b/lisp/webapps/bogenherr/clojurescript/bogenherr/.gitignore
diff --git a/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/README.md b/lisp/webapps/bogenherr/clojurescript/bogenherr/README.md
index 53ca866..53ca866 100644
--- a/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/README.md
+++ b/lisp/webapps/bogenherr/clojurescript/bogenherr/README.md
diff --git a/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/project.clj b/lisp/webapps/bogenherr/clojurescript/bogenherr/project.clj
index 9b93c1e..06003f5 100644
--- a/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/project.clj
+++ b/lisp/webapps/bogenherr/clojurescript/bogenherr/project.clj
@@ -1,4 +1,4 @@
-(defproject woodriverlessons "0.1.0-SNAPSHOT"
+(defproject bogenherr "0.1.0-SNAPSHOT"
   :description "FIXME"
   :url "FIXME"
   :license "public domain"
diff --git a/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs b/lisp/webapps/bogenherr/clojurescript/bogenherr/src/core.cljs
index e1b26bb..60a6b55 100644
--- a/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs
+++ b/lisp/webapps/bogenherr/clojurescript/bogenherr/src/core.cljs
@@ -1,4 +1,4 @@
-(ns woodriverlessons.core
+(ns bogenherr.core
   (:require-macros [hiccups.core :as hiccups :refer [html]])
   (:require [ajax.core :refer [GET POST raw-response-format]]
             [dommy.core :as dommy]
@@ -250,7 +250,7 @@
 ;; home
 
 (hiccups/defhtml template-home [jsonobj]
-  [:h1 {:style "text-align: center"} "Welcome to the studio of Carlos Konstanski"]
+  [:h1 {:style "text-align: center"} "Welcome to the music studio of Carlos Konstanski<br/>a.k.a. <i>der Bogenherr</i>"]
   [:div {:style "text-align: center"}
    [:img {:style "width: 100%"
           :src "/static/images/instrument-cabinet.jpg"}]])
diff --git a/lisp/webapps/woodriverlessons/conf/.gitignore b/lisp/webapps/bogenherr/conf/.gitignore
index 14fa7a6..14fa7a6 100644
--- a/lisp/webapps/woodriverlessons/conf/.gitignore
+++ b/lisp/webapps/bogenherr/conf/.gitignore
diff --git a/lisp/webapps/bogenherr/conf/options.lisp.example b/lisp/webapps/bogenherr/conf/options.lisp.example
new file mode 100644
index 0000000..fbd48d8
--- /dev/null
+++ b/lisp/webapps/bogenherr/conf/options.lisp.example
@@ -0,0 +1,13 @@
+(:name "bogenherr"
+ :url "bogenherr.org"
+ :document-root "bogenherr"
+ :title "Bogenherr"
+ :meta-description "The Bogenherr website written in Common Lisp/Hunchentoot and ClojureScript."
+ :databases (:db-bogenherr ("127.0.0.1" "bogenherr" "bogenherr" "password"))
+ :mail-mx "mail.ckons.org"
+ :mail-from "postmaster@ckons.org"
+ :mail-postmaster "postmaster@ckons.org"
+ :mail-webmaster "webmaster@ckons.org"
+ :mail-info "info@ckons.org"
+ :mail-login-notify "me@ckons.org"
+ :mail-authentication ("me@ckons.org" "password"))
diff --git a/lisp/webapps/woodriverlessons/site.lisp b/lisp/webapps/bogenherr/site.lisp
index d47b2b6..6b58a81 100644
--- a/lisp/webapps/woodriverlessons/site.lisp
+++ b/lisp/webapps/bogenherr/site.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defmacro .base (&optional (onload-fn "goto_location('/home')"))
   `(org-ckons-http::html5
@@ -18,12 +18,12 @@
                    `((script :type "text/javascript" :src ,(getf js :src) :integrity ,(getf js :integrity) :crossorigin ,(getf js :crossorigin))))
                  '((:src "https://code.jquery.com/jquery-3.7.1.slim.min.js" :integrity "ha256-kmHvs0B+OpCW5GVHUNjv9rOmY0IvSIRcf7zGUDTDQM8=" :crossorigin "anonymous")))
        ((script :type "text/javascript" :src "/static/js/cljs/main.js")))
-      ((body :onload ,(format nil "woodriverlessons.core.~a" ,onload-fn))
+      ((body :onload ,(format nil "bogenherr.core.~a" ,onload-fn))
        ((div :class "container-fluid")
         ((div :class "banner")
          ((table :width "100%" :height "100%")
           (tr
-           ((td :class "banner-title") "Wood River Lessons")
+           ((td :class "banner-title") "Bogen-<i>Herr</i>")
            ((td :class "banner-menu")
             ((div :id "menu-user"))))))
         ((div :id "menu" :class "well"))
diff --git a/lisp/webapps/woodriverlessons/static/css/stylesheet.css b/lisp/webapps/bogenherr/static/css/stylesheet.css
index efb4c07..9cc9e0d 100644
--- a/lisp/webapps/woodriverlessons/static/css/stylesheet.css
+++ b/lisp/webapps/bogenherr/static/css/stylesheet.css
@@ -44,7 +44,6 @@ hr {
     width: *;
     color: #59200e;
     font-size: 28px;
-    font-style: italic;
     font-weight: bold;
     text-align: center;
 }
diff --git a/lisp/webapps/woodriverlessons/static/images/add.png b/lisp/webapps/bogenherr/static/images/add.png
index 1055df8..1055df8 100644
--- a/lisp/webapps/woodriverlessons/static/images/add.png
+++ b/lisp/webapps/bogenherr/static/images/add.png
diff --git a/lisp/webapps/woodriverlessons/static/images/classical-bow.jpg b/lisp/webapps/bogenherr/static/images/classical-bow.jpg
index fce1392..fce1392 100644
--- a/lisp/webapps/woodriverlessons/static/images/classical-bow.jpg
+++ b/lisp/webapps/bogenherr/static/images/classical-bow.jpg
diff --git a/lisp/webapps/woodriverlessons/static/images/delete.png b/lisp/webapps/bogenherr/static/images/delete.png
index ec140b7..ec140b7 100644
--- a/lisp/webapps/woodriverlessons/static/images/delete.png
+++ b/lisp/webapps/bogenherr/static/images/delete.png
diff --git a/lisp/webapps/woodriverlessons/static/images/document-open.png b/lisp/webapps/bogenherr/static/images/document-open.png
index 20b7ca8..20b7ca8 100644
--- a/lisp/webapps/woodriverlessons/static/images/document-open.png
+++ b/lisp/webapps/bogenherr/static/images/document-open.png
diff --git a/lisp/webapps/woodriverlessons/static/images/down.png b/lisp/webapps/bogenherr/static/images/down.png
index e2d15bf..e2d15bf 100644
--- a/lisp/webapps/woodriverlessons/static/images/down.png
+++ b/lisp/webapps/bogenherr/static/images/down.png
diff --git a/lisp/webapps/woodriverlessons/static/images/download.png b/lisp/webapps/bogenherr/static/images/download.png
index 3973b3c..3973b3c 100644
--- a/lisp/webapps/woodriverlessons/static/images/download.png
+++ b/lisp/webapps/bogenherr/static/images/download.png
diff --git a/lisp/webapps/woodriverlessons/static/images/edit-redo.png b/lisp/webapps/bogenherr/static/images/edit-redo.png
index 3d4db6c..3d4db6c 100644
--- a/lisp/webapps/woodriverlessons/static/images/edit-redo.png
+++ b/lisp/webapps/bogenherr/static/images/edit-redo.png
diff --git a/lisp/webapps/woodriverlessons/static/images/edit-undo.png b/lisp/webapps/bogenherr/static/images/edit-undo.png
index 367fc5a..367fc5a 100644
--- a/lisp/webapps/woodriverlessons/static/images/edit-undo.png
+++ b/lisp/webapps/bogenherr/static/images/edit-undo.png
diff --git a/lisp/webapps/woodriverlessons/static/images/edit.png b/lisp/webapps/bogenherr/static/images/edit.png
index 550dacd..550dacd 100644
--- a/lisp/webapps/woodriverlessons/static/images/edit.png
+++ b/lisp/webapps/bogenherr/static/images/edit.png
diff --git a/lisp/webapps/woodriverlessons/static/images/emblem-favorite.png b/lisp/webapps/bogenherr/static/images/emblem-favorite.png
index 6535d5d..6535d5d 100644
--- a/lisp/webapps/woodriverlessons/static/images/emblem-favorite.png
+++ b/lisp/webapps/bogenherr/static/images/emblem-favorite.png
diff --git a/lisp/webapps/woodriverlessons/static/images/emblem-nowrite.png b/lisp/webapps/bogenherr/static/images/emblem-nowrite.png
index 997fedf..997fedf 100644
--- a/lisp/webapps/woodriverlessons/static/images/emblem-nowrite.png
+++ b/lisp/webapps/bogenherr/static/images/emblem-nowrite.png
diff --git a/lisp/webapps/woodriverlessons/static/images/instrument-cabinet.jpg b/lisp/webapps/bogenherr/static/images/instrument-cabinet.jpg
index a683c45..a683c45 100644
--- a/lisp/webapps/woodriverlessons/static/images/instrument-cabinet.jpg
+++ b/lisp/webapps/bogenherr/static/images/instrument-cabinet.jpg
diff --git a/lisp/webapps/woodriverlessons/static/images/no.png b/lisp/webapps/bogenherr/static/images/no.png
index 1dc1b7c..1dc1b7c 100644
--- a/lisp/webapps/woodriverlessons/static/images/no.png
+++ b/lisp/webapps/bogenherr/static/images/no.png
diff --git a/lisp/webapps/woodriverlessons/static/images/sort-alpha.png b/lisp/webapps/bogenherr/static/images/sort-alpha.png
index 0e4a831..0e4a831 100644
--- a/lisp/webapps/woodriverlessons/static/images/sort-alpha.png
+++ b/lisp/webapps/bogenherr/static/images/sort-alpha.png
diff --git a/lisp/webapps/woodriverlessons/static/images/up.png b/lisp/webapps/bogenherr/static/images/up.png
index 55bab86..55bab86 100644
--- a/lisp/webapps/woodriverlessons/static/images/up.png
+++ b/lisp/webapps/bogenherr/static/images/up.png
diff --git a/lisp/webapps/woodriverlessons/static/images/violin-strip.jpg b/lisp/webapps/bogenherr/static/images/violin-strip.jpg
index 6149a87..6149a87 100644
--- a/lisp/webapps/woodriverlessons/static/images/violin-strip.jpg
+++ b/lisp/webapps/bogenherr/static/images/violin-strip.jpg
diff --git a/lisp/webapps/woodriverlessons/static/images/yes.png b/lisp/webapps/bogenherr/static/images/yes.png
index b9cadf5..b9cadf5 100644
--- a/lisp/webapps/woodriverlessons/static/images/yes.png
+++ b/lisp/webapps/bogenherr/static/images/yes.png
diff --git a/lisp/webapps/bogenherr/static/js/cljs b/lisp/webapps/bogenherr/static/js/cljs
new file mode 120000
index 0000000..ead7d4a
--- /dev/null
+++ b/lisp/webapps/bogenherr/static/js/cljs
@@ -0,0 +1 @@
+../../clojurescript/bogenherr/resources/public/cljs
\ No newline at end of file
diff --git a/lisp/webapps/generics.lisp b/lisp/webapps/generics.lisp
index 58c9ad8..c986e5b 100644
--- a/lisp/webapps/generics.lisp
+++ b/lisp/webapps/generics.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defgeneric get-site-file-path (webapp)
   (:documentation "Builds a full filesystem path to a webapp's site
diff --git a/lisp/webapps/webapp-loader.lisp b/lisp/webapps/webapp-loader.lisp
index aafa6f3..5ac5b1c 100644
--- a/lisp/webapps/webapp-loader.lisp
+++ b/lisp/webapps/webapp-loader.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defvar *acceptor* nil)
 (defvar *dispatch-table* '(#'dispatch-easy-handlers #'default-dispatcher))
@@ -138,7 +138,7 @@ with the new one."
                                       :mail-authentication (getf form :mail-authentication)
                                       :mail-ssl (getf form :mail-ssl)))))))
 
-(defun woodriverlessons ()
+(defun bogenherr ()
   "Call this to start the server."
   (when (null *acceptor*)
     (let ((package (string-downcase (package-name #.*package*))))
diff --git a/lisp/webapps/woodriverlessons/conf/options.lisp.example b/lisp/webapps/woodriverlessons/conf/options.lisp.example
deleted file mode 100644
index d2afe8e..0000000
--- a/lisp/webapps/woodriverlessons/conf/options.lisp.example
+++ /dev/null
@@ -1,13 +0,0 @@
-(:name "woodriverlessons"
- :url "woodriverlessons.org"
- :document-root "woodriverlessons"
- :title "Wood River Orchestra"
- :meta-description "A website for the members of the Wood River Orchestra written in Common Lisp/Hunchentoot and ClojureScript."
- :databases (:db-woodriverlessons ("127.0.0.1" "woodriverlessons" "woodriverlessons" "password"))
- :mail-mx "mail.ckons.org"
- :mail-from "postmaster@ckons.org"
- :mail-postmaster "postmaster@ckons.org"
- :mail-webmaster "webmaster@ckons.org"
- :mail-info "info@ckons.org"
- :mail-login-notify "me@ckons.org"
- :mail-authentication ("me@ckons.org" "password"))
diff --git a/lisp/webapps/woodriverlessons/static/js/cljs b/lisp/webapps/woodriverlessons/static/js/cljs
deleted file mode 120000
index 88f0c64..0000000
--- a/lisp/webapps/woodriverlessons/static/js/cljs
+++ /dev/null
@@ -1 +0,0 @@
-../../clojurescript/woodriverlessons/resources/public/cljs
\ No newline at end of file