Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

lots of new stuff

  • Loading branch information...
commit e485201209d2307809a92fab32191148e9a54b4d 1 parent 13311d9
Nic Ferrier authored

Showing 1 changed file with 8 additions and 3 deletions. Show diff stats Hide diff stats

  1. +8 3 kv.el
11 kv.el
@@ -153,15 +153,20 @@ cons cells."
153 153 (assoc-default car-key alist)
154 154 (assoc-default cdr-key alist)))))
155 155
156   -(defun kvalist-keys->symbols (alist)
157   - "Convert the keys in ALIST to symbols."
  156 +(defun kvalist-keys->* (alist fn)
  157 + "Convert the keys of ALIST through FN."
158 158 (mapcar
159 159 (lambda (pair)
160 160 (cons
161   - (intern (format "%s" (car pair)))
  161 + (funcall fn (car pair))
162 162 (cdr pair)))
163 163 alist))
164 164
  165 +(defun kvalist-keys->symbols (alist)
  166 + "Convert the keys of ALIST into symbols."
  167 + (kvalist-keys->* alist (lambda (key) (intern (format "%s" key)))))
  168 +
  169 +
165 170 (defun kvcmp (a b)
166 171 "Do a comparison of the two values using printable syntax.
167 172

0 comments on commit e485201

Please sign in to comment.
Something went wrong with that request. Please try again.