howard/emacs-ironsworn
howard/emacs-ironsworn
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed header and removing tabs

Browse source
This commit is contained in:
Howard Abrams 2023-12-02 14:38:17 -08:00
parent bcfeba17d5
commit 9da91702c1
1 changed files with 68 additions and 68 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

136
README.org
View file

@ -226,7 +226,7 @@ Again, the UI will attempt to update all of these values, so you don't need to c
Details? Did someone say details? Let's talk about the code ... all the code that makes this work. Details? Did someone say details? Let's talk about the code ... all the code that makes this work.
* Code * Code
#+BEGIN_SRC emacs-lisp :exports none #+BEGIN_SRC emacs-lisp :exports none
;;; rpgdm-ironsworn -- Functions for integrating Ironsworn with Org ;;; rpgdm-ironsworn.el --- Functions for integrating Ironsworn with Org
;; ;;
;; Copyright (C) 2020 Howard X. Abrams ;; Copyright (C) 2020 Howard X. Abrams
;; ;;
@ -363,11 +363,11 @@ The basic interface will query for a modifer, roll all three dice, and then disp
results." results."
(interactive "nModifier: ") (interactive "nModifier: ")
(let ((one-challenge (rpgdm--roll-die 10)) (let ((one-challenge (rpgdm--roll-die 10))
(two-challenge (rpgdm--roll-die 10)) (two-challenge (rpgdm--roll-die 10))
(action-roll (rpgdm--roll-die 6))) (action-roll (rpgdm--roll-die 6)))
(rpgdm-message (rpgdm-ironsworn--results action-roll modifier (rpgdm-message (rpgdm-ironsworn--results action-roll modifier
one-challenge two-challenge one-challenge two-challenge
momentum)))) momentum))))
#+END_SRC #+END_SRC
** Character Information ** Character Information
@ -764,20 +764,20 @@ This function will be used for =interactive= to return a tuple of both the /oper
but decrements any other stats by `1'. Any other value means to take but decrements any other stats by `1'. Any other value means to take
the default for that stat." the default for that stat."
(let ((value (read-string (format "Adjustment to %s (+/-/= for absolute value): " label))) (let ((value (read-string (format "Adjustment to %s (+/-/= for absolute value): " label)))
(rxnum (rx (group (optional (or "+" "-" "="))) (* space) (group (+ digit)) (* space)))) (rxnum (rx (group (optional (or "+" "-" "="))) (* space) (group (+ digit)) (* space))))
(if (string-match rxnum value) (if (string-match rxnum value)
(let ((sign (match-string 1 value)) (let ((sign (match-string 1 value))
(numb (string-to-number (match-string 2 value)))) (numb (string-to-number (match-string 2 value))))
(cond (cond
((equal sign "-") `(:decrease ,numb)) ((equal sign "-") `(:decrease ,numb))
((equal sign "+") `(:increase ,numb)) ((equal sign "+") `(:increase ,numb))
((equal sign "=") `(:absolute ,numb)) ((equal sign "=") `(:absolute ,numb))
(t (if (eq label `momentum) `(:increase ,numb) `(:decrease ,numb))))) (t (if (eq label `momentum) `(:increase ,numb) `(:decrease ,numb)))))
(if (string-blank-p value) (if (string-blank-p value)
(if (eq label 'momentum) '(:increase 1) '(:decrease 1)) (if (eq label 'momentum) '(:increase 1) '(:decrease 1))
'(:reset 0))))) '(:reset 0)))))
#+END_SRC #+END_SRC
Best if we wrote some unit tests to both explain and verify this function. This test uses the [[help:cl-letf][letf]], which allows us to override the [[help:read-string][read-string]] function for my tests. Why yes, this is clever way of doing what other languages would need a /mock/ object. Best if we wrote some unit tests to both explain and verify this function. This test uses the [[help:cl-letf][letf]], which allows us to override the [[help:read-string][read-string]] function for my tests. Why yes, this is clever way of doing what other languages would need a /mock/ object.
@ -831,14 +831,14 @@ The =rpgdm-ironsworn-adjust-stat= function takes one of the four stats, like =
"Increase or decrease the current character's STAT by ADJ. "Increase or decrease the current character's STAT by ADJ.
If the STAT isn't found, returns DEFAULT." If the STAT isn't found, returns DEFAULT."
(let* ((tuple (rpgdm-ironsworn--read-stat stat)) (let* ((tuple (rpgdm-ironsworn--read-stat stat))
(curr (rpgdm-ironsworn-character-stat stat)) (curr (rpgdm-ironsworn-character-stat stat))
(oper (first tuple)) (oper (first tuple))
(numb (second tuple)) (numb (second tuple))
(new (cl-case oper (new (cl-case oper
(:increase (+ curr numb)) (:increase (+ curr numb))
(:decrease (- curr numb)) (:decrease (- curr numb))
(:absolute numb) (:absolute numb)
(t default)))) (t default))))
;; (message "Combining curr %d with %d with %s operator" curr numb oper) ;; (message "Combining curr %d with %d with %s operator" curr numb oper)
(rpgdm-ironsworn-store-character-state stat new))) (rpgdm-ironsworn-store-character-state stat new)))
#+END_SRC #+END_SRC
@ -1113,17 +1113,17 @@ The [[file:moves][moves]] directory contains one org file for each move. These f
The string representation is created by looking at the parent The string representation is created by looking at the parent
directory and file name." directory and file name."
(let* ((regx (rx "moves/" (let* ((regx (rx "moves/"
(group (one-or-more (not "/"))) (group (one-or-more (not "/")))
"/" "/"
(group (one-or-more (not "."))) (group (one-or-more (not ".")))
".org" eol)) ".org" eol))
(mtch (string-match regx file)) (mtch (string-match regx file))
(type (thread-last file (type (thread-last file
(match-string 1) (match-string 1)
(s-titleize))) (s-titleize)))
(name (thread-last file (name (thread-last file
(match-string 2) (match-string 2)
(s-replace-regexp "-" " ")))) (s-replace-regexp "-" " "))))
(list (format "%s :: %s" type name) file))) (list (format "%s :: %s" type name) file)))
#+END_SRC #+END_SRC
@ -1156,9 +1156,9 @@ Oh, one issue... how do I know where the data files for the moves are?
will return a cached copy." will return a cached copy."
(unless rpgdm-ironsworn-moves (unless rpgdm-ironsworn-moves
(setq rpgdm-ironsworn-moves (setq rpgdm-ironsworn-moves
(mapcar 'rpgdm-ironsworn--move-tuple (mapcar 'rpgdm-ironsworn--move-tuple
(directory-files-recursively (directory-files-recursively
(f-join rpgdm-ironsworn-project "moves") (f-join rpgdm-ironsworn-project "moves")
(rx (1+ any) ".org" eos))))) (rx (1+ any) ".org" eos)))))
rpgdm-ironsworn-moves) rpgdm-ironsworn-moves)
#+END_SRC #+END_SRC
@ -1211,7 +1211,7 @@ Now, let's do the Move interface. We need to load the documentation, and retriev
;; Normally, we'd call `save-window-excursion', however, that buries the file ;; Normally, we'd call `save-window-excursion', however, that buries the file
;; we show, and I think we should leave it up for study. ;; we show, and I think we should leave it up for study.
(let (props title (let (props title
(orig-buf (window-buffer))) (orig-buf (window-buffer)))
(find-file-other-window move-file) (find-file-other-window move-file)
(goto-char (point-min)) (goto-char (point-min))
(setq title (cdr (assoc "ITEM" (org-entry-properties)))) (setq title (cdr (assoc "ITEM" (org-entry-properties))))
@ -1329,14 +1329,14 @@ A helper function for allowing the user to choose which track to mark progress a
allows the user to choose the number of squares that have been allows the user to choose the number of squares that have been
marked against some progress." marked against some progress."
(let* ((other "<other>") (let* ((other "<other>")
(tracks (rpgdm-ironsworn-character-progresses)) (tracks (rpgdm-ironsworn-character-progresses))
(choices (if allow-other (choices (if allow-other
(append tracks (list other)) (append tracks (list other))
tracks)) tracks))
(original (completing-read "Progress Track: " choices))) (original (completing-read "Progress Track: " choices)))
(if (and allow-other (equal original other)) (if (and allow-other (equal original other))
(read-number "Completed Track Amount [0-10]: ") (read-number "Completed Track Amount [0-10]: ")
original))) original)))
#+END_SRC #+END_SRC
Adding a progress to a character amounts to an arbitrary name, and the number of ticks, that amount to a /level/. For instance, we want to mark two boxes against a /dangerous/ track, which is =8= ticks. We store this in the character's hash-table, under the key, =progress-tracks=: Adding a progress to a character amounts to an arbitrary name, and the number of ticks, that amount to a /level/. For instance, we want to mark two boxes against a /dangerous/ track, which is =8= ticks. We store this in the character's hash-table, under the key, =progress-tracks=:
@ -1540,25 +1540,25 @@ Requires a =place-type= to help limit the values that can be in /place/ and then
The PLACE-TYPE is something like 'shadowfen or 'sea-cave, The PLACE-TYPE is something like 'shadowfen or 'sea-cave,
and helps to make the new name more meaningful to the place." and helps to make the new name more meaningful to the place."
(interactive (list (completing-read "Place type: " (interactive (list (completing-read "Place type: "
'(barrow cavern icereach mine pass ruin '(barrow cavern icereach mine pass ruin
sea-cave shadowfen stronghold sea-cave shadowfen stronghold
tanglewood underkeep)))) tanglewood underkeep))))
(unless place-type (unless place-type
(setq place-type "unknown")) (setq place-type "unknown"))
(let ((description (rpgdm-tables-choose "site/name/description")) (let ((description (rpgdm-tables-choose "site/name/description"))
(detail (rpgdm-tables-choose "site/name/detail")) (detail (rpgdm-tables-choose "site/name/detail"))
(namesake (rpgdm-tables-choose "site/name/namesake")) (namesake (rpgdm-tables-choose "site/name/namesake"))
(place (rpgdm-tables-choose (format "site/name/place/%s" (downcase place-type)))) (place (rpgdm-tables-choose (format "site/name/place/%s" (downcase place-type))))
(roll (rpgdm--roll-die 100))) (roll (rpgdm--roll-die 100)))
(rpgdm-message (rpgdm-message
(cond (cond
((<= roll 25) (format "%s %s" description place)) ((<= roll 25) (format "%s %s" description place))
((<= roll 50) (format "%s of %s" place detail)) ((<= roll 50) (format "%s of %s" place detail))
((<= roll 70) (format "%s of %s %s" place description detail)) ((<= roll 70) (format "%s of %s %s" place description detail))
((<= roll 80) (format "%s of %s's %s" place namesake detail)) ((<= roll 80) (format "%s of %s's %s" place namesake detail))
((<= roll 85) (format "%s's %s" namesake place)) ((<= roll 85) (format "%s's %s" namesake place))
((<= roll 95) (format "%s %s of %s" description place namesake)) ((<= roll 95) (format "%s %s of %s" description place namesake))
(t (format "%s of %s" place namesake)))))) (t (format "%s of %s" place namesake))))))
#+END_SRC #+END_SRC
While the following functions can take advantage of this function, we also want to place it in our normal =rpgdm-tables= hash, so that we can choose it there: While the following functions can take advantage of this function, we also want to place it in our normal =rpgdm-tables= hash, so that we can choose it there:
@ -1594,9 +1594,9 @@ Notice we also generate a name for the place.
The nature is a combination of theme and domain." The nature is a combination of theme and domain."
(interactive) (interactive)
(let* ((theme (rpgdm-tables-choose "site/theme")) (let* ((theme (rpgdm-tables-choose "site/theme"))
(domain (rpgdm-tables-choose "site/domain")) (domain (rpgdm-tables-choose "site/domain"))
(place (downcase domain)) (place (downcase domain))
(name (rpgdm-ironsworn-oracle-site-name place))) (name (rpgdm-ironsworn-oracle-site-name place)))
(rpgdm-message "%s %s :: %s" theme domain name))) (rpgdm-message "%s %s :: %s" theme domain name)))
#+END_SRC #+END_SRC
@ -1644,7 +1644,7 @@ With these properties in place, we can now do a much better job with the [[file:
"Return random result from weak hit table for Delve the Depths. "Return random result from weak hit table for Delve the Depths.
The STAT should be the symbol, 'wits, 'shadow, or 'edge." The STAT should be the symbol, 'wits, 'shadow, or 'edge."
(interactive (list (completing-read "Stat Choice: " (interactive (list (completing-read "Stat Choice: "
'("wits" "shadow" "edge")))) '("wits" "shadow" "edge"))))
(let ((table-name (format "delve/weak-hit/%s" stat))) (let ((table-name (format "delve/weak-hit/%s" stat)))
;; (message "Rolling on %s" table-name) ;; (message "Rolling on %s" table-name)
(rpgdm-tables-choose table-name))) (rpgdm-tables-choose table-name)))
@ -1712,12 +1712,12 @@ Some tables contain /code/ we need, so let’s gather those. The /trick/ is that
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defvar rpgdm-ironsworn-site-themes (defvar rpgdm-ironsworn-site-themes
(progn (rpgdm-tables-choose "site/theme") (progn (rpgdm-tables-choose "site/theme")
(gethash "site/theme" rpgdm-tables)) (gethash "site/theme" rpgdm-tables))
"A list of the Delve site themes.") "A list of the Delve site themes.")
(defvar rpgdm-ironsworn-site-domains (defvar rpgdm-ironsworn-site-domains
(progn (rpgdm-tables-choose "site/domain") (progn (rpgdm-tables-choose "site/domain")
(gethash "site/domain" rpgdm-tables)) (gethash "site/domain" rpgdm-tables))
"A list of the Delve site domains.") "A list of the Delve site domains.")
#+END_SRC #+END_SRC
He designed many of the tables to work together, for instance, you should roll on both the [[file:tables/actions.org][actions]] and [[file:tables/themes.org][themes]] and combine the result to kick-start your ideas. He designed many of the tables to work together, for instance, you should roll on both the [[file:tables/actions.org][actions]] and [[file:tables/themes.org][themes]] and combine the result to kick-start your ideas.
@ -1769,8 +1769,8 @@ The [[file:tables/combat-action.org][combat action]] table isn't often tactical,
"Return combat response combined from three combat tables." "Return combat response combined from three combat tables."
(interactive) (interactive)
(let ((action (rpgdm-tables-choose "combat/action")) (let ((action (rpgdm-tables-choose "combat/action"))
(method (rpgdm-tables-choose "combat/event-method")) (method (rpgdm-tables-choose "combat/event-method"))
(target (rpgdm-tables-choose "combat/event-target"))) (target (rpgdm-tables-choose "combat/event-target")))
(rpgdm-message "%s %s or %s" method target action))) (rpgdm-message "%s %s or %s" method target action)))
(puthash "combat" 'rpgdm-ironsworn-oracle-combat rpgdm-tables) (puthash "combat" 'rpgdm-ironsworn-oracle-combat rpgdm-tables)