; -*- emacs-lisp -*-

(setq forms-file "./contacts.csv")
(setq forms-number-of-fields 12)
(setq forms-read-only nil)
(setq forms-field-sep ";")
(setq forms-multi-line "
")

(setq forms-number-of-fields
       (forms-enumerate
        '(code 
	  first-name
	  last-name
	  member 
	  email 
	  autEmail 
	  fax 
	  pwd 
	  arg-1 
	  arg-2 
	  arg-3 
	  arg-4)))
	

(setq forms-format-list
      (list
       "==== contacts.csv ====\n\n"
       "      Code: "   code "\n"
       "      Name: "   first-name "  " last-name "\n"
       "    Member: "   member "\n"
       "     Email: "   email "\n"
       "Aut. Email: "   autEmail "\n"
       "       Fax: "   fax "\n"
       "  Password: "   pwd "\n"
       "     arg-1: "   arg-1 "\n"
       "     arg-1: "  arg-2 "\n"
       "     arg-1: "  arg-3 "\n"
       "     arg-1: "  arg-4 "\n" ))