Emacs: Remove text/tools move contents elsewhere.

Moved to misc/documentation, programming/elisp and text/web.
This commit is contained in:
tastytea 2020-03-27 21:26:25 +01:00
parent 0ea8954c20
commit 3a3f1b6ebb
5 changed files with 75 additions and 76 deletions

View File

@ -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 ("<f1>" . 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-<f1>" . 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

View File

@ -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

View File

@ -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 ("<f1>" . 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-<f1>" . 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

View File

@ -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

View File

@ -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)