export my to-read list to pocket

export-org-list-to-pocket.el

(defun parse-entry ()
  (let* ((data (org-heading-components))
         (link-string (nth 4 data))
         (tags-string (nth 5 data))
         (link-match (s-match "\\[\\[\\(\\([^\]\:]*\\)\://[^\]]*\\)\\]\\[\\([^\]\:]*\\)\\]\\]" link-string))
         (link (nth 1 link-match))
         (protocol (nth 2 link-match))
         (title (nth 3 link-match))
         (dummy (message title))
         (tags (if tags-string
                   (s-split "\\:" (nth 1 (s-match "\:\\(.*\\)\:" tags-string)))
                   nil)))
    (if (not (string= "file" protocol))
        (pocket-lib-add-urls link :tags tags)
        ())
    )
)