howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use cl-case instead of case for Emacs 30

Browse source
This commit is contained in:
Howard Abrams 2025-03-17 14:20:47 -07:00
parent 65ff19ba32
commit e7e61b4134
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
elisp/ox-confluence.el
View file

@ -26,7 +26,7 @@
;; using the ox.el export engine. ;; using the ox.el export engine.
;; ;;
;; Put this file into your load-path and the following into your ~/.emacs: ;; Put this file into your load-path and the following into your ~/.emacs:
;; (require 'ox-confluence) ;; (require 'ox-confluence)
;; ;;
;; Export Org files to confluence: ;; Export Org files to confluence:
;; M-x org-confluence-export-as-confluence RET ;; M-x org-confluence-export-as-confluence RET
@ -98,16 +98,17 @@
(defun org-confluence-checkbox (checkbox info) (defun org-confluence-checkbox (checkbox info)
"Format CHECKBOX into Confluence (even though Confluence won't take it. We take the CHECKBOX to be either 'on' or 'off' and we ignore INFO." "Format CHECKBOX into Confluence (even though Confluence won't take it. We take the CHECKBOX to be either 'on' or 'off' and we ignore INFO."
(case checkbox (on "(/)") (cl-case checkbox
(off "(x)") (on "(/)")
(trans "(-)") (off "(x)")
(t ""))) (trans "(-)")
(t "")))
(defun org-confluence-plain-list (plain-list contents info) (defun org-confluence-plain-list (plain-list contents info)
"Wrap a list with the html-ish stuff, but only if descriptive." "Wrap a list with the html-ish stuff, but only if descriptive."
(let* (arg1 ;; (assoc :counter (org-element-map plain-list 'item (let* (arg1 ;; (assoc :counter (org-element-map plain-list 'item
(type (org-element-property :type plain-list))) (type (org-element-property :type plain-list)))
(case type (cl-case type
(descriptive (format "{html}<dl>\n%s\n</dl>{html}" contents)) (descriptive (format "{html}<dl>\n%s\n</dl>{html}" contents))
(otherwise contents)))) (otherwise contents))))
@ -120,7 +121,7 @@
(br "\n\n")) (br "\n\n"))
(message "Got %s with %s" type contents) (message "Got %s with %s" type contents)
(concat (concat
(case type (cl-case type
(ordered (ordered
(let* ((counter term-counter-id) (let* ((counter term-counter-id)
(extra (if counter (format " value=\"%s\"" counter) ""))) (extra (if counter (format " value=\"%s\"" counter) "")))