Skip to content

Commit

Permalink
fix melpazoid errors
Browse files Browse the repository at this point in the history
  • Loading branch information
kimim committed Feb 9, 2024
1 parent 735fcad commit 377187d
Show file tree
Hide file tree
Showing 6 changed files with 20 additions and 28 deletions.
10 changes: 4 additions & 6 deletions chatu-babashka.el
Original file line number Diff line number Diff line change
Expand Up @@ -5,8 +5,6 @@
;; Author: Kimi Ma <[email protected]>
;; URL: https://github.com/kimim/chatu
;; Keywords: multimedia convenience
;; Version: 0.1
;; Package-Requires: ((org "9.6.6") (emacs "28.1"))

;; This file is NOT part of GNU Emacs.

Expand All @@ -32,15 +30,15 @@
;;; Code:

(defun chatu-babashka-script (keyword-plist)
"Open input, KEYWORD-PLIST contains parameters from the chatu
line."
"Open input.
KEYWORD-PLIST contains parameters from the chatu line."
(let ((input-path (plist-get keyword-plist :input-path)))
(format "bb %s"
(shell-quote-argument input-path))))

(defun chatu-babashka-open (keyword-plist)
"Open input file, KEYWORD-PLIST contains parameters from the
chatu line."
"Open input file.
KEYWORD-PLIST contains parameters from the chatu line."
(interactive)
(find-file-other-window
(plist-get keyword-plist :input-path)))
Expand Down
10 changes: 4 additions & 6 deletions chatu-curl.el
Original file line number Diff line number Diff line change
Expand Up @@ -5,8 +5,6 @@
;; Author: Kimi Ma <[email protected]>
;; URL: https://github.com/kimim/chatu
;; Keywords: multimedia convenience
;; Version: 0.1
;; Package-Requires: ((org "9.6.6") (emacs "28.1"))

;; This file is NOT part of GNU Emacs.

Expand All @@ -32,17 +30,17 @@
;;; Code:

(defun chatu-curl-script (keyword-plist)
"Get conversion script. KEYWORD-PLIST contains parameters from
the chatu line."
"Get conversion script.
KEYWORD-PLIST contains parameters from the chatu line."
(let* ((input (plist-get keyword-plist :input))
(output-path (plist-get keyword-plist :output-path)))
(format "curl -o %s %s"
(shell-quote-argument output-path)
(shell-quote-argument input))))

(defun chatu-curl-open (keyword-plist)
"Open curl link. KEYWORD-PLIST contains parameters from the
chatu line."
"Open curl link.
KEYWORD-PLIST contains parameters from the chatu line."
(interactive)
(let ((link (plist-get keyword-plist :input)))
(cond
Expand Down
10 changes: 4 additions & 6 deletions chatu-drawio.el
Original file line number Diff line number Diff line change
Expand Up @@ -5,8 +5,6 @@
;; Author: Kimi Ma <[email protected]>
;; URL: https://github.com/kimim/chatu
;; Keywords: multimedia convenience
;; Version: 0.1
;; Package-Requires: ((org "9.6.6") (emacs "28.1"))

;; This file is NOT part of GNU Emacs.

Expand Down Expand Up @@ -36,8 +34,8 @@
(file-name-with-extension path "drawio"))

(defun chatu-drawio-script (keyword-plist)
"Get conversion script. KEYWORD-PLIST contains parameters from
the chatu line."
"Get conversion script.
KEYWORD-PLIST contains parameters from the chatu line."
(let* ((input-path
(chatu-drawio-add-extention
(plist-get keyword-plist :input-path)))
Expand All @@ -56,8 +54,8 @@
(shell-quote-argument output-path-pdf))))

(defun chatu-drawio-open (keyword-plist)
"Open .drawio file. KEYWORD-PLIST contains parameters from the
chatu line."
"Open .drawio file.
KEYWORD-PLIST contains parameters from the chatu line."
(interactive)
(let ((path (chatu-drawio-add-extention
(plist-get keyword-plist :input-path))))
Expand Down
12 changes: 6 additions & 6 deletions chatu-plantuml.el
Original file line number Diff line number Diff line change
Expand Up @@ -5,8 +5,6 @@
;; Author: Kimi Ma <[email protected]>
;; URL: https://github.com/kimim/chatu
;; Keywords: multimedia convenience
;; Version: 0.1
;; Package-Requires: ((org "9.6.6") (emacs "28.1"))

;; This file is NOT part of GNU Emacs.

Expand All @@ -31,13 +29,15 @@

;;; Code:

(require 'plantuml-mode)

(defun chatu-plantuml-add-extention (path)
"Change to default extension for PATH of the input file."
(file-name-with-extension path "puml"))

(defun chatu-plantuml-script (keyword-plist)
"Get conversion script. KEYWORD-PLIST contains parameters from
the chatu line."
"Get conversion script.
KEYWORD-PLIST contains parameters from the chatu line."
(let ((page (plist-get keyword-plist :page)))
(concat "java -jar "
plantuml-jar-path
Expand All @@ -49,8 +49,8 @@
(plist-get keyword-plist :output-path))))

(defun chatu-plantuml-open (keyword-plist)
"Open .puml file. KEYWORD-PLIST contains parameters from the
chatu line."
"Open .puml file.
KEYWORD-PLIST contains parameters from the chatu line."
(interactive)
(find-file-other-window
(chatu-plantuml-add-extention
Expand Down
4 changes: 2 additions & 2 deletions chatu.el
Original file line number Diff line number Diff line change
Expand Up @@ -6,7 +6,7 @@
;; URL: https://github.com/kimim/chatu
;; Keywords: multimedia convenience
;; Version: 0.1
;; Package-Requires: ((org "9.6.6") (emacs "28.1"))
;; Package-Requires: ((org "9.6.6") (emacs "28.1") (plantuml-mode "1.2.9"))

;; This file is NOT part of GNU Emacs.

Expand Down Expand Up @@ -235,7 +235,7 @@

;;;###autoload
(defun chatu-open ()
"Open diagram file in emacs."
"Open diagram file in Emacs."
(interactive)
(let* ((keyword-plist (chatu-keyword-plist))
(type (plist-get keyword-plist :type)))
Expand Down
2 changes: 0 additions & 2 deletions docs/README.org
Original file line number Diff line number Diff line change
Expand Up @@ -124,8 +124,6 @@ markdown-mode:
#+end_src

* Contributors
#+begin_export html
<a href = "https://github.com/kimim/chatu/graphs/contributors">
<img src = "https://contrib.rocks/image?repo=kimim/chatu"/>
</a>
#+end_export

0 comments on commit 377187d

Please sign in to comment.