.emacs.d/init/text/tools.el

77 lines
1.9 KiB
EmacsLisp

;;; tools.el --- Configure text tools. -*- lexical-binding: t; -*-
;; Time-stamp: <2019-11-24T18:25:06+00:00>
;;; Commentary:
;;; Code:
;; Manual pages.
(use-package man
:defer t
: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
(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
:custom
(rfc-mode-directory "/var/rfc/")
)
;; Mode for writing blog posts with hugo.
(use-package easy-hugo
:if (string= (system-name) "ventiloplattform")
:custom
(easy-hugo-basedir "~/Projekte/www/blog.tastytea.de/")
(easy-hugo-url "https://blog.tastytea.de")
(easy-hugo-postdir "content/posts")
(easy-hugo-previewtime "7200") ; 2 hours.
(easy-hugo-default-ext ".adoc")
(easy-hugo-asciidoc-extension "adoc")
(easy-hugo-server-flags "-D")
(easy-hugo-bloglist ; Additional blogs.
'(
((easy-hugo-basedir . "~/Projekte/www/text-en.tastytea.de/")
(easy-hugo-url . "https://text-en.tastytea.de")
(easy-hugo-postdir . "content/posts")
(easy-hugo-previewtime . "7200"))
((easy-hugo-basedir . "~/Projekte/www/text-de.tastytea.de/")
(easy-hugo-url . "https://text-de.tastytea.de")
(easy-hugo-postdir . "content/posts")
(easy-hugo-previewtime . "7200"))
))
:bind
("C-x M-h" . easy-hugo)
)
(provide 'text/tools)
;;; tools.el ends here