lisp/org-ascii.el

   1 ;;; org-ascii.el --- ASCII export for Org-mode
   2
   3 ;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009
   4 ;;   Free Software Foundation, Inc.
   5
   6 ;; Author: Carsten Dominik <carsten at orgmode dot org>
   7 ;; Keywords: outlines, hypermedia, calendar, wp
   8 ;; Homepage: http://orgmode.org
   9 ;; Version: 6.33trans
  10 ;;
  11 ;; This file is part of GNU Emacs.
  12 ;;
  13 ;; GNU Emacs is free software: you can redistribute it and/or modify
  14 ;; it under the terms of the GNU General Public License as published by
  15 ;; the Free Software Foundation, either version 3 of the License, or
  16 ;; (at your option) any later version.
  17
  18 ;; GNU Emacs is distributed in the hope that it will be useful,
  19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21 ;; GNU General Public License for more details.
  22
  23 ;; You should have received a copy of the GNU General Public License
  24 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  25 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  26 ;;
  27 ;;; Commentary:
  28
  29 (require 'org-exp)
  30 (eval-when-compile
  31   (require 'cl))
  32
  33 (defgroup org-export-ascii nil
  34   "Options specific for ASCII export of Org-mode files."
  35   :tag "Org Export ASCII"
  36   :group 'org-export)
  37
  38 (defcustom org-export-ascii-underline '(?\$ ?\# ?^ ?\~ ?\= ?\-)
  39   "Characters for underlining headings in ASCII export.
  40 In the given sequence, these characters will be used for level 1, 2, ..."
  41   :group 'org-export-ascii
  42   :type '(repeat character))
  43
  44 (defcustom org-export-ascii-bullets '(?* ?+ ?-)
  45   "Bullet characters for headlines converted to lists in ASCII export.
  46 The first character is used for the first lest level generated in this
  47 way, and so on.  If there are more levels than characters given here,
  48 the list will be repeated.
  49 Note that plain lists will keep the same bullets as the have in the
  50 Org-mode file."
  51   :group 'org-export-ascii
  52   :type '(repeat character))
  53
  54 (defcustom org-export-ascii-links-to-notes t
  55   "Non-nil means, convert links to notes before the next headline.
  56 When nil, the link will be exported in place.  If the line becomes long
  57 in this way, it will be wrapped."
  58   :group 'org-export-ascii
  59   :type 'boolean)
  60
  61 (defcustom org-export-ascii-table-keep-all-vertical-lines nil
  62   "Non-nil means, keep all vertical lines in ASCII tables.
  63 When nil, vertical lines will be removed except for those needed
  64 for column grouping."
  65   :group 'org-export-ascii
  66   :type 'boolean)
  67
  68 ;;; Hooks
  69
  70 (defvar org-export-ascii-final-hook nil
  71   "Hook run at the end of ASCII export, in the new buffer.")
  72
  73 ;;; ASCII export
  74
  75 (defvar org-ascii-current-indentation nil) ; For communication
  76
  77 ;;;###autoload
  78 (defun org-export-as-ascii-to-buffer (arg)
  79   "Call `org-export-as-ascii` with output to a temporary buffer.
  80 No file is created.  The prefix ARG is passed through to `org-export-as-ascii'."
  81   (interactive "P")
  82   (org-export-as-ascii arg nil nil "*Org ASCII Export*")
  83   (when org-export-show-temporary-export-buffer
  84     (switch-to-buffer-other-window "*Org ASCII Export*")))
  85
  86 ;;;###autoload
  87 (defun org-replace-region-by-ascii (beg end)
  88   "Assume the current region has org-mode syntax, and convert it to plain ASCII.
  89 This can be used in any buffer.  For example, you could write an
  90 itemized list in org-mode syntax in a Mail buffer and then use this
  91 command to convert it."
  92   (interactive "r")
  93   (let (reg ascii buf pop-up-frames)
  94     (save-window-excursion
  95       (if (org-mode-p)
  96           (setq ascii (org-export-region-as-ascii
  97                       beg end t 'string))
  98         (setq reg (buffer-substring beg end)
  99               buf (get-buffer-create "*Org tmp*"))
 100         (with-current-buffer buf
 101           (erase-buffer)
 102           (insert reg)
 103           (org-mode)
 104           (setq ascii (org-export-region-as-ascii
 105                       (point-min) (point-max) t 'string)))
 106         (kill-buffer buf)))
 107     (delete-region beg end)
 108     (insert ascii)))
 109
 110 ;;;###autoload
 111 (defun org-export-region-as-ascii (beg end &optional body-only buffer)
 112   "Convert region from BEG to END in org-mode buffer to plain ASCII.
 113 If prefix arg BODY-ONLY is set, omit file header, footer, and table of
 114 contents, and only produce the region of converted text, useful for
 115 cut-and-paste operations.
 116 If BUFFER is a buffer or a string, use/create that buffer as a target
 117 of the converted ASCII.  If BUFFER is the symbol `string', return the
 118 produced ASCII as a string and leave not buffer behind.  For example,
 119 a Lisp program could call this function in the following way:
 120
 121   (setq ascii (org-export-region-as-ascii beg end t 'string))
 122
 123 When called interactively, the output buffer is selected, and shown
 124 in a window.  A non-interactive call will only return the buffer."
 125   (interactive "r\nP")
 126   (when (interactive-p)
 127     (setq buffer "*Org ASCII Export*"))
 128   (let ((transient-mark-mode t) (zmacs-regions t)
 129         ext-plist rtn)
 130     (setq ext-plist (plist-put ext-plist :ignore-subtree-p t))
 131     (goto-char end)
 132     (set-mark (point)) ;; to activate the region
 133     (goto-char beg)
 134     (setq rtn (org-export-as-ascii
 135                nil nil ext-plist
 136                buffer body-only))
 137     (if (fboundp 'deactivate-mark) (deactivate-mark))
 138     (if (and (interactive-p) (bufferp rtn))
 139         (switch-to-buffer-other-window rtn)
 140       rtn)))
 141
 142 ;;;###autoload
 143 (defun org-export-as-ascii (arg &optional hidden ext-plist
 144                                to-buffer body-only pub-dir)
 145   "Export the outline as a pretty ASCII file.
 146 If there is an active region, export only the region.
 147 The prefix ARG specifies how many levels of the outline should become
 148 underlined headlines, default is 3.    Lower levels will become bulleted
 149 lists.  When HIDDEN is non-nil, don't display the ASCII buffer.
 150 EXT-PLIST is a property list with external parameters overriding
 151 org-mode's default settings, but still inferior to file-local
 152 settings.  When TO-BUFFER is non-nil, create a buffer with that
 153 name and export to that buffer.  If TO-BUFFER is the symbol
 154 `string', don't leave any buffer behind but just return the
 155 resulting ASCII as a string.  When BODY-ONLY is set, don't produce
 156 the file header and footer.  When PUB-DIR is set, use this as the
 157 publishing directory."
 158   (interactive "P")
 159   (run-hooks 'org-export-first-hook)
 160   (setq-default org-todo-line-regexp org-todo-line-regexp)
 161   (let* ((opt-plist (org-combine-plists (org-default-export-plist)
 162                                         ext-plist
 163                                         (org-infile-export-plist)))
 164          (region-p (org-region-active-p))
 165          (rbeg (and region-p (region-beginning)))
 166          (rend (and region-p (region-end)))
 167          (subtree-p
 168           (if (plist-get opt-plist :ignore-subtree-p)
 169               nil
 170             (when region-p
 171               (save-excursion
 172                 (goto-char rbeg)
 173                 (and (org-at-heading-p)
 174                      (>= (org-end-of-subtree t t) rend))))))
 175          (level-offset (if subtree-p
 176                            (save-excursion
 177                              (goto-char rbeg)
 178                              (+ (funcall outline-level)
 179                                 (if org-odd-levels-only 1 0)))
 180                          0))
 181          (opt-plist (setq org-export-opt-plist
 182                           (if subtree-p
 183                               (org-export-add-subtree-options opt-plist rbeg)
 184                             opt-plist)))
 185          (custom-times org-display-custom-times)
 186          (org-ascii-current-indentation '(0 . 0))
 187          (level 0) line txt
 188          (umax nil)
 189          (umax-toc nil)
 190          (case-fold-search nil)
 191          (bfname (buffer-file-name (or (buffer-base-buffer) (current-buffer))))
 192          (filename (if to-buffer
 193                        nil
 194                      (concat (file-name-as-directory
 195                               (or pub-dir
 196                                   (org-export-directory :ascii opt-plist)))
 197                              (file-name-sans-extension
 198                               (or (and subtree-p
 199                                        (org-entry-get (region-beginning)
 200                                                       "EXPORT_FILE_NAME" t))
 201                                   (file-name-nondirectory bfname)))
 202                              ".txt")))
 203          (filename (and filename
 204                         (if (equal (file-truename filename)
 205                                    (file-truename bfname))
 206                             (concat filename ".txt")
 207                           filename)))
 208          (buffer (if to-buffer
 209                      (cond
 210                       ((eq to-buffer 'string)
 211                        (get-buffer-create "*Org ASCII Export*"))
 212                       (t (get-buffer-create to-buffer)))
 213                    (find-file-noselect filename)))
 214          (org-levels-open (make-vector org-level-max nil))
 215          (odd org-odd-levels-only)
 216          (date  (plist-get opt-plist :date))
 217          (author (plist-get opt-plist :author))
 218          (title (or (and subtree-p (org-export-get-title-from-subtree))
 219                     (plist-get opt-plist :title)
 220                     (and (not
 221                           (plist-get opt-plist :skip-before-1st-heading))
 222                          (org-export-grab-title-from-buffer))
 223                     (file-name-sans-extension
 224                      (file-name-nondirectory bfname))))
 225          (email (plist-get opt-plist :email))
 226          (language (plist-get opt-plist :language))
 227          (quote-re0 (concat "^[ \t]*" org-quote-string "\\>"))
 228          (todo nil)
 229          (lang-words nil)
 230          (region
 231           (buffer-substring
 232            (if (org-region-active-p) (region-beginning) (point-min))
 233            (if (org-region-active-p) (region-end) (point-max))))
 234          (lines (org-split-string
 235                  (org-export-preprocess-string
 236                   region
 237                   :for-ascii t
 238                   :skip-before-1st-heading
 239                   (plist-get opt-plist :skip-before-1st-heading)
 240                   :drawers (plist-get opt-plist :drawers)
 241                   :tags (plist-get opt-plist :tags)
 242                   :priority (plist-get opt-plist :priority)
 243                   :footnotes (plist-get opt-plist :footnotes)
 244                   :timestamps (plist-get opt-plist :timestamps)
 245                   :todo-keywords (plist-get opt-plist :todo-keywords)
 246                   :verbatim-multiline t
 247                   :select-tags (plist-get opt-plist :select-tags)
 248                   :exclude-tags (plist-get opt-plist :exclude-tags)
 249                   :archived-trees
 250                   (plist-get opt-plist :archived-trees)
 251                   :add-text (plist-get opt-plist :text))
 252                  "\n"))
 253          thetoc have-headings first-heading-pos
 254          table-open table-buffer link-buffer link desc desc0 rpl wrap)
 255     (let ((inhibit-read-only t))
 256       (org-unmodified
 257        (remove-text-properties (point-min) (point-max)
 258                                '(:org-license-to-kill t))))
 259
 260     (setq org-min-level (org-get-min-level lines level-offset))
 261     (setq org-last-level org-min-level)
 262     (org-init-section-numbers)
 263     (setq lang-words (or (assoc language org-export-language-setup)
 264                          (assoc "en" org-export-language-setup)))
 265     (set-buffer buffer)
 266     (erase-buffer)
 267     (fundamental-mode)
 268     (org-install-letbind)
 269     ;; create local variables for all options, to make sure all called
 270     ;; functions get the correct information
 271     (mapc (lambda (x)
 272             (set (make-local-variable (nth 2 x))
 273                  (plist-get opt-plist (car x))))
 274           org-export-plist-vars)
 275     (org-set-local 'org-odd-levels-only odd)
 276     (setq umax (if arg (prefix-numeric-value arg)
 277                  org-export-headline-levels))
 278     (setq umax-toc (if (integerp org-export-with-toc)
 279                        (min org-export-with-toc umax)
 280                      umax))
 281
 282     ;; File header
 283     (unless body-only
 284       (when (and title (not (string= "" title)))
 285         (org-insert-centered title ?=)
 286         (insert "\n"))
 287
 288       (if (and (or author email)
 289                org-export-author-info)
 290           (insert(concat (nth 1 lang-words) ": " (or author "")
 291                           (if email (concat " <" email ">") "")
 292                           "\n")))
 293
 294       (cond
 295        ((and date (string-match "%" date))
 296         (setq date (format-time-string date)))
 297        (date)
 298        (t (setq date (format-time-string "%Y-%m-%d %T %Z"))))
 299
 300       (if (and date org-export-time-stamp-file)
 301           (insert (concat (nth 2 lang-words) ": " date"\n")))
 302
 303       (unless (= (point) (point-min))
 304         (insert "\n\n")))
 305
 306     (if (and org-export-with-toc (not body-only))
 307         (progn
 308           (push (concat (nth 3 lang-words) "\n") thetoc)
 309           (push (concat (make-string (string-width (nth 3 lang-words)) ?=)
 310                         "\n") thetoc)
 311           (mapc '(lambda (line)
 312                    (if (string-match org-todo-line-regexp
 313                                      line)
 314                        ;; This is a headline
 315                        (progn
 316                          (setq have-headings t)
 317                          (setq level (- (match-end 1) (match-beginning 1)
 318                                         level-offset)
 319                                level (org-tr-level level)
 320                                txt (match-string 3 line)
 321                                todo
 322                                (or (and org-export-mark-todo-in-toc
 323                                         (match-beginning 2)
 324                                         (not (member (match-string 2 line)
 325                                                      org-done-keywords)))
 326                                         ; TODO, not DONE
 327                                    (and org-export-mark-todo-in-toc
 328                                         (= level umax-toc)
 329                                         (org-search-todo-below
 330                                          line lines level))))
 331                          (setq txt (org-html-expand-for-ascii txt))
 332
 333                          (while (string-match org-bracket-link-regexp txt)
 334                            (setq txt
 335                                  (replace-match
 336                                   (match-string (if (match-end 2) 3 1) txt)
 337                                   t t txt)))
 338
 339                          (if (and (memq org-export-with-tags '(not-in-toc nil))
 340                                   (string-match
 341                                    (org-re "[ \t]+:[[:alnum:]_@:]+:[ \t]*$")
 342                                    txt))
 343                              (setq txt (replace-match "" t t txt)))
 344                          (if (string-match quote-re0 txt)
 345                              (setq txt (replace-match "" t t txt)))
 346
 347                          (if org-export-with-section-numbers
 348                              (setq txt (concat (org-section-number level)
 349                                                " " txt)))
 350                          (if (<= level umax-toc)
 351                              (progn
 352                                (push
 353                                 (concat
 354                                  (make-string
 355                                   (* (max 0 (- level org-min-level)) 4) ?\ )
 356                                  (format (if todo "%s (*)\n" "%s\n") txt))
 357                                 thetoc)
 358                                (setq org-last-level level))
 359                            ))))
 360                 lines)
 361           (setq thetoc (if have-headings (nreverse thetoc) nil))))
 362
 363     (org-init-section-numbers)
 364     (while (setq line (pop lines))
 365       (when (and link-buffer (string-match "^\\*+ " line))
 366         (org-export-ascii-push-links (nreverse link-buffer))
 367         (setq link-buffer nil))
 368       (setq wrap nil)
 369       ;; Remove the quoted HTML tags.
 370       (setq line (org-html-expand-for-ascii line))
 371       ;; Replace links with the description when possible
 372       (while (string-match org-bracket-link-regexp line)
 373         (setq link (match-string 1 line)
 374               desc0 (match-string 3 line)
 375               desc (or desc0 (match-string 1 line)))
 376         (if (and (> (length link) 8)
 377                  (equal (substring link 0 8) "coderef:"))
 378             (setq line (replace-match
 379                         (format (org-export-get-coderef-format (substring link 8) desc)
 380                                 (cdr (assoc
 381                                       (substring link 8)
 382                                       org-export-code-refs)))
 383                         t t line))
 384           (setq rpl (concat "["
 385                             (or (match-string 3 line) (match-string 1 line))
 386                             "]"))
 387           (when (and desc0 (not (equal desc0 link)))
 388             (if org-export-ascii-links-to-notes
 389                 (push (cons desc0 link) link-buffer)
 390               (setq rpl (concat rpl " (" link ")")
 391                     wrap (+ (length line) (- (length (match-string 0 line)))
 392                             (length desc)))))
 393           (setq line (replace-match rpl t t line))))
 394       (when custom-times
 395         (setq line (org-translate-time line)))
 396       (cond
 397        ((string-match "^\\(\\*+\\)[ \t]+\\(.*\\)" line)
 398         ;; a Headline
 399         (setq first-heading-pos (or first-heading-pos (point)))
 400         (setq level (org-tr-level (- (match-end 1) (match-beginning 1)
 401                                      level-offset))
 402               txt (match-string 2 line))
 403         (org-ascii-level-start level txt umax lines))
 404
 405        ((and org-export-with-tables
 406              (string-match "^\\([ \t]*\\)\\(|\\|\\+-+\\+\\)" line))
 407         (if (not table-open)
 408             ;; New table starts
 409             (setq table-open t table-buffer nil))
 410         ;; Accumulate lines
 411         (setq table-buffer (cons line table-buffer))
 412         (when (or (not lines)
 413                   (not (string-match "^\\([ \t]*\\)\\(|\\|\\+-+\\+\\)"
 414                                      (car lines))))
 415           (setq table-open nil
 416                 table-buffer (nreverse table-buffer))
 417           (insert (mapconcat
 418                    (lambda (x)
 419                      (org-fix-indentation x org-ascii-current-indentation))
 420                    (org-format-table-ascii table-buffer)
 421                    "\n") "\n")))
 422        (t
 423         (if (string-match "^\\([ \t]*\\)\\([-+*][ \t]+\\)\\(.*?\\)\\( ::\\)" line)
 424             (setq line (replace-match "\\1\\3:" t nil line)))
 425         (setq line (org-fix-indentation line org-ascii-current-indentation))
 426         ;; Remove forced line breaks
 427         (if (string-match "\\\\\\\\[ \t]*$" line)
 428             (setq line (replace-match "" t t line)))
 429         (if (and org-export-with-fixed-width
 430                  (string-match "^\\([ \t]*\\)\\(:\\( \\|$\\)\\)" line))
 431             (setq line (replace-match "\\1" nil nil line))
 432           (if wrap (setq line (org-export-ascii-wrap line wrap))))
 433         (insert line "\n"))))
 434
 435     (org-export-ascii-push-links (nreverse link-buffer))
 436
 437     (normal-mode)
 438
 439     ;; insert the table of contents
 440     (when thetoc
 441       (goto-char (point-min))
 442       (if (re-search-forward "^[ \t]*\\[TABLE-OF-CONTENTS\\][ \t]*$" nil t)
 443           (progn
 444             (goto-char (match-beginning 0))
 445             (replace-match ""))
 446         (goto-char first-heading-pos))
 447       (mapc 'insert thetoc)
 448       (or (looking-at "[ \t]*\n[ \t]*\n")
 449           (insert "\n\n")))
 450
 451     ;; Convert whitespace place holders
 452     (goto-char (point-min))
 453     (let (beg end)
 454       (while (setq beg (next-single-property-change (point) 'org-whitespace))
 455         (setq end (next-single-property-change beg 'org-whitespace))
 456         (goto-char beg)
 457         (delete-region beg end)
 458         (insert (make-string (- end beg) ?\ ))))
 459
 460     ;; remove display and invisible chars
 461     (let (beg end)
 462       (goto-char (point-min))
 463       (while (setq beg (next-single-property-change (point) 'display))
 464         (setq end (next-single-property-change beg 'display))
 465         (delete-region beg end)
 466         (goto-char beg)
 467         (insert "=>"))
 468       (goto-char (point-min))
 469       (while (setq beg (next-single-property-change (point) 'org-cwidth))
 470         (setq end (next-single-property-change beg 'org-cwidth))
 471         (delete-region beg end)
 472         (goto-char beg)))
 473     (run-hooks 'org-export-ascii-final-hook)
 474     (or to-buffer (save-buffer))
 475     (goto-char (point-min))
 476     (or (org-export-push-to-kill-ring "ASCII")
 477         (message "Exporting... done"))
 478     ;; Return the buffer or a string, according to how this function was called
 479     (if (eq to-buffer 'string)
 480         (prog1 (buffer-substring (point-min) (point-max))
 481           (kill-buffer (current-buffer)))
 482       (current-buffer))))
 483
 484 (defun org-export-ascii-preprocess (parameters)
 485   "Do extra work for ASCII export"
 486   ;; Put quotes around verbatim text
 487   (goto-char (point-min))
 488   (while (re-search-forward org-verbatim-re nil t)
 489     (goto-char (match-end 2))
 490     (backward-delete-char 1) (insert "'")
 491     (goto-char (match-beginning 2))
 492     (delete-char 1) (insert "`")
 493     (goto-char (match-end 2)))
 494   ;; Remove target markers
 495   (goto-char (point-min))
 496   (while (re-search-forward  "<<<?\\([^<>]*\\)>>>?\\([ \t]*\\)" nil t)
 497     (replace-match "\\1\\2")))
 498
 499 (defun org-html-expand-for-ascii (line)
 500   "Handle quoted HTML for ASCII export."
 501   (if org-export-html-expand
 502       (while (string-match "@<[^<>\n]*>" line)
 503         ;; We just remove the tags for now.
 504         (setq line (replace-match "" nil nil line))))
 505   line)
 506
 507 (defun org-export-ascii-wrap (line where)
 508   "Wrap LINE at or before WHERE."
 509   (let ((ind (org-get-indentation line))
 510         pos)
 511     (catch 'found
 512       (loop for i from where downto (/ where 2) do
 513             (and (equal (aref line i) ?\ )
 514                  (setq pos i)
 515                  (throw 'found t))))
 516     (if pos
 517         (concat (substring line 0 pos) "\n"
 518                 (make-string ind ?\ )
 519                 (substring line (1+ pos)))
 520       line)))
 521
 522 (defun org-export-ascii-push-links (link-buffer)
 523   "Push out links in the buffer."
 524   (when link-buffer
 525     ;; We still have links to push out.
 526     (insert "\n")
 527     (let ((ind ""))
 528       (save-match-data
 529         (if (save-excursion
 530               (re-search-backward
 531                "^\\(\\([ \t]*\\)\\|\\(\\*+ \\)\\)[^ \t\n]" nil t))
 532             (setq ind (or (match-string 2)
 533                           (make-string (length (match-string 3)) ?\ )))))
 534       (mapc (lambda (x) (insert ind "[" (car x) "]: " (cdr x) "\n"))
 535             link-buffer))
 536     (insert "\n")))
 537
 538 (defun org-ascii-level-start (level title umax &optional lines)
 539   "Insert a new level in ASCII export."
 540   (let (char (n (- level umax 1)) (ind 0))
 541     (if (> level umax)
 542         (progn
 543           (insert (make-string (* 2 n) ?\ )
 544                   (char-to-string (nth (% n (length org-export-ascii-bullets))
 545                                        org-export-ascii-bullets))
 546                   " " title "\n")
 547           ;; find the indentation of the next non-empty line
 548           (catch 'stop
 549             (while lines
 550               (if (string-match "^\\* " (car lines)) (throw 'stop nil))
 551               (if (string-match "^\\([ \t]*\\)\\S-" (car lines))
 552                   (throw 'stop (setq ind (org-get-indentation (car lines)))))
 553               (pop lines)))
 554           (setq org-ascii-current-indentation (cons (* 2 (1+ n)) ind)))
 555       (if (or (not (equal (char-before) ?\n))
 556               (not (equal (char-before (1- (point))) ?\n)))
 557           (insert "\n"))
 558       (setq char (nth (- umax level) (reverse org-export-ascii-underline)))
 559       (unless org-export-with-tags
 560         (if (string-match (org-re "[ \t]+\\(:[[:alnum:]_@:]+:\\)[ \t]*$") title)
 561             (setq title (replace-match "" t t title))))
 562       (if org-export-with-section-numbers
 563           (setq title (concat (org-section-number level) " " title)))
 564       (insert title "\n" (make-string (string-width title) char) "\n")
 565       (setq org-ascii-current-indentation '(0 . 0)))))
 566
 567 (defun org-insert-centered (s &optional underline)
 568   "Insert the string S centered and underline it with character UNDERLINE."
 569   (let ((ind (max (/ (- fill-column (string-width s)) 2) 0)))
 570     (insert (make-string ind ?\ ) s "\n")
 571     (if underline
 572         (insert (make-string ind ?\ )
 573                 (make-string (string-width s) underline)
 574                 "\n"))))
 575
 576 (defvar org-table-colgroup-info nil)
 577 (defun org-format-table-ascii (lines)
 578   "Format a table for ascii export."
 579   (if (stringp lines)
 580       (setq lines (org-split-string lines "\n")))
 581   (if (not (string-match "^[ \t]*|" (car lines)))
 582       ;; Table made by table.el - test for spanning
 583       lines
 584
 585     ;; A normal org table
 586     ;; Get rid of hlines at beginning and end
 587     (if (string-match "^[ \t]*|-" (car lines)) (setq lines (cdr lines)))
 588     (setq lines (nreverse lines))
 589     (if (string-match "^[ \t]*|-" (car lines)) (setq lines (cdr lines)))
 590     (setq lines (nreverse lines))
 591     (when org-export-table-remove-special-lines
 592       ;; Check if the table has a marking column.  If yes remove the
 593       ;; column and the special lines
 594       (setq lines (org-table-clean-before-export lines)))
 595     ;; Get rid of the vertical lines except for grouping
 596     (if org-export-ascii-table-keep-all-vertical-lines
 597         lines
 598       (let ((vl (org-colgroup-info-to-vline-list org-table-colgroup-info))
 599             rtn line vl1 start)
 600         (while (setq line (pop lines))
 601           (if (string-match org-table-hline-regexp line)
 602               (and (string-match "|\\(.*\\)|" line)
 603                    (setq line (replace-match " \\1" t nil line)))
 604             (setq start 0 vl1 vl)
 605             (while (string-match "|" line start)
 606               (setq start (match-end 0))
 607               (or (pop vl1) (setq line (replace-match " " t t line)))))
 608           (push line rtn))
 609         (nreverse rtn)))))
 610
 611 (defun org-colgroup-info-to-vline-list (info)
 612   (let (vl new last)
 613     (while info
 614       (setq last new new (pop info))
 615       (if (or (memq last '(:end :startend))
 616               (memq new  '(:start :startend)))
 617           (push t vl)
 618         (push nil vl)))
 619     (setq vl (nreverse vl))
 620     (and vl (setcar vl nil))
 621     vl))
 622
 623 (provide 'org-ascii)
 624
 625 ;; arch-tag: aa96f882-f477-4e13-86f5-70d43e7adf3c
 626 ;;; org-ascii.el ends here