daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

update packages

Browse Source
This commit is contained in:
Daniel Weschke
2025-02-26 20:16:44 +01:00
parent 59db017445
commit 45d49daef0
291 changed files with 16240 additions and 522600 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
lisp/org-contrib/ox-freemind.el
View File

@@ -1,4 +1,4 @@
;;; ox-freemind.el --- Freemind Mindmap Back-End for Org Export Engine
;;; ox-freemind.el --- Freemind Mindmap Back-End for Org Export Engine -*- lexical-binding: t; -*-
;; Copyright (C) 2013-2021 Free Software Foundation, Inc.
@@ -144,7 +144,7 @@ This is an inverse function of `libxml-parse-xml-region'.
For purposes of Freemind export, PARSED-XML is a node style
specification - \"<node ...>...</node>\" - as a parse tree."
(when contents
(assert (symbolp (car parsed-xml))))
(cl-assert (symbolp (car parsed-xml))))
(cond
((null parsed-xml) "")
((stringp parsed-xml) parsed-xml)
@@ -182,7 +182,7 @@ ELEMENT can be any of the following types - `org-data',
`headline' or `section'. See `org-freemind-styles' for style
mappings of different outline levels."
(let ((style-name
(case (org-element-type element)
(cl-case (org-element-type element)
(headline
(org-export-get-relative-level element info))
(section
@@ -194,11 +194,8 @@ mappings of different outline levels."
(assoc-default 'default org-freemind-styles)
"<node></node>")))
(defun org-freemind-style-map--default (element info)
"Return the default style for all ELEMENTs.
ELEMENT can be any of the following types - `org-data',
`headline' or `section'. See `org-freemind-styles' for current
value of default style."
(defun org-freemind-style-map--default (_ _)
"Return the default style from `org-freemind-styles'."
(or (assoc-default 'default org-freemind-styles)
"<node></node>"))
@@ -293,7 +290,7 @@ will result in following node:
;;;; Helpers :: Node contents
(defun org-freemind--richcontent (type contents &optional css-style)
(let* ((type (case type
(let* ((type (cl-case type
(note "NOTE")
(node "NODE")
(t "NODE")))
@@ -306,7 +303,7 @@ will result in following node:
(format "<body>\n%s\n</body>" contents))))))
(defun org-freemind--build-node-contents (element contents info)
(let* ((title (case (org-element-type element)
(let* ((title (cl-case (org-element-type element)
(headline
(org-element-property :title element))
(org-data
@@ -330,7 +327,7 @@ will result in following node:
(when itemized-contents-p
contents))))
(concat (let ((title (org-export-data title info)))
(case org-freemind-section-format
(cl-case org-freemind-section-format
(inline
(org-freemind--richcontent
'node (concat (format "\n<h2>%s</h2>" title)
@@ -366,10 +363,9 @@ original parsed data. INFO is a plist holding export options."
(let ((org-data (plist-get info :parse-tree)))
(org-freemind--build-node-contents org-data contents info)))))
(defun org-freemind-inner-template (contents info)
(defun org-freemind-inner-template (contents _)
"Return body of document string after Freemind Mindmap conversion.
CONTENTS is the transcoded contents string. INFO is a plist
holding export options."
CONTENTS is the transcoded contents string."
contents)
;;;; Tags
@@ -385,10 +381,8 @@ holding export options."
;;;; Entity
(defun org-freemind-entity (entity contents info)
"Transcode an ENTITY object from Org to Freemind Mindmap.
CONTENTS are the definition itself. INFO is a plist holding
contextual information."
(defun org-freemind-entity (entity _ _)
"Transcode an ENTITY object from Org to Freemind Mindmap."
(org-element-property :utf-8 entity))
;;;; Headline
@@ -399,25 +393,9 @@ CONTENTS holds the contents of the headline. INFO is a plist
holding contextual information."
;; Empty contents?
(setq contents (or contents ""))
(let* ((numberedp (org-export-numbered-headline-p headline info))
(level (org-export-get-relative-level headline info))
(text (org-export-data (org-element-property :title headline) info))
(todo (and (plist-get info :with-todo-keywords)
(let ((todo (org-element-property :todo-keyword headline)))
(and todo (org-export-data todo info)))))
(todo-type (and todo (org-element-property :todo-type headline)))
(let* ((level (org-export-get-relative-level headline info))
(tags (and (plist-get info :with-tags)
(org-export-get-tags headline info)))
(priority (and (plist-get info :with-priority)
(org-element-property :priority headline)))
(section-number (and (not (org-export-low-level-p headline info))
(org-export-numbered-headline-p headline info)
(mapconcat 'number-to-string
(org-export-get-headline-number
headline info) ".")))
;; Create the headline text.
(full-text (org-export-data (org-element-property :title headline)
info))
;; Headline order (i.e, first digit of the section number)
(headline-order (car (org-export-get-headline-number headline info))))
(cond
@@ -437,7 +415,6 @@ holding contextual information."
(concat "sec-" section-number)
(org-element-property :ID headline))))
(preferred-id (car ids))
(extra-ids (cdr ids))
(left-p (zerop (% headline-order 2))))
(org-freemind--build-stylized-node
(org-freemind--get-node-style headline info)
@@ -463,7 +440,7 @@ holding contextual information."
;;; Filter Functions
(defun org-freemind-final-function (contents backend info)
(defun org-freemind-final-function (contents _ _)
"Return CONTENTS as pretty XML using `indent-region'."
(if (not org-freemind-pretty-output) contents
(with-temp-buffer
@@ -472,10 +449,8 @@ holding contextual information."
(indent-region (point-min) (point-max))
(buffer-substring-no-properties (point-min) (point-max)))))
(defun org-freemind-options-function (info backend)
"Install script in export options when appropriate.
EXP-PLIST is a plist containing export options. BACKEND is the
export back-end currently used."
(defun org-freemind-options-function (info _)
"Install script in export options INFO when appropriate."
;; Freemind/Freeplane doesn't seem to like named html entities in
;; richcontent. For now, turn off smart quote processing so that
;; entities like "&rsquo;" & friends are avoided in the exported