3.2. maps2004s.el: Single-station
sets, MAPS 2004/2006 protocol
Similar to Section 3.1, “maps2004m.el: Multiple-station
sets, MAPS 2004/2006 protocol”, but for
single-station sets where the station code is not
present.
maps2004s.el
;; maps2004s.el: Set up field values and keybindings for
;; MAPS 2004 protocol, single stations.
;; To use, run emacs with this command line option:
;; emacs -l maps2004s filename
;;
(load "ibp.el")
(setq field-def-list
(vector (field-def-object 4 "????") ;; Species code
(field-def-object 3 "0 " ) ;; Age, how-aged
(field-def-object 3 "u " ) ;; Sex, how-sexed
(field-def-object 4 nil ) ;; Skull through fat
(field-def-object 4 nil ) ;; Four old molt codes
(field-def-object 4 nil ) ;; Pri.cov/Sec.cov/Pri/Sec
(field-def-object 4 nil ) ;; Tert/Rect/Body plum/Nonfeath
(field-def-object 3 nil ) ;; Wing length
(field-def-object 4 nil ) ;; Weight
(field-def-object 5 "3????" ) ;; Status, date
(field-def-object 3 nil ) ;; Time
(field-def-object 2 nil ) ) ) ;; Net
(global-set-key "\C-i" 'ibp-tab)
(global-set-key [?\C-^] 'ibp-ditto)
(global-set-key [?\C-6] 'ibp-ditto)
