Re: [Orgmode] importing google docs document into org

[Le Wang]

On Fri, Feb 18, 2011 at 1:24 PM, Puneeth Chaganti <address@hidden> 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