diff --git a/init.d/misc/documentation.el b/init.d/misc/documentation.el new file mode 100644 index 0000000..f42bf05 --- /dev/null +++ b/init.d/misc/documentation.el @@ -0,0 +1,43 @@ +;;; documentation.el --- Tools to look up documentation -*- lexical-binding: t; -*- + +;; Time-stamp: <2020-03-27T21:34:29+0100> + +;;; Commentary: + +;;; Code: + +(require 'basics/package-management) + +;; 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 ("" . 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-" . my/woman-topic-at-point)) + +;; Read RFC documents. +(use-package rfc-mode + :defer t + :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 diff --git a/init.d/programming/elisp.el b/init.d/programming/elisp.el index 95770f3..c18e952 100644 --- a/init.d/programming/elisp.el +++ b/init.d/programming/elisp.el @@ -1,6 +1,6 @@ ;;; elisp.el --- Packages and settings for elisp. -*- lexical-binding: t; -*- -;; Time-stamp: <2020-03-18T14:57:56+0100> +;; Time-stamp: <2020-03-27T21:36:17+0100> ;;; Commentary: @@ -11,8 +11,12 @@ ;; Checker for the metadata in Emacs Lisp files. (use-package flycheck-package :after (flycheck) - ;; :pin melpa :config (flycheck-package-setup)) +(use-package el2markdown + :commands (el2markdown-view-buffer + el2markdown-write-file + el2markdown-write-readme)) + (provide 'programming/elisp) ;;; elisp.el ends here diff --git a/init.d/text/tools.el b/init.d/text/tools.el deleted file mode 100644 index 2880640..0000000 --- a/init.d/text/tools.el +++ /dev/null @@ -1,69 +0,0 @@ -;;; tools.el --- Configure text tools. -*- lexical-binding: t; -*- - -;; Time-stamp: <2020-03-27T18:11:00+0100> - -;;; Commentary: - -;;; Code: - -(require 'basics/package-management) - -;; 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 ("" . 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-" . my/woman-topic-at-point)) - -;; Read RFC documents. -(use-package rfc-mode - :defer t - :commands (rfc-mode-browse) - :config (when (or (string= (system-name) "ventiloplattform") - (string= (system-name) "sprotznog")) - (customize-set-variable 'rfc-mode-directory "/var/rfc/"))) - -;; Mode for writing blog posts with hugo. -(when (string= (system-name) "ventiloplattform") - (use-package easy-hugo - :custom ((easy-hugo-basedir "~/Projekte/www/blog.tastytea.de/") - (easy-hugo-url "https://blog.tastytea.de") - (easy-hugo-postdir "content/posts") - (easy-hugo-previewtime (* 60 60 2)) - (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 . (* 60 60 2))) - ((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 . (* 60 60 2)))))) - :bind ("C-c h" . easy-hugo))) - -(use-package el2markdown - :commands (el2markdown-view-buffer - el2markdown-write-file - el2markdown-write-readme)) - -(provide 'text/tools) -;;; tools.el ends here diff --git a/init.d/text/web.el b/init.d/text/web.el index 2c30dc6..190da78 100644 --- a/init.d/text/web.el +++ b/init.d/text/web.el @@ -1,6 +1,6 @@ ;;; web.el --- Settings for web stuff. -*- lexical-binding: t; -*- -;; Time-stamp: <2020-03-27T18:12:31+0100> +;; Time-stamp: <2020-03-27T21:22:50+0100> ;;; Commentary: @@ -29,5 +29,26 @@ :height 1.4)))) :mode ("\\.epub$" . nov-mode)) +;; Mode for writing blog posts with hugo. +(when (string= (system-name) "ventiloplattform") + (use-package easy-hugo + :custom ((easy-hugo-basedir "~/Projekte/www/blog.tastytea.de/") + (easy-hugo-url "https://blog.tastytea.de") + (easy-hugo-postdir "content/posts") + (easy-hugo-previewtime (* 60 60 2)) + (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 . (* 60 60 2))) + ((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 . (* 60 60 2)))))) + :bind ("C-c h" . easy-hugo))) + (provide 'text/web) ;;; web.el ends here diff --git a/init.el b/init.el index dc735bb..4e12f43 100644 --- a/init.el +++ b/init.el @@ -1,10 +1,9 @@ ;;; init.el --- tastytea's Emacs init file. -*- lexical-binding: t; -*- -;; Time-stamp: <2020-03-16T00:47:13+0100> +;; Time-stamp: <2020-03-27T21:25:59+0100> ;;; Commentary: -;; Requires at least Emacs 26. Most of it will probably work with Emacs 24 and -;; above though. +;; Requires at least Emacs 26. ;;; Code: @@ -29,10 +28,11 @@ (require 'text/common) (require 'text/latex) -(require 'text/tools) (require 'text/web) (require 'text/misc) +(require 'misc/documentation) + (require 'programming/common) (require 'programming/lsp) (require 'programming/git)