2020-03-27 21:26:25 +01:00
|
|
|
;;; documentation.el --- Tools to look up documentation -*- lexical-binding: t; -*-
|
|
|
|
|
|
2020-05-24 22:59:31 +02:00
|
|
|
;; Time-stamp: <2020-05-24T22:38:35+0200>
|
2020-03-27 21:26:25 +01:00
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
|
|
(require 'basics/package-management)
|
|
|
|
|
|
|
|
|
|
;; Manual pages.
|
|
|
|
|
(use-package man
|
|
|
|
|
:custom (Man-width fill-column)
|
|
|
|
|
:custom-face
|
|
|
|
|
(Man-overstrike ((t (:inherit font-lock-type-face :bold t))))
|
|
|
|
|
(Man-underline ((t (:inherit font-lock-keyword-face :underline t))))
|
|
|
|
|
:bind ("<f1>" . man))
|
|
|
|
|
|
|
|
|
|
;; Manual pages, alternative implementation.
|
|
|
|
|
(use-package woman
|
|
|
|
|
:custom (woman-fill-frame t)
|
|
|
|
|
:config (progn
|
|
|
|
|
(defun my/woman-topic-at-point ()
|
|
|
|
|
"Call woman and use the word at point as topic if it exists."
|
|
|
|
|
(interactive)
|
|
|
|
|
(let ((woman-use-topic-at-point t))
|
|
|
|
|
(woman)))
|
|
|
|
|
;; Open manpages in new window.
|
|
|
|
|
(setq display-buffer-alist
|
|
|
|
|
'(("^\\*WoMan" display-buffer-pop-up-window))))
|
|
|
|
|
:bind ("C-<f1>" . my/woman-topic-at-point))
|
|
|
|
|
|
|
|
|
|
;; Read RFC documents.
|
|
|
|
|
(use-package rfc-mode
|
|
|
|
|
:commands (rfc-mode-browse)
|
|
|
|
|
:config (when (or (string= (system-name) "ventiloplattform")
|
|
|
|
|
(string= (system-name) "sprotznog"))
|
|
|
|
|
(customize-set-variable 'rfc-mode-directory "/var/rfc/")))
|
|
|
|
|
|
|
|
|
|
(provide 'misc/documentation)
|
|
|
|
|
;;; documentation.el ends here
|
