Next / Previous / Contents / Shipman's homepage

4. Top-level modules

Each of these modules is loaded by the emacs user to set up one particular format.

4.1. maps2013m.el: Multiple-station sets, MAPS 2013 protocol

This module sets up a field structure for a multi-station set in the 2013 MAPS protocol.

maps2013m.el
;; maps2013m.el:  Set up field values and keybindings for
;;   MAPS 2013 protocol, multiple stations.
;; To use, run emacs with this command line option:
;;   emacs -l maps2013m filename
;;

First we load the common functions used by all the top-level modules.

maps2013m.el
(load "ibp.el")

Next comes the table that defines the field layout of the tail portion in the MAPS 2004 protocol.

maps2013m.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 3 nil)         ;; WRP molt cycle codes
       (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 4 nil)         ;; Station code
       (ibp-field-def 2 nil)))       ;; Net

Finally, we bind the keys are discussed in Section 3, “Notes on key bindings”.

maps2013m.el
(global-set-key "\C-i" 'ibp-tab)
(global-set-key [?\C-_] 'ibp-ditto)
(global-set-key [?\C--] 'ibp-ditto)