get tab urls from chrome into org-mode with applescript

gla-chrome-tabs-to-org.el

(defun gla/chrome-tabs-to-org ()
  (interactive)
  ;; adopted from applescript found here: https://pastebin.com/AXDtWJKL
  (let* ((osascript-urls (do-applescript "
tell application \"Google Chrome\"                                     
    set allUrls to {}                                                                       
    repeat with theWindow in every window                               
        set urlsInWindow to {}                                                      
        repeat with theTab in every tab of theWindow            
            set currentUrl to the theTab\'s URL                         
            set urlsInWindow to urlsInWindow & {currentUrl}
        end repeat                                                                              
        set allUrls to allUrls & {urlsInWindow}                     
    end repeat                                                                                  
end tell
"))
         (urls (split-string (replace-regexp-in-string "[\"{}]+" "" osascript-urls) ", ")))
    (insert (mapconcat (lambda (x) (format "- [[%s]]\n" x)) urls ""))))