diff options
| -rw-r--r-- | emacs/init.el | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/emacs/init.el b/emacs/init.el index 35689e7..b321e1b 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -1,3 +1,5 @@ +;;; init.el --- Emacs configuration -*- lexical-binding: t; -*- + (require 'package) (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) @@ -71,3 +73,62 @@ (use-package magit :bind ("C-x g" . magit-status)) + +(use-package agent-shell + ;; Talks to LLM coding agents over the Agent Client Protocol (ACP). + ;; Pi needs the external `pi-acp` adapter on PATH (provided via nixos-config). + ;; Pi authenticates via OAuth -- run `/login` inside the shell once; no API key. + :bind ("C-c a p" . agent-shell-pi-start-agent) + :config + (setq agent-shell-pi-acp-command '("pi-acp")) + ;; Start ready to type instead of in evil normal state. + (add-hook 'agent-shell-mode-hook #'evil-insert-state) + ;; Same GUI-Enter gotcha as mpdel: shell-maker binds submit via a + ;; comint-send-input remap on RET/C-m, but a GUI frame's Enter sends + ;; <return> -- which evil-collection shadows -- so input never gets sent. + ;; Point <return> (and keypad Enter) straight at submit in insert state. + (defun my/agent-shell-restore-ret () + (evil-local-set-key 'insert (kbd "<return>") #'shell-maker-submit) + (evil-local-set-key 'insert (kbd "<kp-enter>") #'shell-maker-submit)) + (add-hook 'agent-shell-mode-hook #'my/agent-shell-restore-ret)) + +(use-package mpdel + :after evil + :config + (mpdel-mode) + ;; In a GUI frame the Enter key sends <return>, which evil-collection binds to + ;; play/pause -- shadowing tablist's "descend into entry" command (that command + ;; only sits on RET / C-m). Point <return> (and the keypad Enter) at descend + ;; in all mpdel list buffers (browser, playlists, ...). + (defun my/mpdel-restore-ret () + (evil-local-set-key 'normal (kbd "<return>") #'tablist-find-entry) + (evil-local-set-key 'normal (kbd "<kp-enter>") #'tablist-find-entry)) + (add-hook 'mpdel-tablist-mode-hook #'my/mpdel-restore-ret) + + ;; "Recently added" view. MPD has no such entity, so subclass mpdel's filter + ;; (which already renders a browsable, addable song list) and issue a search + ;; sorted by modification time, newest first. + (require 'cl-lib) + (defvar my/mpdel-recent-count 50 + "How many recently added songs `my/mpdel-recent' lists.") + (cl-defstruct (my/mpdel-recent-entity (:include libmpdel-filter))) + (cl-defmethod libmpdel-entity-name ((_e my/mpdel-recent-entity)) + "Recently added") + (cl-defmethod libmpdel-list-songs ((_e my/mpdel-recent-entity) function) + (libmpdel-send-command + (format "search \"(file != \\\"\\\")\" sort -Last-Modified window 0:%d" + my/mpdel-recent-count) + (lambda (data) + (funcall function (libmpdel--create-songs-from-data data))))) + (defun my/mpdel-recent () + "Browse the most recently added songs, newest first." + (interactive) + (mpdel-core-open (make-my/mpdel-recent-entity :text "recently added"))) + (defun my/mpdel-recent-replace () + "Replace the current playlist with the recently added songs." + (interactive) + (libmpdel-list-songs + (make-my/mpdel-recent-entity :text "recently added") + (lambda (songs) (libmpdel-current-playlist-replace songs)))) + (global-set-key (kbd "C-c m r") #'my/mpdel-recent) + (global-set-key (kbd "C-c m R") #'my/mpdel-recent-replace)) |