howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adding my hot-new Ironsworn package to my loader

Browse source
This commit is contained in:
Howard Abrams 2022-03-03 15:10:16 -08:00
parent ac229daab0
commit 6b2df99faf
2 changed files with 32 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
ha-aux-apps.org
View file

@ -58,8 +58,19 @@ Been working on a project for getting Emacs helping as a /Dungeon Master's Assis
(use-package rpgdm (use-package rpgdm
:straight (:local-repo "~/other/rpgdm") :straight (:local-repo "~/other/rpgdm")
:commands (rpgdm-mode rpgdm-tables-load) :commands (rpgdm-mode rpgdm-tables-load)
:init (setq rpgdm-base (expand-file-name "~/other/rpgdm"))
:config (ha-leader "t D" '("rpg dm" . rpgdm-mode)))) :config (ha-leader "t D" '("rpg dm" . rpgdm-mode))))
#+END_SRC #+END_SRC
And my new Ironsworn project:
#+BEGIN_SRC emacs-lisp
(when (f-directory? "~/other/emacs-ironsworn")
(use-package rpgdm-ironsworn
:after rpgdm
:straight (:local-repo "~/other/emacs-ironsworn")
:init
(setq rpgdm-ironsworn-project (expand-file-name "~/other/emacs-ironsworn"))))
#+END_SRC
* Technical Artifacts :noexport: * Technical Artifacts :noexport:
Let's =provide= a name so we can =require= this file: Let's =provide= a name so we can =require= this file:

4
ha-org-clipboard.org
View file

@ -46,7 +46,7 @@ Let's define the clipboard for a Mac. The challenge here is that we need to bina
(defun ha-get-mac-clipboard () (defun ha-get-mac-clipboard ()
"Returns a list where the first entry is the content type, "Returns a list where the first entry is the content type,
either :html or :text, and the second is the clipboard contents." either :html or :text, and the second is the clipboard contents."
(destructuring-bind (exit-code contents) (cl-destructuring-bind (exit-code contents)
(shell-command-with-exit-code "osascript" "-e" "the clipboard as \"HTML\"") (shell-command-with-exit-code "osascript" "-e" "the clipboard as \"HTML\"")
(if (= 0 exit-code) (if (= 0 exit-code)
(list :html (ha-convert-applescript-to-html contents)) (list :html (ha-convert-applescript-to-html contents))
@ -71,7 +71,7 @@ And define the same interface for Linux. Keep in mind, we need the exit code fro
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun ha-get-linux-clipboard () (defun ha-get-linux-clipboard ()
"Return the clipbaard for a Unix-based system. See `ha-get-clipboard'." "Return the clipbaard for a Unix-based system. See `ha-get-clipboard'."
(destructuring-bind (exit-code contents) (cl-destructuring-bind (exit-code contents)
(shell-command-with-exit-code "xclip" "-o" "-t" "text/html") (shell-command-with-exit-code "xclip" "-o" "-t" "text/html")
(if (= 0 exit-code) (if (= 0 exit-code)
(list :html contents) (list :html contents)