diff options
Diffstat (limited to 'claude-code-context.el')
| -rw-r--r-- | claude-code-context.el | 188 |
1 files changed, 188 insertions, 0 deletions
diff --git a/claude-code-context.el b/claude-code-context.el new file mode 100644 index 0000000..95168c1 --- /dev/null +++ b/claude-code-context.el @@ -0,0 +1,188 @@ +;;; claude-code-context.el --- Share Emacs context with Claude Code -*- lexical-binding: t; -*- + +;; Copyright (C) 2025 Luke Hoersten + +;; Author: Luke Hoersten <[email protected]> +;; URL: https://github.com/lhoersten/claude-code-context +;; Version: 0.1.0 +;; Package-Requires: ((emacs "27.1")) +;; Keywords: tools, ai, convenience + +;; This file is not part of GNU Emacs. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it 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 +;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: + +;; This package automatically shares your current Emacs buffer context +;; (file, line, column, selection, and diagnostics) with Claude Code +;; via a context file that Claude Code hooks can read. +;; +;; Setup: +;; 1. Add to your init.el: +;; (require 'claude-code-context) +;; (claude-code-context-mode 1) +;; +;; 2. Add this hook to your ~/.claude/settings.json: +;; { +;; "hooks": { +;; "UserPromptSubmit": [ +;; { +;; "hooks": [ +;; { +;; "type": "command", +;; "command": "CONTEXT_FILE=\"$HOME/.emacs.d/claude-context.txt\"; if [ -f \"$CONTEXT_FILE\" ]; then echo \"\\n---\\n## Emacs Context\\n\"; cat \"$CONTEXT_FILE\"; echo \"\\n---\"; fi" +;; } +;; ] +;; } +;; ] +;; } +;; } +;; +;; Usage: +;; - C-c C-l u : Manually update context +;; - C-c C-l d : Add flymake diagnostics to context +;; - C-c C-l c : Clear context +;; - C-c C-l m : Toggle automatic context mode + +;;; Code: + +(defgroup claude-code-context nil + "Share Emacs context with Claude Code." + :group 'tools + :prefix "claude-code-context-") + +(defcustom claude-code-context-file + (expand-file-name "claude-context.txt" user-emacs-directory) + "File where Claude Code context is written." + :type 'file + :group 'claude-code-context) + +(defcustom claude-code-context-update-interval 2 + "Seconds between context updates (to avoid excessive writes)." + :type 'integer + :group 'claude-code-context) + +(defvar claude-code-context-timer nil + "Timer for updating Claude Code context.") + +(defun claude-code--get-current-context () + "Get current buffer context as a string." + (when (buffer-file-name) + (let* ((file (buffer-file-name)) + (line (line-number-at-pos)) + (col (current-column)) + (selection (when (use-region-p) + (buffer-substring-no-properties (region-beginning) (region-end))))) + (concat + (format "File: %s\n" file) + (format "Line: %d, Column: %d\n" line col) + (when selection + (format "Selection:\n```\n%s\n```\n" selection)))))) + +(defun claude-code--get-flymake-diagnostics () + "Get flymake diagnostics for current buffer." + (when (and (bound-and-true-p flymake-mode) + (buffer-file-name)) + (let ((diags (flymake-diagnostics))) + (when diags + (concat + "\nFlymake Diagnostics:\n" + (mapconcat + (lambda (diag) + (format " %4d %8s %-8s %s" + (line-number-at-pos (flymake-diagnostic-beg diag)) + (flymake-diagnostic-type diag) + (flymake-diagnostic-backend diag) + (flymake-diagnostic-text diag))) + diags + "\n")))))) + +(defun claude-code-update-context () + "Update Claude Code context file with current buffer state." + (interactive) + (let ((context (claude-code--get-current-context))) + (when context + (with-temp-file claude-code-context-file + (insert "# Emacs Context for Claude Code\n") + (insert "# This file is automatically updated by Emacs\n\n") + (insert context)) + (message "Claude Code context updated")))) + +(defun claude-code-add-diagnostics () + "Add flymake diagnostics to Claude Code context file." + (interactive) + (let ((context (claude-code--get-current-context)) + (diags (claude-code--get-flymake-diagnostics))) + (when context + (with-temp-file claude-code-context-file + (insert "# Emacs Context for Claude Code\n") + (insert "# This file is automatically updated by Emacs\n\n") + (insert context) + (when diags + (insert diags))) + (message "Claude Code context updated with diagnostics")))) + +(defun claude-code-clear-context () + "Clear the Claude Code context file." + (interactive) + (when (file-exists-p claude-code-context-file) + (delete-file claude-code-context-file) + (message "Claude Code context cleared"))) + +(defun claude-code--update-context-timer () + "Timer function to update context periodically." + (when (and (buffer-file-name) + (not (minibufferp))) + (claude-code-update-context))) + +(defun claude-code-context-mode-enable () + "Enable automatic context updates." + (unless claude-code-context-timer + (setq claude-code-context-timer + (run-with-idle-timer claude-code-context-update-interval t + #'claude-code--update-context-timer)) + (message "Claude Code context mode enabled"))) + +(defun claude-code-context-mode-disable () + "Disable automatic context updates." + (when claude-code-context-timer + (cancel-timer claude-code-context-timer) + (setq claude-code-context-timer nil) + (message "Claude Code context mode disabled"))) + +;;;###autoload +(define-minor-mode claude-code-context-mode + "Minor mode for automatic Claude Code context updates." + :global t + :lighter " CC" + :group 'claude-code-context + (if claude-code-context-mode + (claude-code-context-mode-enable) + (claude-code-context-mode-disable))) + +;; Keybindings +(defvar claude-code-context-command-map + (let ((map (make-sparse-keymap))) + (define-key map (kbd "u") 'claude-code-update-context) + (define-key map (kbd "d") 'claude-code-add-diagnostics) + (define-key map (kbd "c") 'claude-code-clear-context) + (define-key map (kbd "m") 'claude-code-context-mode) + map) + "Keymap for claude-code-context commands.") + +(global-set-key (kbd "C-c C-l") claude-code-context-command-map) + +(provide 'claude-code-context) +;;; claude-code-context.el ends here |