(defvar potions-package-alias
  '((player . prefab-player)
    (wizard . prefab-wizard)
    (button . prefab-button)
    (cat . prefab-cat)
    (fence . prefab-fence)
    (ford . prefab-ford)
    (ingredients . prefab-ingredients)
    (object . prefab-object)
    (pot . prefab-pot)
    (potions . prefab-potions)
    (assets . assets)
    (camera . camera)
    (interface . interface)
    (message . message)
    (pallet . pallet)
    (handlers . handlers)))

(defun love-alias-package-as-locals (package-alias)
  (let* ((fennel-process (inferior-lisp-proc))
         (apply-function (lambda (package)
                           (format "(do (require :%s) \"Aliasing %s as %s\") (local %s _G.package.loaded.%s)\n"
                                   (cdr package) (car package) (cdr package) (car package) (cdr package))))
         (string (format "%s\n"  (mapconcat apply-function package-alias ""))))
    (comint-proc-query fennel-process string)))

Generated by alexjgriffith using scpaste at Fri Apr 7 18:05:52 2023. EDT. (original)