nicferrier

(defun elnode/bind-path (pattern httpcon)
  (let* ((path (elnode-http-pathinfo httpcon))
         (lst (split-string pattern "/" t))
         (patlst
          (let ((i 0))
            (loop for part in lst
               if (string-match-p "^:.*" part)
               collect (cons i (intern (substring part 1)))
               do (setq i (+ 1 i)))))

henrik

# Recursively diff two hashes, showing only the differing values.
# By Henrik Nyh <http://henrik.nyh.se> 2009-07-14 under the MIT license.
#
# Example:
#
# a = {
#   "same"   => "same",
#   "diff"   => "a",
#   "only a" => "a",
#   "nest" => {