andreareina

(add-hook 'after-save-hook
          (lambda ()
            (org-map-entries
             (lambda ()
               (let ((name (nth 4 (org-heading-components))))
                 (when (and
                        ;; export only top-level entries
                        (= 1 (nth 0 (org-heading-components)))
                        ;; subtree export, body only
                        (org-html-export-as-html nil t nil t))

andreareina

Pattern Matching

The problem

I’d like to be able to write functions using pattern-matching, something like so:

(defun factorial (n)
  (pattern-case n
    (0 1)
    (n (* n (factorial (1- n))))))

andreareina

Programming Achievements: How to Level Up as a Developer

This gist is part of a blog post. Check it out at:

http://jasonrudolph.com/blog/2011/08/09/programming-achievements-how-to-level-up-as-a-developer