From 45bb0d11161b1c5077a1415eed6dbd0fd25ccb6a Mon Sep 17 00:00:00 2001
From: jdlugosz963 <jdlugosz963@gmail.com>
Date: Fri, 20 Sep 2024 14:16:56 +0200
Subject: Change dotfiles structure, and add guix-channels declaration.

---
 files/.emacs.d/jd/jd-gym.el | 120 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 120 insertions(+)
 create mode 100755 files/.emacs.d/jd/jd-gym.el

(limited to 'files/.emacs.d/jd/jd-gym.el')

diff --git a/files/.emacs.d/jd/jd-gym.el b/files/.emacs.d/jd/jd-gym.el
new file mode 100755
index 0000000..581bf65
--- /dev/null
+++ b/files/.emacs.d/jd/jd-gym.el
@@ -0,0 +1,120 @@
+;;; jd-gym.el ---  Gym workout manager.
+;;; Commentary:
+;; It will be a gym workout manager in the future.
+;;; code:
+
+(require 'emacsql-sqlite)
+
+(defconst jd-gym/db--tables-schema
+  '((workout-plans
+     [(id integer :primary-key :autoincrement)
+      (name text)])
+
+    (workouts
+     [(id integer :primary-key :autoincrement)
+      (workout-plan-id integer :not-null)
+      (day integer :not-null)
+      (month integer :not-null)
+      (year integer :not-null)]
+     (:foreign-key [workout-plan-id] :references workout-plans [id] :on-delete :cascade))
+
+    (muscle-part
+     [(id integer :primary-key :autoincrement)
+      (name text :not-null)])
+
+    (exercises
+     [(id integer :primary-key :autoincrement)
+      (name text :not-null)
+      (muscle-part-id integer :not-null)]
+     (:foreign-key [muscle-part-id] :references muscle-part [id] :on-delete :cascade))
+    
+    (workout-plan-exercise-map
+     [(id integer :primary-key :autoincrement)
+      (week-day integer :not-null)
+      (workout-plan-id integer :not-null)
+      (exercise-id integer :not-null)]
+     (:foreign-key [workout-plan-id] :references workout-plans [id] :on-delete :cascade)
+     (:foreign-key [exercise-id] :references exercises [id] :on-delete :cascade))
+
+    (workout-sets
+     [(id integer :primary-key :autoincrement)
+      (reps integer :not-null)
+      (weight integer :not-null)
+      (workout-plan-exercise-map-id integer :not-null)
+      (comment text)]
+     (:foreign-key [workout-plan-exercise-map-id] :references workout-plan-exercise-map [id] :on-delete :cascade))))
+
+(defconst jd-gym/db--test-data
+  '((workout-plans
+     ([nil "Push pull"]))
+    (workouts
+     ([nil 1 3 1 2023]))
+    (muscle-part
+     ([nil "glutes"]
+      [nil "chest"]))
+    (exercises
+     ([nil "Bench press" 2]
+      [nil "RDL" 1]))
+    (workout-plan-exercise-map
+     ([nil 0 1 1] ; Monday, Push pull, Bench press
+      [nil 1 1 2] ; Tuesday, Push pull, RDL
+      [nil 3 1 1] ; Thursday, Push pull, Bench press
+      [nil 4 1 2] ; Friday, Push pull, RDL
+      ))
+    (workout-sets
+     ([nil 7 70 1 "New PR!"]
+      [nil 8 110 2 "It was hard!"]))))
+
+(defun jd-gym/db--test-data-insert ()
+  "Insert test data to jd-gym database."
+  (mapc (lambda (table)
+	  (let ((table-name (car table))
+		(table-data (cdr table)))
+	    (emacsql jd-gym/db--conn [:insert :into $i1
+					      :values $v2]
+		     table-name table-data)))
+	jd-gym/db--test-data))
+
+(defvar jd-gym/db-path "~/Documents/Gym/gym.sqlite"
+  "Path can be relative or absolute.")
+
+(defvar jd-gym/db--conn nil
+  "Store connection to jd-gym database.")
+
+(defun jd-gym/db--conn-p ()
+  "Check if jd-gym is connected to db."
+  (and (emacsql-sqlite-connection-p jd-gym/db--conn)
+       (emacsql-live-p jd-gym/db--conn)))
+
+(defun jd-gym/db--connect ()
+  "Connect to db if there is no connection yet."
+  (unless (jd-gym/db--conn-p)
+    (setq jd-gym/db--conn (emacsql-sqlite jd-gym/db-path))))
+
+(defun jd-gym/db--close ()
+  "Close db connection."
+  (when (jd-gym/db--conn-p)
+    (emacsql-close jd-gym/db--conn)))
+
+(defun jd-gym/db--init ()
+  "Initialize database structure."
+  (when (jd-gym/db--conn-p)
+    (emacsql jd-gym/db--conn [:pragma (= foreign_keys ON)])
+    (emacsql jd-gym/db--conn "PRAGMA foreign_keys=ON")
+    (mapc (lambda (table)
+	    (let ((table-name (car table))
+		  (table-schema (cdr table)))
+	      (emacsql jd-gym/db--conn [:create-table $i1 $S2] table-name table-schema)))
+	  jd-gym/db--tables-schema)))
+
+(defun jd-gym/db ()
+  "Entrypoint to jd-gym db."
+  (unless (file-exists-p jd-gym/db-path)
+    (jd-gym/db--close)
+    (jd-gym/db--connect) ; Restart connection
+    (jd-gym/db--init)))
+
+
+(provide 'jd-gym)
+
+;;; jd-gym.el ends here
-- 
cgit v1.2.3