chris/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

update to dnd

Browse source
This commit is contained in:
Chris Cochrun 2024-09-05 15:29:38 -05:00
parent 347619eae6
commit b9f59c6b80
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
README.org
View file

@ -5461,6 +5461,7 @@ Using emacs to run rpg things
(add-to-list 'load-path "/home/chris/dev/emacs-rpgdm/") (add-to-list 'load-path "/home/chris/dev/emacs-rpgdm/")
(use-package rpgdm (use-package rpgdm
:config :config
(setq chris/dnd-character "radon")
(defun chris/dnd-get-table (table range) (defun chris/dnd-get-table (table range)
"Get a list of the contents of any `table' and use `range' to get the info" "Get a list of the contents of any `table' and use `range' to get the info"
@ -5474,7 +5475,7 @@ Using emacs to run rpg things
(let* ((skills (with-current-buffer (let* ((skills (with-current-buffer
(find-file-noselect "~/docs/notes/20240804T132141--dungeons-and-dragons__area_fun_personal.org") (find-file-noselect "~/docs/notes/20240804T132141--dungeons-and-dragons__area_fun_personal.org")
(org-table-get-remote-range (org-table-get-remote-range
"skills" "@I$1..@II$2"))) (concat "skills" "-" chris/dnd-character) "@I$1..@II$2")))
(skill (completing-read "Which skill: " (skill (completing-read "Which skill: "
(seq-filter (seq-filter
'stringp 'stringp

3
init.el
View file

@ -4020,6 +4020,7 @@ interfere with the default `bongo-playlist-buffer'."
(add-to-list 'load-path "/home/chris/dev/emacs-rpgdm/") (add-to-list 'load-path "/home/chris/dev/emacs-rpgdm/")
(use-package rpgdm (use-package rpgdm
:config :config
(setq chris/dnd-character "radon")
(defun chris/dnd-get-table (table range) (defun chris/dnd-get-table (table range)
"Get a list of the contents of any `table' and use `range' to get the info" "Get a list of the contents of any `table' and use `range' to get the info"
@ -4033,7 +4034,7 @@ interfere with the default `bongo-playlist-buffer'."
(let* ((skills (with-current-buffer (let* ((skills (with-current-buffer
(find-file-noselect "~/docs/notes/20240804T132141--dungeons-and-dragons__area_fun_personal.org") (find-file-noselect "~/docs/notes/20240804T132141--dungeons-and-dragons__area_fun_personal.org")
(org-table-get-remote-range (org-table-get-remote-range
"skills" "@I$1..@II$2"))) (concat "skills" "-" chris/dnd-character) "@I$1..@II$2")))
(skill (completing-read "Which skill: " (skill (completing-read "Which skill: "
(seq-filter (seq-filter
'stringp 'stringp