ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ASCII export: Fix issues with new link export

This commit is contained in:
Carsten Dominik 2009-02-28 21:56:55 +01:00
parent b3374a7bb1
commit 2b4788ae9d
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2009-02-28 Carsten Dominik <carsten.dominik@gmail.com>
* org-exp.el (org-export-as-ascii): Reverse link buffer before
outputting it.
(org-export-ascii-push-links): Fix bug with pussing links into the
export buffer.
2009-02-27 Carsten Dominik <carsten.dominik@gmail.com> 2009-02-27 Carsten Dominik <carsten.dominik@gmail.com>
* org-archive.el (org-archive-subtree): Do not add 1 to level if * org-archive.el (org-archive-subtree): Do not add 1 to level if

7
lisp/org-exp.el
View File

@ -2781,7 +2781,7 @@ underlined headlines. The default is 3."
(org-init-section-numbers) (org-init-section-numbers)
(while (setq line (pop lines)) (while (setq line (pop lines))
(when (and link-buffer (string-match "^\\*+ " line)) (when (and link-buffer (string-match "^\\*+ " line))
(org-export-ascii-push-links link-buffer) (org-export-ascii-push-links (nreverse link-buffer))
(setq link-buffer nil)) (setq link-buffer nil))
(setq wrap nil) (setq wrap nil)
;; Remove the quoted HTML tags. ;; Remove the quoted HTML tags.
@ -2848,7 +2848,7 @@ underlined headlines. The default is 3."
(if wrap (setq line (org-export-ascii-wrap line wrap)))) (if wrap (setq line (org-export-ascii-wrap line wrap))))
(insert line "\n")))) (insert line "\n"))))
(org-export-ascii-push-links link-buffer) (org-export-ascii-push-links (nreverse link-buffer))
(normal-mode) (normal-mode)
@ -2957,7 +2957,8 @@ underlined headlines. The default is 3."
"^\\(\\([ \t]*\\)\\|\\(\\*+ \\)\\)[^ \t\n]" nil t)) "^\\(\\([ \t]*\\)\\|\\(\\*+ \\)\\)[^ \t\n]" nil t))
(setq ind (or (match-string 2) (setq ind (or (match-string 2)
(make-string (length (match-string 3)) ?\ ))))) (make-string (length (match-string 3)) ?\ )))))
(mapc (lambda (x) (insert ind "[" (car x) "]: " link)) link-buffer)) (mapc (lambda (x) (insert ind "[" (car x) "]: " (cdr x) "\n"))
link-buffer))
(insert "\n"))) (insert "\n")))
(defun org-insert-centered (s &optional underline) (defun org-insert-centered (s &optional underline)