add plantuml-mode

lisp/init-editorconfig.el

@@ -25,7 +25,8 @@
              '("\\.editorconfig\\'" . editorconfig-conf-mode))
 
 (with-eval-after-load 'editorconfig
-  (add-to-list 'editorconfig-indentation-alist '(js-ts-mode js-indent-level)))
+  (add-to-list 'editorconfig-indentation-alist '(js-ts-mode js-indent-level))
+  (add-to-list 'editorconfig-indentation-alist '(plantuml-mode plantuml-indent-level)))
 
 
 (provide 'init-editorconfig)

lisp/init-org.el

@@ -22,6 +22,7 @@
     (latex      . t)
     (shell      . t)
     (python     . t)
+    (plantuml   . t)
     (emacs-lisp . t))
   "Enabled lang in org src code block.")
 
@@ -79,5 +80,8 @@
   (setq org-export-preserve-breaks t)
   (require 'ox-hugo))
 
+(with-eval-after-load 'ob-plantuml
+  (setq org-plantuml-exec-mode 'plantuml))
+
 
 (provide 'init-org)

lisp/init-plantuml.el

@@ -0,0 +1,28 @@
+;; -*- coding: utf-8; lexical-binding: t; -*-
+
+(autoload 'plantuml-mode "plantuml-mode" "" t)
+(add-to-list 'auto-mode-alist '("\\.\\(plantuml\\|pum\\|plu\\)\\'" . plantuml-mode))
+
+(defun plantuml-completion-at-point ()
+  "Function used for `completion-at-point-functions' in `plantuml-mode'.
+Copy from https://github.com/skuro/plantuml-mode/issues/98."
+  (let ((completion-ignore-case t)
+        (bounds (bounds-of-thing-at-point 'symbol))
+        (keywords plantuml-kwdList))
+    (when (and bounds keywords)
+      (list (car bounds)
+            (cdr bounds)
+            keywords
+            :exclusive 'no
+            :company-docsig #'indentity))))
+
+(with-eval-after-load 'plantuml-mode
+  (setq plantuml-exec-mode 'executable
+        plantuml-default-exec-mode 'executable)
+  (add-hook 'plantuml-mode-hook
+            (lambda ()
+              (add-hook 'completion-at-point-functions
+                        #'plantuml-completion-at-point nil 'local))))
+
+
+(provide 'init-plantuml)