From 0060ede50a36fe2c6f102db6d7c4593d7358058e Mon Sep 17 00:00:00 2001
From: Chris Cochrun <chris@cochrun.xyz>
Date: Mon, 26 Aug 2024 09:37:05 -0500
Subject: [PATCH] some dnd stuff

---
 README.org | 7 +++++++
 init.el    | 7 +++++++
 2 files changed, 14 insertions(+)

diff --git a/README.org b/README.org
index a8a00b3b..d570fe19 100644
--- a/README.org
+++ b/README.org
@@ -5450,6 +5450,13 @@ Using emacs to run rpg things
 #+begin_src emacs-lisp
 (add-to-list 'load-path "/home/chris/dev/emacs-rpgdm/")
 (use-package rpgdm
+  :config
+  (defun chris/dnd-skill-check (&optional skill)
+    "Roll for a skill check using skill or prompting for one."
+    (interactive)
+    (let* ((skills (org-table-get-remote-range "20240826T061454.312500:skills" "$I..II"))
+           (skill (if skill skill (completing-read "Which skill: " ))))))
+
   :general
   (chris/leader-keys
     :states 'normal
diff --git a/init.el b/init.el
index 782c003f..dec8a2be 100644
--- a/init.el
+++ b/init.el
@@ -4015,6 +4015,13 @@ interfere with the default `bongo-playlist-buffer'."
 
 (add-to-list 'load-path "/home/chris/dev/emacs-rpgdm/")
 (use-package rpgdm
+  :config
+  (defun chris/dnd-skill-check (&optional skill)
+    "Roll for a skill check using skill or prompting for one."
+    (interactive)
+    (let* ((skills (org-table-get-remote-range "20240826T061454.312500:skills" "$I..II"))
+           (skill (if skill skill (completing-read "Which skill: " ))))))
+
   :general
   (chris/leader-keys
     :states 'normal