Delayed loading of Chart Tables

Because loading the tables is now getting time and space prohibited, we
are now just storing the the name of the table and the filename ... at
first. Then once we ask for a chart, we fetch the chart and choose some
results.

Loading the tables is now not a cost issue ... and Emacs more stable.

dnd-5e/magic-schools.org

@@ -14,7 +14,7 @@
 
 See [[https://www.dndbeyond.com/sources/phb/spellcasting#AttackRolls][PHB, pg 203]] or [[https://thealpinedm.com/dnd-5e-schools-of-magic/][this summary]].
 
-* *School of Conjuration* : “Pulling a rabbit from a hat”
+* *School of Conjuration* : “Pull a rabbit from a hat”
    :PROPERTIES:
    :CUSTOM_ID: conjuration
    :END:
@@ -115,11 +115,11 @@ The magical School of Divination is centered around revealing and granting knowl
 Examples:
 
 #+begin_quote
-  *Low Level: */Identify, Find Traps/
+  *Low Level:* /Identify, Find Traps/
 
-  *Mid Level: */Scrying, Locate Creature/
+  *Mid Level:* /Scrying, Locate Creature/
 
-  *High Level: */True Seeing, Foresight/
+  *High Level:* /True Seeing, Foresight/
 #+end_quote
 
 * *School of Enchantment* : “You're getting sleepy...”

rpgdm-screen.el

@@ -35,6 +35,7 @@
 (defvar rpgdm-screen-window-size nil)
 (defvar rpgdm-screen-fullscreen nil)
 
+
 (defun rpgdm-screen-show (file-title)
   "Display in a side-window, FILE-TITLE.
 Interactively, display a list of files in `rpgdm-screen-directory'."
@@ -50,6 +51,11 @@ Interactively, display a list of files in `rpgdm-screen-directory'."
                      rpgdm-screen-window-side))
       (find-file filename))))
 
+(defun rpgdm-quick-close ()
+  "Easily close the current chart."
+  (interactive)
+  (kill-buffer)
+  (delete-window))
 
 (defun rpgdm-screen-screen-list ()
   "A memoized list of cons cells containing the title and fully-qualified filename."

rpgdm-tables.el

@@ -44,27 +44,39 @@
 Files will be stored in `rpgdm-tables' hash, and available by name
 when calling `rpgdm-tables-choose'."
   (interactive (list (read-directory-name "DM Tables Directory: " rpgdm-tables-directory)))
+  (unless filepath
+    (setq filepath rpgdm-tables-directory))
   (rpgdm-tables--load-dir filepath)
   (message "Read: %s" (s-join ", " (hash-table-keys rpgdm-tables))))
 
 (defun rpgdm-tables--load-dir (filepath &optional prefix)
   "Read and parse the files in the directory given by FILEPATH.
 PREFIX all tables if this parameter is given."
-  (dolist (file (directory-files filepath t))
+  (dolist (file (directory-files filepath t (rx bol (not "."))))
     (let ((new-prefix (s-join "/" (-flatten (list prefix (file-name-base file))))))
-      (message "Reading: %s (%s)" file new-prefix)
       (cond ((file-directory-p file)    (rpgdm-tables--load-dir file new-prefix))
             ((and (file-regular-p file) (file-readable-p file))
-             (rpgdm-tables--load-file file prefix))))))
+             (rpgdm-tables--almost-load-file file prefix))))))
 
-(defun rpgdm-tables--load-file (filepath prefix)
+(defun rpgdm-tables--almost-load-file (filepath &optional prefix)
-  "Read, parse and store the table given by FILEPATH.
+  "Loading hundreds of tables takes a long time, and fills up memory.
-PREFIX the table name, if given."
+Instead, we store a reference to FILEPATH with the optional
-  (let ((name (file-name-base filepath))
+PREFIX, and then if we query for that table (and it is just a
-        (contents (rpgdm-tables--read-table-file filepath)))
+string), we load it then."
+  (let ((name (file-name-base filepath)))
     (if prefix
         (setq name (format "%s/%s" prefix name)))
-    ;; (message "Read: %s" table-file)
+    (puthash name filepath rpgdm-tables)))
+
+(defun rpgdm-tables-load-file (filepath &optional name)
+  "Read, parse and store the table given by FILEPATH.
+Store it by NAME in the `rpgdm-tables' hash table."
+  (interactive (list (read-file-name "DM Table: " rpgdm-tables-directory)))
+  (when (null name)
+    (setq name (file-name-base filepath)))
+  (let ((contents (rpgdm-tables--read-table-file filepath)))
+    (when (called-interactively-p)
+      (message "Read: %s" name))
     (puthash name contents rpgdm-tables)))
 
 
@@ -79,6 +91,8 @@ dice table (see `rpgdm-tables--choose-dice-table')."
   (interactive (list (completing-read "Choose from Table: "
                                       (sort (hash-table-keys rpgdm-tables) #'string-lessp))))
   (when-let ((table  (gethash table-name rpgdm-tables)))
+    (when (stringp table)
+      (setq table (rpgdm-tables-load-file table table-name)))
     (let* ((result   (cond ((dice-table-p table) (rpgdm-tables--choose-dice-table table))
                            ((hash-table-p table) (rpgdm-tables--choose-freq-table table))
                            ((listp table)        (rpgdm-tables--choose-list table))
@@ -87,6 +101,7 @@ dice table (see `rpgdm-tables--choose-dice-table')."
            (dice-sum (lambda (dice-exp) (number-to-string (rpgdm-roll-sum dice-exp))))
            (no-dice-nums  (replace-regexp-in-string rpgdm-roll-regexp dice-sum result))
            (no-alt-words  (rpgdm-tables--choose-string-list no-dice-nums)))
+      (kill-new no-alt-words)
       (rpgdm-message "%s" no-alt-words))))
 
 (defun rpgdm-tables--choose-list (lst)