org-download

commit bbd2453a423d3f8d71f8123e88981f25d722e518
parent 8f0d8d679831d9412c3c7b92605760ffc93d2a6d
Author: Oleh Krehel <ohwoeowho@gmail.com>
Date:   Fri, 18 Oct 2013 10:38:00 +0200

org-download.el: added some docstrings.

Diffstat:
M
org-download.el
 | 
10
++++++----

1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/org-download.el b/org-download.el
@@ -27,9 +27,9 @@
 ;; an org-mode buffer in Emacs.
 ;; The image will be downloaded to an appropriate folder and a link
 ;; to it will be inserted at point.
-
+;;
+;;; Code:
 
-
 (require 'async)
 (eval-when-compile
   (require 'cl))
@@ -47,7 +47,7 @@
 (defvar org-download--backend-cmd nil
   "Backend command for downloading.
 
-Do not set this directly. Customize `org-download-backend' instead.")
+Do not set this directly.  Customize `org-download-backend' instead.")
 
 (defcustom org-download-backend 'wget
   "Set this to 'wget or 'curl."
@@ -55,7 +55,7 @@ Do not set this directly. Customize `org-download-backend' instead.")
          (case value
            (wget (setq org-download--backend-cmd "wget \"%s\" -O \"%s\""))
            (curl (setq org-download--backend-cmd "curl \"%s\" -o \"%s\""))
-           (t (error "Unsupported key: %s." value)))
+           (t (error "Unsupported key: %s" value)))
          (set-default symbol value)))
 
 (defun org-download-get-heading (lvl)
@@ -116,12 +116,14 @@ DIR is the name of the current level 0 heading."
   (org-download-image uri))
 
 (defun org-download-enable ()
+  "Enable org-download."
   (unless (eq (cdr (assoc "^\\(https?\\|ftp\\|file\\|nfs\\)://" dnd-protocol-alist))
               'org-download-dnd)
     (setq dnd-protocol-alist
           `(("^\\(https?\\|ftp\\|file\\|nfs\\)://" . org-download-dnd) ,@dnd-protocol-alist))))
 
 (defun org-download-disable ()
+  "Disable org-download."
   (rassq-delete-all 'org-download-dnd dnd-protocol-alist))
 
 (org-download-enable)