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

7
elisp/ox-confluence.el
View file

@ -98,7 +98,8 @@
(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
(on "(/)")
(off "(x)") (off "(x)")
(trans "(-)") (trans "(-)")
(t ""))) (t "")))
@ -107,7 +108,7 @@
"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) "")))