xenodium-elisp

"The best UI is no UI. The second best UI is Emacs."

Package Overview

| Package | Stars | Description | |---------|-------|-------------| | chatgpt-shell | 1180⭐ | Multi-LLM Emacs shell (ChatGPT, Claude, DeepSeek, Gemini, Ollama) | | agent-shell | 415⭐ | Native Emacs buffer for LLM agents via ACP | | dwim-shell-command | 293⭐ | Save and apply shell commands with ease | | acp.el | 109⭐ | Agent Client Protocol implementation | | ob-swiftui | 87⭐ | SwiftUI in Org Babel blocks | | sqlite-mode-extras | 58⭐ | Enhanced sqlite-mode |

chatgpt-shell: Multi-LLM Interface

(use-package chatgpt-shell
  :custom
  (chatgpt-shell-model-version "gpt-4o")
  (chatgpt-shell-anthropic-key (getenv "ANTHROPIC_API_KEY"))
  (chatgpt-shell-openai-key (getenv "OPENAI_API_KEY"))
  :config
  ;; Switch between models
  (setq chatgpt-shell-model-versions
        '("gpt-4o" "gpt-4-turbo" "claude-3-5-sonnet" "gemini-pro")))

;; Key bindings
(global-set-key (kbd "C-c g") 'chatgpt-shell)
(global-set-key (kbd "C-c G") 'chatgpt-shell-send-region)

Shell Commands

| Command | Description | |---------|-------------| | chatgpt-shell | Open interactive shell | | chatgpt-shell-send-region | Send selected region | | chatgpt-shell-describe-code | Explain code at point | | chatgpt-shell-refactor-code | Refactor with AI | | chatgpt-shell-generate-unit-test | Generate tests |

agent-shell: ACP-Powered Agents

Agent Client Protocol enables structured agent workflows:

(use-package agent-shell
  :after acp
  :config
  (setq agent-shell-default-agent "coding-assistant"))

;; Define custom agent
(acp-define-agent "music-topos-agent"
  :system-prompt "You are a categorical music theory assistant..."
  :tools '((:name "generate-color"
            :description "Generate deterministic color from seed"
            :parameters ((:name "seed" :type "integer")
                        (:name "index" :type "integer")))))

dwim-shell-command: Smart Shell Integration

(use-package dwim-shell-command
  :bind (("M-!" . dwim-shell-command)
         ("C-c !" . dwim-shell-command-on-marked-files)))

;; Define reusable commands
(dwim-shell-command-define
 :name "Convert to WebP"
 :command "cwebp -q 80 '<<f>>' -o '<<fne>>.webp'"
 :utils "cwebp")

(dwim-shell-command-define
 :name "FFmpeg to GIF"
 :command "ffmpeg -i '<<f>>' -vf 'fps=10,scale=320:-1' '<<fne>>.gif'"
 :utils "ffmpeg")

Template Variables

| Variable | Meaning | |----------|---------| | <<f>> | Full file path | | <<fne>> | File path without extension | | <<e>> | File extension | | <<*>> | All marked files |

acp.el: Agent Client Protocol

(use-package acp
  :config
  ;; Register MCP servers
  (acp-register-server
   :name "gay-mcp"
   :command '("julia" "--project=@gay" "-e" "using Gay; Gay.serve_mcp()")
   :env '(("GAY_SEED" . "1069")))
  
  (acp-register-server
   :name "firecrawl"
   :command '("npx" "-y" "firecrawl-mcp")))

sqlite-mode-extras: Enhanced Database UI

(use-package sqlite-mode-extras
  :after sqlite-mode
  :hook (sqlite-mode . sqlite-mode-extras-minor-mode)
  :bind (:map sqlite-mode-map
         ("n" . sqlite-mode-extras-next-row)
         ("p" . sqlite-mode-extras-prev-row)
         ("e" . sqlite-mode-extras-edit-cell)
         ("x" . sqlite-mode-extras-execute)))

Integration with Music Topos

Gay.jl Colors in chatgpt-shell

(defun gay/chatgpt-shell-colorize-response ()
  "Colorize chatgpt-shell responses with deterministic colors."
  (let* ((response-count (length chatgpt-shell--conversation))
         (color (gay-color-at gay-seed-default response-count))
         (hex (gay-color-to-hex color)))
    (put-text-property (point-min) (point-max)
                       'face `(:background ,hex))))

(add-hook 'chatgpt-shell-response-hook #'gay/chatgpt-shell-colorize-response)

GF(3) Conservation for Agent Responses

(defun gay/agent-response-trit (response)
  "Map agent response to trit based on sentiment/category."
  (let* ((hash (sxhash response))
         (color (gay-color-at gay-seed-default (mod hash 1000)))
         (hue (plist-get color :H)))
    (gay-hue-to-trit hue)))

(defun gay/verify-conversation-gf3 ()
  "Verify GF(3) conservation across conversation."
  (let ((trits (mapcar #'gay/agent-response-trit 
                       chatgpt-shell--conversation)))
    (gay-gf3-conserved-p trits)))

Transient Integration

(require 'transient)

(transient-define-prefix gay-transient ()
  "Gay.el color generation commands."
  ["Colors"
   ("p" "Generate palette" gay-generate-palette)
   ("c" "Check GF(3)" gay-check-gf3)
   ("h" "Color at index" gay-color-at-interactive)]
  ["Agents"
   ("s" "Spawn hierarchy" narya/spawn-hierarchy)
   ("d" "Demo" narya/demo)]
  ["Shell"
   ("g" "ChatGPT Shell" chatgpt-shell)
   ("a" "Agent Shell" agent-shell)])

(global-set-key (kbd "C-c C-g") 'gay-transient)

Xenomodern Philosophy

Xenodium's approach embodies xenomodernity through:

1. Embrace the old (Emacs) while pushing forward (LLM integration)
2. Ironic distance from "modern" GUIs while building better UX
3. DWIM philosophy: Do What I Mean, not what I said
4. Composable primitives: Small packages that combine powerfully

                    xenodium
                       │
        ┌──────────────┼──────────────┐
        │              │              │
    Emacs Lisp     Modern LLMs     Unix Tools
    (1976)         (2022+)          (1970s)
        │              │              │
        └──────────────┴──────────────┘
                       │
              Ironic Synthesis
           (chatgpt-shell, acp.el)

Commands

just xenodium-setup        # Install xenodium packages
just chatgpt-shell-demo    # Run chatgpt-shell demo
just agent-shell-config    # Configure agent-shell with MCP
just dwim-define           # Create custom dwim-shell-command

Resources

• xenodium.com - Blog with Emacs tips
• YouTube: Xenodium - Video tutorials
• ACP Specification - Agent Client Protocol

REPL atlas

Part of: repl-commons. Family canonical: emacs.