IBP banding data system: emacs customizations

Similar to Section 4.3, “maps2004m.el: Multiple-station sets, MAPS 2004/2006 protocol”, but for single-station sets where the station code is not present.

;; 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 ibp-field-list
      (vector (ibp-field-def 4 "????")      ;; Species code
              (ibp-field-def 3 "0  " )      ;; Age, how-aged
              (ibp-field-def 3 "u  " )      ;; Sex, how-sexed
              (ibp-field-def 4 nil )        ;; Skull through fat
              (ibp-field-def 4 nil )        ;; Body molt through JP
              (ibp-field-def 4 nil )        ;; Pri.cov/Sec.cov/Pri/Sec
              (ibp-field-def 4 nil )        ;; Tert/Rect/Body plum/NF
              (ibp-field-def 3 nil )        ;; Wing length
              (ibp-field-def 4 nil )        ;; Weight
              (ibp-field-def 5 "3????" )    ;; Status, date
              (ibp-field-def 3 nil )        ;; Time
              (ibp-field-def 2 nil ) ) )    ;; Net
(global-set-key "\C-i" 'ibp-tab)
(global-set-key [?\C-_] 'ibp-ditto)
(global-set-key [?\C--] 'ibp-ditto)