mucking about

1 files changed, 63 insertions, 4 deletions

diff --git a/src/site.lisp b/src/site.lisp
index 33fab15..e793bc3 100644
--- a/src/site.lisp
+++ b/src/site.lisp
@@ -95,6 +95,21 @@ page."
             (progn ,@inputs)
             (:button :type "submit" ,button))))
 
+(deftag col (content attrs &key class)
+  (let ((class (if class (concatenate 'string "col " class) "col"))) 
+    `(progn
+       (:div :class ,class ,@attrs
+             (progn ,@content)))))
+
+(deftag row (content attrs &key class)
+  (let ((class (if class (concatenate 'string "row " class) "row"))) 
+    `(progn
+       (:div :class ,class ,@attrs
+             (progn ,@content)))))
+
+
+
+
 (defun input (name placeholder &optional (type "text"))
   (with-html
     (:input
@@ -105,7 +120,6 @@ page."
 (defun active-a (path text &key (class ""))
   "generates an A element that has the `active` class when PATH is the
 path we're visiting"
-  (print (list :request-path (lzb:request-path)))
   (with-html
     (let ((classes (if (string-equal path (lzb:request-path))
                        (str:join " " (list "active" class))
@@ -219,7 +233,7 @@ path we're visiting"
             (:div :class "right vsep-container"
                   (:a :class "vsep-item" :href "/about" "about")
                   (:a :class "vsep-item" :href "/logout" "logout"))
-            (:h1 "V A M P I R E")))
+            (:h1 "⹋ V̷ · ̷A̷ · ̷M̷ · ̷P̷ · ̷I̷ · ̷R̷ · ̷E̷ ⹋")))
      (:hgroup
       (:nav
        (:div :class "navbar"
@@ -227,13 +241,46 @@ path we're visiting"
              (active-a "/us" "US")
              (active-a "/tracks" "TRACKS")))))))
 
+
 (defendpoint* :get "/" () ()
   (if (logged-in-p)
       (lzb:http-redirect "/you")
       (lzb:http-redirect "/login")))
 
+(defun gibberish ()
+  (with-html
+    (:p
+     "At the Reagan National Defense Forum in Simi Valley, California, on
+Saturday, US Commerce Secretary Gina Raimondo issued a cautionary
+statement to Nvidia, urging them to stop redesigning AI chips for
+China that maneuver around export restrictions. \"We cannot let China
+get these chips. Period,\" she said. \"We're going to deny them our
+most cutting-edge technology.\" Fortune reports: Raimondo said
+American companies will need to adapt to US national security
+priorities, including export controls that her department has placed
+on semiconductor exports. \"I know there are CEOs of chip companies in
+this audience who were a little cranky with me when I did that because
+you're losing revenue,\" she said. \"Such is life. Protecting our
+national security matters more than short-term revenue.\" Raimondo
+called out Nvidia Corp., which designed chips specifically for the
+Chinese market after the US imposed its initial round of curbs in
+October 2022. \"If you redesign a chip around a particular cut line
+that enables them to do AI, I'm going to control it the very next
+day,\" Raimondo said. Communication with China can help stabilize ties
+between the two countries, but \"on matters of national security,
+we've got to be eyes wide open about the threat,\" she said. \"This is
+the biggest threat we've ever had and we need to meet the moment,\"
+she said. Further reading: Nvidia CEO Says US Will Take Years To
+Achieve Chip Independence")))
+
 (defpage/session "/you" (:title "Vampire ~ Your Stuff")
-  (:div :class "container"))
+  (:div 
+   (row
+     (col (gibberish)))
+   (row
+     (col (gibberish))
+     (col (gibberish))
+     )))
 
 (defpage/session "/us" (:title "Vampire ~ Our Playlists")
   (:div :class "container"))
@@ -349,13 +396,25 @@ path we're visiting"
        :background #(active-background-color)
        :color #(active-color)))
 
+     (.row
+      :display flex
+      :justify-content space-between)
+
+     (.col
+      :flex 1)
+
      (:media "(max-width: 650px)"
       (.navbar
        (a
         :float none
         :display block
         :width 100%
-        :text-align left))))))
+        :text-align left)))
+
+
+     (:media "(max-width: 800px)"
+      (.row
+       :display block)))))
 
 ;;; JAVASCRIPT