diff options
Diffstat (limited to '.emacs.d/init/ycp-help.el')
-rw-r--r-- | .emacs.d/init/ycp-help.el | 114 |
1 files changed, 0 insertions, 114 deletions
diff --git a/.emacs.d/init/ycp-help.el b/.emacs.d/init/ycp-help.el deleted file mode 100644 index b699be9..0000000 --- a/.emacs.d/init/ycp-help.el +++ /dev/null @@ -1,114 +0,0 @@ -;;; ycp-help.el -- My configs for help -*- lexical-binding: t -*- - -;; Copyright (C) 2023 Free Software Foundation. - -;; Author: Yuchen Pei <id@ypei.org> -;; Protesilaos Stavrou <info@protesilaos.com> -;; Maintainer: Yuchen Pei <id@ypei.org> -;; Package-Requires: ((emacs "28.2")) - -;; This file is part of dotfiles. - -;; dotfiles is free software: you can redistribute it and/or modify it under -;; the terms of the GNU Affero General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; dotfiles 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 Affero General -;; Public License for more details. - -;; You should have received a copy of the GNU Affero General Public -;; License along with dotfiles. If not, see <https://www.gnu.org/licenses/>. - -;;; Commentary: - -;; My configs for help. Covers help, man, woman, eldoc, info etc. - -;;; Code: - - -(my-package help-mode - (my-keybind help-mode-map - "x" #'describe-command - "v" #'describe-variable - "f" #'describe-function) - (setq help-window-select t) - (my-keybind global-map - "C-h h" nil - "C-h K" #'describe-keymap ; overrides `Info-goto-emacs-key-command-node' - "C-h c" #'describe-char ; overrides `describe-key-briefly' - "C-h D" #'shortdoc-display-group - ) - ) - -(my-package info - ;; TODO consider using `Info-additional-directory-list' instead - (add-to-list 'Info-directory-list (locate-user-emacs-file "info"))) - -(my-keybind global-map - "C-h C-f" #'find-function - "C-h C-l" #'find-library - "C-h C-v" #'find-variable - "C-h C-p" #'list-packages) -(my-setq-from-local find-function-C-source-directory) - -(my-package eldoc - (:delay 5) - (setq eldoc-echo-area-prefer-doc-buffer t) - ) - -(my-package man - (:delay 10) - (setq Man-notify-method 'pushy) - (require 'my-buffer) - (add-to-list 'my-buffer-create-functions - '(Man-mode . man))) - -(my-package woman - (:delay 10) - (require 'my-buffer) - (add-to-list 'my-buffer-create-functions - '(woman-mode . woman))) - -(my-package help-at-pt - (setq help-at-pt-timer-delay .2) - (setq help-at-pt-display-when-idle t) - (help-at-pt-set-timer)) - -(my-package my-help - (:delay 10) - (my-keybind global-map - "C-h M" #'my-woman-man - "C-h i" #'my-info-display-manual - "C-h ." #'my-describe-symbol-at-point - "\C-h!" #'my-external-command-open-source) - (my-keybind help-mode-map - "o" #'my-help-goto-symbol - "j" #'my-help-goto-symbol) - ) - -(my-configure - (:delay 10) - (add-to-list 'my-buffer-create-functions '(Info-mode . 'my-info-display-manual))) - -;;;; Tooltips (tooltip-mode) -(my-package tooltip - (:delay 15) - (setq tooltip-delay 0.5 - tooltip-short-delay 0.5 - x-gtk-use-system-tooltips nil - tooltip-frame-parameters - '((name . "tooltip") - (internal-border-width . 6) - (border-width . 0) - (no-special-glyphs . t))) - (autoload #'tooltip-mode "tooltip") - (tooltip-mode 1)) - -(my-package my-utils - (:delay 15) - (my-setq-from-local my-docs-root-dir)) - -(provide 'ycp-help) |