====== vcard.lisp parse-attribute ======

Incremental improvement to parse-attribute based on advice here:
  * http://stackoverflow.com/questions/211717/common-lisp-programatic-keyword

<code lisp>
(defun parse-attribute (string)
  (let*
      ((pos (position #\: string))     ; need to allow for lines w/out ":"
       (prop (subseq string 0 pos))
       (val (subseq string (1+ pos))))
    (setq *curr-card* (append *curr-card* (list (values (intern (string-upcase prop) "KEYWORD")) val))))) ; (values ...) and (string-upcase ...) necessary?
</code>

Once this works, next steps:

  - derived properties (first name, last name)
  - HTML dump (all records, properties)
  - alternate prop. names in HTML listing
  - list all properties
  - CSV output (all records, selected & ordered prop's)


{{tag>vcard lisp}}
Category: [[vcard:]]

~~LINKBACK~~
~~DISCUSSION~~