Gnopon-Emacs on emsenn.net

GnoponEmacs Overview

Wed, 31 Dec 2025 00:00:00 +0000

GnoponEmacs is the Emacs environment for interacting with the Emsemioverse.

¶Purpose

Provide a consistent editing environment.
Support semiotic workflows across markdown, skills, and study materials.
Serve as the primary TUI/GUI for agents and humans.

GnoponEmacs Setup

Wed, 31 Dec 2025 00:00:00 +0000

This lesson outlines the setup steps for GnoponEmacs in this repository.

¶Setup steps

Use the repository init.el as the base configuration.
Keep settings in version control and avoid local-only divergences when possible.
Document any new packages or keybindings in the GnoponEmacs README.

Markdown Vault Workflows

Wed, 31 Dec 2025 00:00:00 +0000

GnoponEmacs should make it easy to navigate and edit a markdown vault.

¶Core workflows

Open a vault root and browse by file, tag, or link.
Jump between linked files and maintain backlinks.
Inspect and edit frontmatter with minimal friction.

¶Semiotic extensions

Surface interaction terms from headings and links.
Generate or open vault index files for overview navigation.

2025-07-22, Attempting to install tab

Mon, 01 Jan 0001 00:00:00 +0000

I’m going to see if I can’t get TAB installed today. I did git clone https://github.com/gaz561/tab and then make tab-bin as the index.md instructed. Got an error about lacking Lua - makes sense, the README said it was necessary. Trying sudo apt install lua prompted me to pick between a version, 5.1 to 5.4.

No memory what TAB used, so I went for 5.4.

Did a make clean to try and clean things up, but I noticed it did leave directories behind. make tab-bin proceeded without error.

Testing predicate graphs with GnoponEmacs

Mon, 01 Jan 0001 00:00:00 +0000

(defun gpe/ritm/collect-predicates-from-node (node)
  (let* ((raw-rd (alist-get "NODE-RELATIONS"
			    (org-roam-node-properties node) nil nil #'string=))
	 (alist (when raw-rd (ignore-errors (read raw-rd)))))
    (when alist
      (cl-loop
       for (pred . obj) in alist
       collect
       (let* ((parse-link
	       (lambda (s)
		 (when (string-match "\\[\\[id:\\([^]]+\\)\\]\\[\\([^]]+\\)\\]\\]" s)
		   (list :id (match-string 1 s)
			 :sign (match-string 2 s)))))
	      (pred-str
	       (replace-regexp-in-string "] \\[" "]["
					 (format "%s" pred)))
	     (obj-str
	      (replace-regexp-in-string "] \\[" "]["
					(format "%s" obj)))
	     (pred-link (funcall parse-link pred-str))
	     (obj-link  (funcall parse-link obj-str)))
	(list
           :subject-id id
           :subject-sign title
           :predicate-id (plist-get pred-link :id)
           :predicate-sign (plist-get pred-link :sign)
           :object-id (plist-get obj-link :id)
           :object-sign (plist-get obj-link :sign)))))))
(defun gpe/ritm/build-predicate-graph ()
  (cl-loop
   for (id file level pos todo priority scheduled deadline title props)
   in (org-roam-db-query
       [:select [id file level pos todo priority scheduled deadline title properties]
		:from nodes
		:where (or (like properties '"%NODE-RELATIONS%")
			   (like properties '"%node-relations%"))])
   for node = (org-roam-node-from-id id)
   collect (gpe/ritm/collect-predicates-from-node node)))
(defun gpe/ritm/filter-predicates-by (predicates predicate-id object-id)
  (cl-loop for entry in predicates
	   when (and (string= (plist-get (car entry) :predicate-id)
			      predicate-id)
		     (string= (plist-get (car entry) :object-id)
			      object-id))
	   collect (plist-get (car entry) :subject-id)))
(defun gpe/ritm/render-list-of-matches (pairs)
  (let ((graph (gpe/ritm/build-predicate-graph)))
    (mapconcat
     (lambda (pair)
       (let* ((predicate-id (car pair))
	      (object-id (cdr pair))
	      (ids
	       (gpe/ritm/filter-predicates-by
		graph predicate-id object-id))
	      (nodes (mapcar #'org-roam-node-from-id ids))
	      (output
	       (mapconcat
		(lambda (node)
		  (format "- [[id:%s][%s]]"
			  (org-roam-node-id node)
			  (org-roam-node-title node)))
		nodes
		"\n")))
	      output))
     pairs
     "\n\n")))

#+RESULTS:: gpe/ritm/render-list-of-matches

(gpe/ritm/filter-predicates-by (gpe/ritm/build-predicate-graph)     "bee496e1-139b-4a7f-8a24-d4c14e6084c6" "d542e8d2-3512-47a0-adbb-4a393e161ecb")

#+RESULTS: | 442470fd-62e2-4378-903f-6ed3ba005d10 | 1abdc5ad-2bb7-448d-af49-3e257c915685 |