Re: importing google docs document into org

[Le Wang <l26wang@gmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 2073 bytes --]

On Fri, Feb 18, 2011 at 1:24 PM, Puneeth Chaganti <punchagan@gmail.com>wrote:

> You could try using Pandoc [1]. It can parse various markups
> (including html) and reformat it into various other markups (including
> org). There may be a few rough ends in the org-exporter, but it might
> be good enough for you.
>

Outstanding.  I exported the document from google docs to html then used
pandoc to convert to org-mode.  The conversion wasn't perfect.  I had to
manually edit a few things.  But it wasn't too painful.

Here are some support functions I made to scrub the hyperlinks.

(defun le::fix-google-doc-link ()
  "unhexify URLs and collapse any repeated links.
"
  (interactive)
  (let ((link-regexp "\\[http://www.google.com/url\\?q=\\(.*
?\\)&sa=.*?\\]"))
    (save-excursion
      (goto-char (point-min))
      (le::collapse-org-consecutive-links)
      (goto-char (point-min))
      (while (re-search-forward link-regexp nil t)
        (replace-match (concat "["
                               (save-match-data
                                 (url-unhex-string
(match-string-no-properties 1)))
                               "]") t t)))))


(defun le::collapse-org-consecutive-links ()
  "pandoc conversion of google docs HTML sometimes break a
  multi-word hyperlink into individual links.  This function
  collapses them back into one
  link."
  (interactive)
  (let ((link-regex
"\\[\\[\\([^[:space:]]*?\\)\\]\\[\\(\\(?:.\\|\n\\)*?\\)\\]\\]")
        url
        text)
    (while (re-search-forward link-regex nil t)
      (setq url (match-string-no-properties 1)
            text (match-string-no-properties 2))
      (save-match-data
        (catch 'done
          (while (looking-at link-regex)
            (if (string-equal url (match-string-no-properties 1))
                (progn
                  (setq text (concat text (match-string-no-properties 2)))
                  (replace-match ""))
              (throw 'done nil)))))
      (when (not (string-equal text (match-string-no-properties 2)))
        (replace-match text t t nil 2)))))



-- 
Le

[-- Attachment #1.2: Type: text/html, Size: 4715 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode