[elpa] externals/ellama b9bd498b51 1/4: Fix python hidden properties to org mode translation

[ELPA Syncer]

branch: externals/ellama
commit b9bd498b515fdfd9430beaf8874f19f21a395542
Author: Sergey Kostyaev <sskostyaev@gmail.com>
Commit: Sergey Kostyaev <sskostyaev@gmail.com>

    Fix python hidden properties to org mode translation
---
 ellama.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/ellama.el b/ellama.el
index 0dc7de9f78..64c2284c83 100644
--- a/ellama.el
+++ b/ellama.el
@@ -391,8 +391,8 @@ Too low value can break generated code by splitting long 
comment lines."
       (replace-match "#+BEGIN_SRC\\1#+END_SRC"))
     (buffer-substring-no-properties (point-min) (point-max))))
 
-(defun ellama--replace-top-level-headings (text)
-  "Replace top level headings in TEXT if no source blocks."
+(defun ellama--replace-outside-of-code-blocks (text)
+  "Replace some markdown elements to org in TEXT if no source blocks."
   ;; TODO: improve this code to replace all top level headings outside
   ;; of code blocks. For example we can collect all begin_src
   ;; positions, all end_src positions, sort it and safely replace all
@@ -405,7 +405,10 @@ Too low value can break generated code by splitting long 
comment lines."
               (not (re-search-backward "#\\+BEGIN_SRC" nil t)))
       (goto-char (point-min))
       (while (re-search-forward "^# " nil t)
-       (replace-match "* ")))
+       (replace-match "* "))
+      (goto-char (point-min))
+      (while (re-search-forward "__\\(.+?\\)__" nil t)
+       (replace-match "*\\1*")))
     (buffer-substring-no-properties (point-min) (point-max))))
 
 (defun ellama--translate-markdown-to-org-filter (text)
@@ -425,7 +428,6 @@ This filter contains only subset of markdown syntax to be 
good enough."
     (replace-regexp-in-string "^\\* " "+ ")
     ;; bold
     (replace-regexp-in-string "\\*\\*\\(.+?\\)\\*\\*" "*\\1*")
-    (replace-regexp-in-string "__\\(.+?\\)__" "*\\1*")
     (replace-regexp-in-string "<b>\\(.+?\\)</b>" "*\\1*")
     ;; italic
     ;; (replace-regexp-in-string "_\\(.+?\\)_" "/\\1/") ;; most of the time it 
breaks code blocks, so disable it
@@ -438,7 +440,7 @@ This filter contains only subset of markdown syntax to be 
good enough."
     (replace-regexp-in-string "~~\\(.+?\\)~~" "+\\1+")
     (replace-regexp-in-string "<s>\\(.+?\\)</s>" "+\\1+")
     ;; headings
-    (ellama--replace-top-level-headings)
+    (ellama--replace-outside-of-code-blocks)
     (replace-regexp-in-string "^## " "** ")
     (replace-regexp-in-string "^### " "*** ")
     (replace-regexp-in-string "^#### " "**** ")