Emacs Stuff

("source" .
 "(eval (concat \"See [[\"(ems-read-dict-source \"$1\") \"]].\"))")
("define" .
 "(eval (ems-read-dict-def $1))")
("Define" .
 "(eval (ems-cap-first-char (ems-read-dict-def $1)))")
("ref" .
 "{{{Define($1)}}} {{{source($1)}}}")

("document-type" .
 "document")
("doc" .
 "{{{document-type}}}")
("document-eli" .
 "(eval (ems-read-document-eli \"$1\"))")

("bow-character-template" .
 "(eval (ems-bow-compose-character-template $1))")

("ref" . "{{{define($1)}}} {{{source($1)}}}")
        ("define" . "{{{$1-definition}}}")
        ("contact" . "{{{$1-contact}}}")
        ("read" . "Read \"{{{$1-title}}},\" by {{{$1-author}}}. {{{source($1)}}} {{{$1-opinion}}}")
        ("source-link" . "See [[$1][$1]]")
        ("hashtag-link" . " or #$1")

("document-eli-default" . "This {{{document-type}}} was created by me, emsenn, in the United States. To the extent possible under law, I have waived all copyright and related or neighboring rights to this document. This document was created for the benefit of the public. If you're viewing it on a remote server, you're encouraged to download your own copy. To learn how you can support me, see [[https://emsenn.net/donate][https://emsenn.net/donate]].")
("document-eli-default-with-elisp" . "This {{{document-type}}} was created by me, emsenn, in the United States. With the exception of /Emacs Lisp/ code contained within, to the extent possible under law, I have waived all copyright and related or neighboring rights to this {{{document-type}}}. This {{{document-type}}} was created for the benefit of the public. Sections of this {{{document-type}}} written in /Emacs Lisp/ (\"these sections\") are free software: you can redistribute them freely and/or modify them under the terms of version 3 of the /GNU General Public License/ as published by the /Free Software Foundation/. These sections are distributed in the hope that they will be useful, but *without any warranty*; without even the implied warranty of *merchantability* or *fitness for a particular purpose*. See the /GNU General Public License/ for more details. You should have received a copy of the /GNU General Public License/ with this {{{document-type}}} under the [[#gnu-gpl][\"GNU General Public License\"]] section under the [[#supplements][\"Supplements\"]] section. If not, see [[http://www.gnu.org/licenses/][http://www.gnu.org/licenses/]].")
("document-is-draft" . "This {{{document-type}}} is a /draft/: it is unfinished and that should be considered when reading it. Special attention should be paid to text marked DRAFT, EDIT, or TK.")
("document-has-project" . "This {{{document-type}}} is part of a larger project, {{{project-name}}}. {{{project-logline}}} {{{project-brief}}} For more information, see {{{project-homepage}}}")
("document-brief" . "\"{{{title}}}\" is a {{{document-type}}} created by {{{author}}}.")
("document-implements-literate-programming" . "This {{{document-type}}} implements its content using the /literate programming/ paradigm. The \"software\" being presented is included as sections of code, within a longer piece of prose which explains the codes' purpose and usage. {{{source(literate-programming)}}}")
("document-is-software-prototype" . "This {{{document-type}}} is about a software prototype. It is likely to be inaccurate.")
("document-is-prototype" . "This {{{document-type}}} is about a prototype $1. It is likely to be incomplete, self-contradicting, and flawed.")
("document-can-tangle" . "This /Org-mode/ source file contains code which can be extracted. See [[https://orgmode.org/manual/Working-with-source-code.html][https://orgmode.org/manual/Working-with-source-code.html]].")

("project-brief" . "{{{project-name}}} is a {{{project-type}}} in {{{project-development-stage}}} being created by {{{project-author}}}.")
("project-eli" . "This {{{project-type}}} is maintained by {{{author}}} and is released for the benefit of the public under the terms in the {{{project-license-link(\"Project License\" section)}}}. It was made possible with {{{project-support-link(support)}}} from humans like you. Thank you. Please direct comments to the {{{author}}} through their {{{project-public-inbox}}} or, if appropriate, their {{{project-private-inbox}}}.")

("activitypub-definition" . "A decentralized communication protocol for uploading, broadcasting, and subscribing to content.")
("activitypub-source" . "See {{{source-link(https://activitypub.rocks/)}}} or #ActivityPub.")
("bitbucket-definition" . "$1")
("bitbucket-source" . "$1")
("broadcast-definition" . "To send a piece of information to /subscribers/ or into a public area.")
("broadcast-source" . "$1")
("brutalism-definition" . "A style exaggerating the pragmatic functionality present in modernist design.")
("brutalism-source" . "{{{source-link(https://en.wikipedia.org/wiki/Brutalist_architecture)}}}")
("brutstrap-css-definition" . "$1")
("brutstrap-css-source" . "$1")
("bryant-stephanie-definition" . "Creator of the /30 Days of World Building/ challenge, and an Agile and SCRUM coach.")
("bryant-stephanie-source" . "{{{source-link(http://www.mortaine.com/)}}}")
("dictionary-definition" . "A pairing of keys to the values that define them.")
("css-definition" . "$1")
("css-source" . "$1")
("domain-name-definition" . "A string (group of letters) defining the name of an area of the Internet.")
("domain-name-source" . "See {{{source-link(https://en.wikipedia.org/wiki/Domain_name)}}}.")
("elisp-definition" . "A dialect of the /Lisp/ programming language used by /Emacs/.")
("elisp-source" . "{{{source-link(https://en.wikipedia.org/wiki/Emacs_Lisp)}}}")
("emacs-definition" . "A software, a programming interpretter focused around being a text-editor.")
("emacs-source" . "{{{source-link(https://www.gnu.org/software/emacs/)}}} or #Emacs.")
("emacs-buffer-definition" . "An /Emacs/ object for holding a quantity of text.")
("emacs-buffer-source" . "{{{source-link(https://www.gnu.org/software/emacs/manual/html_node/emacs/Buffers.html)}}}")
("emacs-configuration-personal-definition" . "Not available.")
("emacs-configuration-personal-source" . "$1")
("emacs-package-definition" . "A collection of /Emacs Lisp/ declarations that add additional features.")
("emacs-package-source" . "{{{source-link(https://www.gnu.org/software/emacs/manual/html_node/emacs/Packages.html)}}}")
("email-definition" . "A collection of protocols for exchanging text messages between clients on servers.")
("email-source" . "See {{{source-link(https://en.wikipedia.org/wiki/Email)}}}.")
("email-list-definition" . "$1")
("email-list-source" . "$1")
("emsenn-definition" . "A writer and developer focused on how words affect our thinking.")
("emsenn-source" . "{{{source-link(https://emsenn.net/)}}}")
("emsenn-contact" . "Send an email to [[mailto:emsenn@emsenn.net][emsenn.net]].")
("emsenn-net-definition" . "A web service where I broadcast my writing.")
("emsenn-net-source" . "See {{{source-link(https://emsenn.net)}}}.")
("fediverse-definition" . "The conglomeration of federated communication platforms, or its culture.")
("fediverse-source" . "See {{{source-link(https://en.wikipedia.org/wiki/Fediverse)}}} or #Fediverse.")
("gfm-definition" . "A specialization of the /Markdown/ formatting for styling text documents.")
("gfm-source" . "See {{{source-link(https://github.github.com/gfm/)}}}.")
("git-definition" . "A software tool for tracking and coordinating changes in computer files.")
("git-source" . "{{{source-link(https://git-scm.com/)}}}{{{hashtag-link(Git)}}}.")
("git-forge-definition" . "A web service providing an interface to and extending a /Git/ repository.")
("git-forge-source" . "$1")
("git-repository-definition" . "$1")
("git-repository-source" . "$1")
("git-submodule-definition" . "$1")
("git-submodule-source" . "$1")
("github-definition" . "$1")
("github-source" . "$1")
("gitlab-definition" . "$1")
("gitlab-source" . "$1")
("golang-definition" . "A computer programming language.")
("golang-source" . "See {{{source-link(https://golang.org)}}}.")
("guix-definition" . "A software tool for managing a computer system's software packages.")
("guix-source" . "{{{source-link(https://www.gnu.org/software/guix/)}}}.")
("html-definition" . "A way of adding layout, formatting, and media to text documents.")
("html-source" . "{{{source-link(https://en.wikipedia.org/wiki/HTML)}}}.")
("hugo-definition" . "A software tool for creating rendered documents from formatted text files.")
("hugo-source" . "{{{source-link(https://gohugo.io/)}}}")
("hugo-config-source" . "{{{source-link(https://gohugo.io/getting-started/configuration/)}}}")
("hugo-configuration-definition" . "$1")
("hugo-configuration-source" . "$1")
("hugo-content-type-definition" . "The classification of a piece based on what form of media it is.")
("hugo-content-type-source" . "{{{source-link(https://gohugo.io/content-management/types/)}}}")
("hugo-front-matter-definition" . "A collection of data associated with a content piece.")
("hugo-front-matter-source" . "{{{source-link(https://gohugo.io/content-management/front-matter/)}}}.")
("hugo-templates-definition" . "The framework which determines what is in a rendered document and how it appears.")
("hugo-templates-source" . "{{{source-link(https://gohugo.io/templates/lookup-order/)}}}")
("hugo-lookup-order-definition" . "The order in which /Hugo/ looks up which layout(s) to apply to a page.")
("hugo-lookup-order-source" . "{{{source-link(https://gohugo.io/templates/lookup-order/#readout)}}}.")
("hugo-partial-templates-definition" . "$1")
("hugo-partial-templates-source" . "{{{source-link(https://gohugo.io/templates/partials/)}}}")
("hugo-themes-definition" . "Collections of layouts for use by the /Hugo/ static site generator.")
("hugo-themes-source" . "https://gohugo.io/themes/")
("hugo-media-package-channel-theme-definition" . "A /Hugo theme/ for creating a media package channel.")
("hugo-media-package-channel-theme-source" . "$1")
("indieweb-definition" . "A set of data specifications and software utilities for coordinating the serialization of social data.")
("indieweb-source" . "{{{source-link(https://indieweb.org/)}}}.")
("javascript-definition" . "An interpretted programming language used frequently in Web development.")
("javascript-source" . "{{{source-link(https://en.wikipedia.org/wiki/JavaScript)}}}.")
("json-definition" . "A human-readable data format.")
("json-source" . "{{{source-link(https://json.org/)}}}.")
("lisp-definition" . "A family of computer programming languages influenced by lambda calculus.")
("lisp-source" . "{{{source-link(https://en.wikipedia.org/wiki/Lisp_(programming_language))}}}")
("literate-programming-definition" . "A programming paradigm in which information is presented in natural language with traditional source code implemented as figures within that text.")
("literate-programming-source" . "{{{source-link(https://en.wikipedia.org/wiki/Literate_programming)}}}")
("markdown-definition" . "A way of adding style notation to plain text.")
("markdown-source" . "https://daringfireball.net/projects/markdown/")
("mastodon-definition" . "A platform for broadcasting and receiving short text messages between users on different servers and viewing aggregate feeds of servers or tagged posts.")
("mastodon-source" . "See {{{source-link(https://joinmastodon.org/)}}} {{{tag-link(Mastodon)}}}")
("media-package-definition" . "A manifest of metadata about a piece of media content.")
("media-package-source" . "$1")
("media-package-channel-definition" . "A listing of /media packages/.")
("media-package-channel-source" . "$1")
("media-package-channel-generator-definition" . "A software that turns /media packages/ into a /media package channel/.")
("media-package-channel-generator-source" . "$1")
("microsoft-definition" . "$1")
("microsoft-source" . "$1")
("microblog-definition" . "$1")
("microblog-source" . "$1")
("microblog-federated-definition" . "$1")
("microblog-federated-source" . "$1")
("netlify-definition" . "$1")
("netlify-source" . "$1")
("org-mode-definition" . "A way of formatting plain data inside text documents.")
("org-mode-source" . "{{{source-link(https://orgmode.org/)}}} {{{hashtag-link(OrgMode)}}}.")
("org-mode-babel-definition" . "A software tool for using code integrated into /Org-mode/ documents.")
("org-mode-babel-source" . "{{{source-link(https://orgmode.org/worg/org-contrib/babel/intro.html)}}}")
("org-mode-babel-tangle-definition" . "$1")
("org-mode-babel-tangle-source" . "$1")
("org-mode-macros-definition" . "A way to replace text in a source document when it is exported to a rendered document.")
("org-mode-macros-source" . "{{{source-link(https://orgmode.org/manual/Macro-replacement.html)}}}")
("org-mode-refile-definition" . "A way to move text from one part a document to another, or into another document entirely.")
("org-mode-refile-source" . "{{{source-link(https://orgmode.org/manual/Refile-and-Copy.html#Refile-and-Copy)}}}")
("ox-gfm-definition" . "A software tool for exporting /Org-mode/ files to /Github-Flavored Markdown/.")
("ox-gfm-source" . "See {{{source-link(https://github.com/larstvei/ox-gfm)}}}.")
("ox-hugo-definition" . "A software tool for exporting /Org-mode/ files to /Hugo/-compatible /Markdown/.")
("ox-hugo-source" . "{{{source-link(https://ox-hugo.scripter.co/)}}}.")
("plate-tectonics-definition" . "A theory describing the movement of rock segments under a plates surface leading to the formation of geographic features.")
("plate-tectonics-source" . "{{{source-link(https://en.wikipedia.org/wiki/Plate_tectonics)}}}.")
("programming-functional-definition" . "A style of writing computer programs as a composition of mathematical functions.")
("programming-functional-source" . "{{{source-link(https://en.wikipedia.org/wiki/Functional_programming)}}}")
("programming-object-oriented-definition" . "A style of writing computer programs as objects who changes through interaction.")
("programming-object-oriented-source" . "{{{source-link(https://en.wikipedia.org/wiki/Object-oriented_programming)}}}")
("python-definition" . "An interpreted dynamically typed and garbage collected computer programming language.")
("python-source" . "{{{source-link(https://en.wikipedia.org/wiki/Python_(programming_language))}}}")
("rss-definition" . "A file format for sharing a feed of a website's content; usually recently added pages.")
("rss-source" . "See {{{source-link(https://en.wikipedia.org/wiki/RSS)}}}.")
("software-stack-definition" . "$1")
("software-stack-source" . "$1")
("sourcehut-definition" . "$1")
("sourcehut-source" . "$1")
("subscribe-definition" . "To choose to receive communication from a source.")
("subscribe-source" . "$1")
("teraum-definition" . "A tragically funny fantasy setting.")
("teraum-source" . "See {{{source-link(https://emsenn.net/teraum/)}}} {{{hashtag-link(Teraum)}}}.")
("teraum-arathel-definition" . "A sleepy, worn-down town.")
("teraum-arathel-source" . "$1")
("teraum-arathel-county-definition" . "A swampy and sandy county.")
("teraum-arathel-county-source" . "$1")
("teraum-central-plains-definition" . "A large agricultural region, full of towns and castles.")
("teraum-central-plains-source" . "$1")
("teraum-falling-coast-definition" . "A massive cliff dividing a vast desert from the rest of the world.")
("teraum-falling-coast-source" . "$1")
("teraum-green-delta-definition" . "A hospitable and well-settled region of the world.")
("teraum-green-delta-source" . "$1")
("teraum-green-river-definition" . "A slow wide river, cutting through the world.")
("teraum-green-river-source" . "$1")
("teraum-kaiper-river-definition" . "A silty excuse for a river.")
("teraum-kaiper-river-source" . "$1")
("teraum-old-world-definition" . "The large continent where most of history happened.")
("teraum-old-world-source" . "$1")
("teraum-optic-ocean-definition" . "A large desert separating one part of the world from the other.")
("teraum-optic-ocean-source" . "$1")
("teraum-unseen-sea-definition" . "A desert so large it was first mistaken for a seabed.")
("teraum-unseen-sea-source" . "$1")
("teraum-worldkeepers-definition" . "A range of large mountains.")
("teraum-worldkeepers-source" . "$1")
("teraum-worldkeep-definition" . "A vast complex housing an unbelievable variety of magic lifeforms.")
("teraum-worldkeep-source" . "$1")
("thirty-days-of-world-building-definition" . "A series of prompts for building a fictional world.")
("thirty-days-of-world-building-source" . "See {{{source-link(http://www.web-writer.net/fantasy/days/)}}} or #30DaysOfWorldBuilding.")
("toml-definition" . "A human-readable data format.")
("toml-source" . "{{{source-link(https://github.com/toml-lang/toml)}}}.")
("use-package-definition" . "An /Emacs/ macro for isolating package configurations.")
("use-package-source" . "{{{source-link(https://github.com/jwiegley/use-package)}}}")
("web-browser-definition" . "A software tool for viewing and interacting with information on remote servers, usually rich documents.")
("web-browser-source" . "{{{source-link(https://en.wikipedia.org/wiki/Web_browser)}}}")
("website-dynamic-definition" . "$1")
("website-dynamic-source" . "$1")
("website-personal-definition" . "$1")
("website-personal-source" . "$1")
("website-static-definition" . "$1")
("website-static-source" . "$1")
("write-as-definition" . "A web service providing /WriteFreely/ hosting.")
("write-as-source" . "See {{{source-link(https://write.as/)}}} or #WriteAs")
("writefreely-el-definition" . "A script for uploading /Org-mode/ text to a /WriteFreely/ instance.")
("writefreely-el-source" . "See {{{source-link(https://github.com/dangom/writefreely.el)}}}.")
("writefreely-definition" . "A software service for broadcasting long text documents.")
("writefreely-source" . "See {{{source-link(https://writefreely.org/)}}} or #WriteFreely.")

("shaggy-dog-tale-title" . "A Shaggy Dog Tale")
("shaggy-dog-tale-author" . "emsenn")
("shaggy-dog-tale-source" . "{{{source-link(unavailable)}}}")
("shaggy-dog-tale-opinion" . "A well-written story that doesn't go anywhere.")

)

(defun ems-read-something
    ()
  "Return a random element's cdr, which should be a string that is a URL, from the ems-reading-list variable."
  (cdr (assoc 'source (cdr (seq-random-elt (cdr (assoc 'pending ems-reading-log)))))))

(defun ems-read-something-now ()
  "Opens a random item from the pending reading list."
  (interactive) (browse-url (ems-read-something)))

(defun ems-plan-to-read
    (tit auth src)
  "Adds an item to my reading list"
  (interactive "sTitle? \nsAuthor? \nsSource? ")
  (push
   (cons tit (cons (cons 'author auth) (list (cons 'source src))))
   (cdr (assoc 'pending ems-reading-log))))

(defun ems-read (title)
"Moves TITLE from the pending reading log to the read reading log. I hate the word 'read'."
)

(setq teraum-data '())

(setq teraum-twisted-alembic
      '(("name" . "Twisted Alembic")
        ("description" . "The Twisted Alembic clearly was a nice
        tavern, but these days it's a bit more rundown.")
        ("exits"
         (("south" .  teraum-caliper-street)))))

(setq teraum-caliper-street
      '(("name" . "Caliper Street")
        ("description" . "One of the busiest streets in the Brass
        Ward, Caliper Street is home to the workshops that drive
        Ack's more luxurious industries. Bookbinders, luthiers,
        watchmakers and more have shops here.")
        ("exits"
         ("north" .  teraum-twisted-alembic))))

(push
 '(green-delta
   (name . "Green Delta")
   (description . "The Green Delta is a fertile region, dense with farms and small villages.")
   (nav
    (east . central-plains)
    (southeast . gloaming)
    (south . widewoods)
    (west . optic-ocean)))
 teraum-data)

(push
 '(easy-smoking-pipe
   (name . "easy-smoking pipe")
   (description . "The easy-smoking pipe is a wooden pipe which emits an intoxicating smoke. The magic comes from the pipe itself; anything burnt in it produces the same effect.")
   (location . anadini-jenos))
 teraum-data)

(push
 '(anadini-jenos
   (name . "Jenos Anadini")
   (description . "Jenos Anadini is a middle-aged human man who works for Honeyfern Laboratory as an archivist.")
   (inventory
    (easy-smoking-pipe .)))
 teraum-data)