More compatible CSS; fixed code formatting.

2 files changed, 44 insertions, 42 deletions

diff --git a/assets/css/style.css b/assets/css/style.css
index 413d3ff..15d6fbc 100644
--- a/assets/css/style.css
+++ b/assets/css/style.css
@@ -3,7 +3,7 @@ html {
 }
 
 pre {
-    font-family: Iosevka;
+    font-family: Iosevka, monospace;
     background-color: #292b2b;
     border-radius: 0.5rem;
     padding: 1rem;
@@ -24,7 +24,7 @@ section {
 
 body {
     background-color: #1d1f21;
-    font-family: IBM Plex Sans;
+    font-family: IBM Plex Sans, sans-serif;
     color: #c5c8c6;
     max-width: 54rem;
     margin: 0.5rem auto;
diff --git a/org/lift-form/lift-form.org b/org/lift-form/lift-form.org
index 5868740..17fe978 100644
--- a/org/lift-form/lift-form.org
+++ b/org/lift-form/lift-form.org
@@ -1,7 +1,7 @@
 # -*- org-export-use-babel: nil;-*-
 
 #+TITLE: Tracking Physical Performance, Personal Library with Emacs
-#+DATE: <2023-11-01 Wed 02:16>
+#+DATE: <2023-11-01 Wed 02:18>
 #+TAGS: Emacs, Fitness, Data, Forms.el
 
 I've just started making systematic efforts in my physical fitness. Following some [[https://rpstrength.com/hypertrophy-training-guide-central-hub/][work I've seen on periodized hypertrophy training]], I planned out a mesocycle in my usual Android Notes, but noticed my systematic representation of workout data could much more ergonomically be represented as a forms file. The data entry is better, and data analysis is easier! Realizing just how good it is, I also implemented some basic library management in it for my physical books.
@@ -20,47 +20,49 @@ To show and not tell, here's the forms control file I've whipped up to track exe
   (setq forms-file "lifts.tsv" ;; Name of the file the data is to be stored in.
 
         ;; Specially-interpreted list, describing the textual interface to the data.
-        forms-format-list `("====== Lift Session ======\n\n"
-                            ;; Basic info.
-                            type " day, on " date ".\n"
-                            "Block " block ", mesocycle " mesocycle
-                            ", week " week ".\n\n"
-
-                            "Exercise, (sets)x(reps) weight—improvement made. Notes.\n"
-                            ,@(apply
-                               'append
-                               (mapcar (lambda (ex-number)
-                                        (let ((name     (intern (concat "ex" (number-to-string ex-number) "-name")))
-                                              (sets     (intern (concat "ex" (number-to-string ex-number) "-sets")))
-                                              (reps     (intern (concat "ex" (number-to-string ex-number) "-reps")))
-                                              (weight   (intern (concat "ex" (number-to-string ex-number) "-weight")))
-                                              (improved (intern (concat "ex" (number-to-string ex-number) "-improved")))
-                                              (notes    (intern (concat "ex" (number-to-string ex-number) "-notes"))))
-                                           (list name ", " sets"x"reps " " weight "—" improved ". " notes "\n")))
-                                      (number-sequence 1 max-exercises)))
-
-                            "\nAftermath:\n"
-                            aftermath)
+        forms-format-list
+        `("====== Lift Session ======\n\n"
+          ;; Basic info.
+          type " day, on " date ".\n"
+          "Block " block ", mesocycle " mesocycle
+          ", week " week ".\n\n"
+
+          "Exercise, (sets)x(reps) weight—improvement made. Notes.\n"
+          ,@(apply
+             'append
+             (mapcar (lambda (ex-number)
+                       (let ((name     (intern (concat "ex" (number-to-string ex-number) "-name")))
+                             (sets     (intern (concat "ex" (number-to-string ex-number) "-sets")))
+                             (reps     (intern (concat "ex" (number-to-string ex-number) "-reps")))
+                             (weight   (intern (concat "ex" (number-to-string ex-number) "-weight")))
+                             (improved (intern (concat "ex" (number-to-string ex-number) "-improved")))
+                             (notes    (intern (concat "ex" (number-to-string ex-number) "-notes"))))
+                         (list name ", " sets"x"reps " " weight "—" improved ". " notes "\n")))
+                     (number-sequence 1 max-exercises)))
+
+          "\nAftermath:\n"
+          aftermath)
 
         ;; The numbers of each field is associated with a corresponding symbol, for use in the above.
-        forms-number-of-fields (forms-enumerate
-                                `(type
-                                  date
-                                  block
-                                  mesocycle
-                                  week
-                                  ,@(apply
-                                     'append
-                                     (mapcar (lambda (ex-number)
-                                               (let ((name     (intern (concat "ex" (number-to-string ex-number) "-name")))
-                                                     (sets     (intern (concat "ex" (number-to-string ex-number) "-sets")))
-                                                     (reps     (intern (concat "ex" (number-to-string ex-number) "-reps")))
-                                                     (weight   (intern (concat "ex" (number-to-string ex-number) "-weight")))
-                                                     (improved (intern (concat "ex" (number-to-string ex-number) "-improved")))
-                                                     (notes    (intern (concat "ex" (number-to-string ex-number) "-notes"))))
-                                                 (list name sets reps weight improved notes)))
-                                             (number-sequence 1 max-exercises)))
-                                  aftermath))
+        forms-number-of-fields
+        (forms-enumerate
+         `(type
+           date
+           block
+           mesocycle
+           week
+           ,@(apply
+              'append
+              (mapcar (lambda (ex-number)
+                        (let ((name     (intern (concat "ex" (number-to-string ex-number) "-name")))
+                              (sets     (intern (concat "ex" (number-to-string ex-number) "-sets")))
+                              (reps     (intern (concat "ex" (number-to-string ex-number) "-reps")))
+                              (weight   (intern (concat "ex" (number-to-string ex-number) "-weight")))
+                              (improved (intern (concat "ex" (number-to-string ex-number) "-improved")))
+                              (notes    (intern (concat "ex" (number-to-string ex-number) "-notes"))))
+                          (list name sets reps weight improved notes)))
+                      (number-sequence 1 max-exercises)))
+           aftermath))
 
         ;; Bookkeeping about the data file; various unused data integrity checking features.
         forms-field-sep "\t"