simple-plantuml-mode elpaca bugfix

README.md

simple-plantuml-mode Bugfix

Setup to test the fix for xshyamx/simple-plantuml-mode#1

Copy all the files into a folder and run make emacs to run a dedidcated emacs window without affecting your existing emacs configurateions

init.el

(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
;; convenience
(setq electric-pair-mode t
      inhibit-startup-screen t
      tool-bar-mode nil)

(when (file-exists-p custom-file)
  (load-file custom-file))
(defun open-if-exists (fn)
  (let ((file (expand-file-name fn user-emacs-directory)))
    (when (file-exists-p file)
      (find-file file))))
(dolist (fn '("Makefile" "elpaca/repos/simple-plantuml-mode/plantuml-mode.el" "sample.plantuml" "init.el"))
  (open-if-exists fn))

(defalias 'yes-or-no-p 'y-or-n-p)
(load-file (expand-file-name "setup-elpaca.el" user-emacs-directory))
;(setq debug-on-error t)

(setq plantuml-jar-path (expand-file-name "~/.m2/repository/net/sourceforge/plantuml/plantuml/1.2022.6/plantuml-1.2022.6.jar"))

(use-package plantuml-mode
  :elpaca (:type git :host github :repo "xshyamx/simple-plantuml-mode"))

Makefile

.PHONY: emacs clean
EMACS ?= emacs
mkfile_path := $(abspath $(lastword $(MAKEFILE_LIST)))
mkfile_dir := $(dir $(mkfile_path))

emacs:
	$(EMACS) --init-directory=$(mkfile_dir)

clean:
	rm -fr eln-cache elpaca auto-save-list *~ *.png

sample.plantuml

@startuml
' sample
actor u as "User"
cloud i as "Internet"
component fu as "Frontend UI"
component ba as "Backend API"
database d as "Database"
u ~~> i
i ~~> fu
fu --> ba
ba --> d
@enduml

setup-elpaca.el

(defvar elpaca-installer-version 0.6)
(defvar elpaca-directory (expand-file-name "elpaca/" user-emacs-directory))
(defvar elpaca-builds-directory (expand-file-name "builds/" elpaca-directory))
(defvar elpaca-repos-directory (expand-file-name "repos/" elpaca-directory))
(defvar elpaca-order '(elpaca :repo "https://github.com/progfolio/elpaca.git"
                              :ref nil
                              :files (:defaults "elpaca-test.el" (:exclude "extensions"))
                              :build (:not elpaca--activate-package)))
(let* ((repo  (expand-file-name "elpaca/" elpaca-repos-directory))
       (build (expand-file-name "elpaca/" elpaca-builds-directory))
       (order (cdr elpaca-order))
       (default-directory repo))
  (add-to-list 'load-path (if (file-exists-p build) build repo))
  (unless (file-exists-p repo)
    (make-directory repo t)
    (when (< emacs-major-version 28) (require 'subr-x))
    (condition-case-unless-debug err
        (if-let ((buffer (pop-to-buffer-same-window "*elpaca-bootstrap*"))
                 ((zerop (call-process "git" nil buffer t "clone"
                                       (plist-get order :repo) repo)))
                 ((zerop (call-process "git" nil buffer t "checkout"
                                       (or (plist-get order :ref) "--"))))
                 (emacs (concat invocation-directory invocation-name))
                 ((zerop (call-process emacs nil buffer nil "-Q" "-L" "." "--batch"
                                       "--eval" "(byte-recompile-directory \".\" 0 'force)")))
                 ((require 'elpaca))
                 ((elpaca-generate-autoloads "elpaca" repo)))
            (progn (message "%s" (buffer-string)) (kill-buffer buffer))
          (error "%s" (with-current-buffer buffer (buffer-string))))
      ((error) (warn "%s" err) (delete-directory repo 'recursive))))
  (unless (require 'elpaca-autoloads nil t)
    (require 'elpaca)
    (elpaca-generate-autoloads "elpaca" repo)
    (load "./elpaca-autoloads")))
(add-hook 'after-init-hook #'elpaca-process-queues)
(elpaca `(,@elpaca-order))

;; Install use-package support
(elpaca elpaca-use-package
  ;; Enable :elpaca use-package keyword.
  (elpaca-use-package-mode)
  ;; Assume :elpaca t unless otherwise specified.
  (setq elpaca-use-package-by-default t))

;; Block until current queue processed.
(elpaca-wait)