From daeeecee613987bd821b4e15d03b2cb925cd88b0 Mon Sep 17 00:00:00 2001 From: Thomas Voss Date: Fri, 3 Apr 2026 02:09:58 +0200 Subject: emacs: Mark the config as legacy --- .config/emacs/modules/mm-documentation.el | 44 ------------------------------- 1 file changed, 44 deletions(-) delete mode 100644 .config/emacs/modules/mm-documentation.el (limited to '.config/emacs/modules/mm-documentation.el') diff --git a/.config/emacs/modules/mm-documentation.el b/.config/emacs/modules/mm-documentation.el deleted file mode 100644 index 1bd94da..0000000 --- a/.config/emacs/modules/mm-documentation.el +++ /dev/null @@ -1,44 +0,0 @@ -;;; mm-documentation.el --- Configuration related to documentation -*- lexical-binding: t; -*- - -;;; Enhance Describe Commands - -(use-package helpful - :ensure t - :bind (([remap describe-command] . helpful-command) - ([remap describe-function] . helpful-callable) - ([remap describe-key] . helpful-key) - ([remap describe-symbol] . helpful-symbol) - ([remap describe-variable] . helpful-variable) - (("C-h C-p" . helpful-at-point)))) - - -;;; Open Manpage for Symbol - -(defun mm-documentation-man-at-point () - "Open a UNIX manual page for the symbol at point." - (declare (modes (c-mode c++-mode c-ts-mode c++-ts-mode))) - (interactive) - (if-let ((symbol - (pcase major-mode - ((or 'c-mode 'c++-mode) - (thing-at-point 'symbol :no-properties)) - ((or 'c-ts-mode 'c++-ts-mode) - (when-let ((node (treesit-thing-at-point "identifier" 'nested))) - (treesit-node-text node :no-properties)))))) - (man symbol) - (message "No symbol at point."))) - - -;;; Browse RFC Pages - -(use-package rfc-mode - :ensure t - :custom - (rfc-mode-directory (expand-file-name "rfc" (xdg-user-dir "DOCUMENTS"))) - :config - (unless (featurep 'consult) - (keymap-set rfc-mode-map "g" #'imenu)) - (with-eval-after-load 'consult - (keymap-set rfc-mode-map "g" #'consult-imenu))) - -(provide 'mm-documentation) \ No newline at end of file -- cgit v1.2.3