From 29905cab8314d36826223a5f32c35e932338ea23 Mon Sep 17 00:00:00 2001 From: Duncan Wilkie Date: Wed, 1 Nov 2023 02:35:43 -0500 Subject: More compatible CSS; fixed code formatting. --- assets/css/style.css | 4 +-- org/lift-form/lift-form.org | 82 +++++++++++++++++++++++---------------------- 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" -- cgit v1.2.3