|
@@ -159,3 +159,20 @@
|
|
|
(load! "beancount")
|
|
|
(require 'beancount)
|
|
|
(add-to-list 'auto-mode-alist '("\\.beancount\\'" . beancount-mode))
|
|
|
+
|
|
|
+(define-derived-mode
|
|
|
+ pandoc-view-mode
|
|
|
+ markdown-mode
|
|
|
+ "pandoc-view-mode"
|
|
|
+ "View pandoc processing of docx file using markdown mode."
|
|
|
+ (erase-buffer)
|
|
|
+ (let* ((pandoc (executable-find "pandoc")))
|
|
|
+ (insert (shell-command-to-string
|
|
|
+ (concat pandoc " --wrap=none " (shell-quote-argument (buffer-file-name)) " -t markdown"))))
|
|
|
+ (not-modified)
|
|
|
+ (read-only-mode t))
|
|
|
+
|
|
|
+(add-to-list 'auto-mode-alist '("\\.docx\\'" . pandoc-view-mode))
|
|
|
+
|
|
|
+(remove-hook 'text-mode-hook #'auto-fill-mode)
|
|
|
+(add-hook 'message-mode-hook #'word-wrap-mode)
|