     ("sh" . "sh")
     ("sql" . "sql")
     ("sqlite" . "sqlite3")
-    ("tcl" . "tcl")
-    )
+    ("tcl" . "tcl"))
   "Alist between org-babel languages and Pygments lexers.
-
+lang is downcased before assoc, so use lowercase to describe language available.
 See: http://orgmode.org/worg/org-contrib/babel/languages.html and
-http://pygments.org/docs/lexers/ for adding new languages to the
-mapping. ")
+http://pygments.org/docs/lexers/ for adding new languages to the mapping.")
 
 ;; Override the html export function to use pygments
 (defun org-html-src-block (src-block contents info)

  (if (org-export-read-attribute :attr_html src-block :textarea)
      (org-html--textarea-block src-block)
    (let ((lang (org-element-property :language src-block))
	  (code (org-html-format-code src-block info)))
      (if nikola-use-pygments
          (pygmentize lang (org-html-decode-plain-text code))
        code))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Export function used by Nikola.
(defun nikola-html-export (infile outfile)
  "Export the body only of the input file and write it to
specified location."

  (with-current-buffer (find-file infile)
    (org-macro-replace-all nikola-macro-templates)
    (org-html-export-as-html nil nil t t)

           (expand-file-name "macros.org" (file-name-directory load-file-name)))
        (org-macro--collect-macros)))

;;; Code highlighting
(defun org-html-decode-plain-text (text)
  "Convert HTML character to plain TEXT. i.e. do the inversion of
     `org-html-encode-plain-text`. Possible conversions are set in
     `org-html-protect-char-alist'."
  (mapc
   (lambda (pair)
     (setq text (replace-regexp-in-string (cdr pair) (car pair) text t t)))
   (reverse org-html-protect-char-alist))
  text)

;; Use pygments highlighting for code
(defun pygmentize (lang code)
