 
 (defun org-wiki-asset-download-insert2 ()
   "Download a file from a URL in the clibpoard and inserts a link file:<page>/<asset-file>.
-Note: This function is synchronous and blocks Emacs. If Emacs is frozen type C-g 
+Note: This function is synchronous and blocks Emacs. If Emacs is frozen type C-g
 to cancel the download."
   (interactive)
   (org-wiki--asset-download-hof

                (message "Server stopped.")))))


(provide 'org-wiki)
;;; org-wiki.el ends here


(defun org-wiki--asset-download-hof (callback)
  "Higher order function to download a file.
Callback is a function with this signature:
 (callback <pagename> <filename>)

How this function works:
1. Ask the user for the URL suggesting the URL extracted from the clipboard.
2. Ask the user for the file name to be downloaded suggesting the filename extracted from
the URL.
3. Calls the callback function passing the current page name and the file name.

If the URL is: http://www.myurl.com/Manual1.pdf, the current page is Unix and
the callback function is:

  (lambda (p f) (insert (format \"%s/%s\" p f)))

if the user doesn't change the suggested file name It will insert at current
point: 'Unix/Manual.pdf'."
  (let*
      ((pagename (file-name-base (buffer-file-name)))
