tastytea
2d576fec10
Inheriting `font-lock-comment-face` in `font-lock-comment-face` would lock up Emacs.
77 lines
1.9 KiB
EmacsLisp
77 lines
1.9 KiB
EmacsLisp
;;; tools.el --- Configure text tools. -*- lexical-binding: t; -*-
|
|
|
|
;; Time-stamp: <2019-12-26T07:42:10+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
|