;;; tools.el --- Configure text tools. -*- lexical-binding: t; -*-

;; Time-stamp: <2019-10-17T18:54:13+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-previewtime "7200")    ; 2 hours.
  (easy-hugo-postdir "content/posts")
  (easy-hugo-default-ext ".adoc")
  (easy-hugo-asciidoc-extension "adoc")
  (easy-hugo-server-flags "-D")

  :bind
  ("C-x M-h" . easy-hugo)
  )

(provide 'text/tools)
;;; tools.el ends here