Next / Previous / Contents / Shipman's homepage

3.7. maws2004m.el: Multi-station sets, MAWS protocol

MAWS 2004 multi-station protocol.

maws2004m.el
;; maws2004m.el:  Set up field values and keybindings for
;;   MAWS 2004 protocol, multiple stations.
;; To use, run emacs with this command line option:
;;   emacs -l maws2004m filename
;;
(load "ibp.el")
(setq field-def-list
      (vector
       (field-def-object 6 "??????")    ;; 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 )        ;; Micro-aging: 8 fields...
       (field-def-object 4 nil )        ;; ...(divided 2/4/2 on the sheet)
       (field-def-object 3 nil )        ;; Wing length
       (field-def-object 4 nil )        ;; Mass (used to be weight)
       (field-def-object 5 "3????" )    ;; Status, date
       (field-def-object 3 nil )        ;; Time
       (field-def-object 4 nil )        ;; Station code
       (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)