   :group 'shm
   :type 'string)
 
+(defcustom shm-lambda-indent-style
+  'leftmost-parent
+  "Specify a particular style for indenting lambdas?"
+  :group 'shm
+  :type 'symbol)
+
 (defcustom shm-idle-timeout
   0.2
   "Number of seconds before re-parsing."

                             ? ))
        (shm/init)))
     ((eq 'Lambda (shm-node-cons parent))
      (newline)
      (indent-to (+ (shm-indent-spaces)
                    (shm-node-start-column parent))))
     ;; Guards | foo = …
     ((string= "GuardedRhs" (shm-node-type-name current))
      (newline)

  (save-excursion (goto-char (shm-node-start n))
                  (current-column)))

(defun shm-node-indent-column (n)
  "Get the starting column of N."
  (+ (shm-node-start-column n)
     (if (or (string= "Tuple" (shm-node-cons n))
             (string= "Paren" (shm-node-cons n))
             (string= "List" (shm-node-cons n)))
         1
       0)))

(defun shm-node-end-column (n)
  "Get the end column of N."
  (save-excursion (goto-char (shm-node-end n))
