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

77 lines
1.9 KiB
EmacsLisp
Raw Normal View History

2019-10-14 17:38:14 +02:00
;;; tools.el --- Configure text tools. -*- lexical-binding: t; -*-
2019-11-24 19:25:44 +01:00
;; Time-stamp: <2019-11-24T18:25:06+00:00>
2019-10-14 17:38:14 +02: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")
2019-11-20 18:28:46 +01:00
(easy-hugo-previewtime "7200") ; 2 hours.
2019-10-14 17:38:14 +02:00
(easy-hugo-default-ext ".adoc")
(easy-hugo-asciidoc-extension "adoc")
(easy-hugo-server-flags "-D")
2019-11-20 18:28:46 +01:00
(easy-hugo-bloglist ; Additional blogs.
2019-11-24 19:25:44 +01:00
'(
((easy-hugo-basedir . "~/Projekte/www/text-en.tastytea.de/")
2019-11-20 18:28:46 +01:00
(easy-hugo-url . "https://text-en.tastytea.de")
2019-11-24 19:25:44 +01:00
(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"))
))
2019-11-20 18:28:46 +01:00
2019-10-14 17:38:14 +02:00
:bind
("C-x M-h" . easy-hugo)
)
(provide 'text/tools)
;;; tools.el ends here