endless-sky-mode/endless-sky-mode.el

(defvar endless-sky-constants
  '("color"
    "conversation"
    "effect"
    "event"
    "fleet"
    "galaxy"
    "government"
    "hazard"
    "interface"
    "mission"
    "news"
    "outfit"
    "outfitter"
    "person"
    "phrase"
    "planet"
    "ship"
    "shipyard"
    "start"
    "substitution"
    "system"
    "true"
    "false"
    "trade"))
  
(defvar endless-sky-builtins
  '(
    "Drone"
    "Fighter"
    "Fine"
    "Mortgage"
    "abort"
    "absolute"
    "accept"
    "accompany"
    "account"
    "action"
    "active"
    "addend"
    "afterburner"
    "ammo"
    "angle"
    "anti-missile"
    "apparent"
    "arrival"
    "assist"
    "assisting"
    "asteroid"
    "atmosphere"
    "atrocities"
    "atrocity"
    "attitude"
    "attributes"
    "automaton"
    "back"
    "bay"
    "belt"
    "blast"
    "blast"
    "blocked"
    "board"
    "boarding"
    "branch"
    "bribe"
    "brightness"
    "bunks"
    "burn"
    "burst"
    "capacity"
    "capture"
    "cargo"
    "category"
    "chance"
    "choice"
    "clear"
    "clearance"
    "cloak"
    "cloaking"
    "cluster"
    "collection"
    "commodities"
    "complete"
    "concealment"
    "conditions"
    "confusion"
    "constant"
    "consumption"
    "cooling"
    "corrosion"
    "cost"
    "costs"
    "count"
    "credits"
    "crew"
    "custom"
    "daily"
    "damage"
    "date"
    "deadline"
    "death"
    "decline"
    "defer"
    "delay"
    "density"
    "departure"
    "depleted"
    "description"
    "despawn"
    "destination"
    "destruct"
    "dialog"
    "die"
    "disable"
    "disabled"
    "discharge"
    "display"
    "disruption"
    "dissipation"
    "distance"
    "drag"
    "drive"
    "dropoff"
    "duration"
    "efficiency"
    "energy"
    "enforces"
    "engine"
    "enter"
    "environmental"
    "equivalent"
    "evade"
    "event"
    "explode"
    "facing"
    "fail"
    "fence"
    "fighters"
    "final"
    "fine"
    "fire"
    "firing"
    "flare"
    "flotsam"
    "force"
    "foreign"
    "frame"
    "frequency"
    "friendly"
    "fuel"
    "generation"
    "give"
    "goto"
    "government"
    "gravitational"
    "gun"
    "habitable"
    "hail"
    "hardpoint"
    "hazard"
    "haze"
    "heat"
    "hidden"
    "history"
    "hit"
    "homing"
    "hostile"
    "hull"
    "hyperdrive"
    "icon"
    "illegal"
    "illegals"
    "inaccuracy"
    "income"
    "inefficiency"
    "inertia"
    "infiltrating"
    "infrared"
    "inscrutable"
    "installable"
    "interest"
    "interference"
    "invisible"
    "ion"
    "jamming"
    "job"
    "jump"
    "kill"
    "label"
    "landing"
    "landscape"
    "language"
    "launch"
    "leak"
    "leakage"
    "left"
    "licenses"
    "lifetime"
    "link"
    "live"
    "location"
    "log"
    "maintenance"
    "map"
    "mappable"
    "mass"
    "message"
    "minable"
    "minables"
    "minor"
    "missile"
    "modifier"
    "mortgage"
    "mounts"
    "multiplier"
    "music"
    "name"
    "names"
    "near"
    "neighbor"
    "never"
    "noun"
    "npc"
    "object"
    "offer"
    "offset"
    "operating"
    "optical"
    "outfit"
    "outfits"
    "outfitter"
    "over"
    "overheat"
    "override"
    "parallel"
    "passengers"
    "payment"
    "penalties"
    "penalty"
    "percentage"
    "period"
    "personality"
    "phasing"
    "piercing"
    "planet"
    "player"
    "plural"
    "portrait"
    "ports"
    "pos"
    "power"
    "principal"
    "priority"
    "protection"
    "provoke"
    "provoked"
    "radar"
    "radius"
    "raid"
    "ramscoop"
    "random"
    "range"
    "rate"
    "relative"
    "reload"
    "remove"
    "repair"
    "repeat"
    "replace"
    "reputation"
    "require"
    "required"
    "resistance"
    "reveal"
    "reverse"
    "rewind"
    "right"
    "safe"
    "salaries"
    "save"
    "scale"
    "scaling"
    "scan"
    "scene"
    "score"
    "scram"
    "scramble"
    "security"
    "self"
    "sentence"
    "set"
    "shield"
    "shields"
    "ships"
    "shipyard"
    "show"
    "slowing"
    "solar"
    "sound"
    "source"
    "space"
    "spaceport"
    "spawn"
    "speed"
    "spin"
    "split"
    "sprite"
    "star"
    "starfield"
    "stealth"
    "steering"
    "stopover"
    "stream"
    "strength"
    "submunition"
    "substitutions"
    "swizzle"
    "system"
    "system-wide"
    "tactical"
    "target"
    "term"
    "threshold"
    "thrust"
    "thrusting"
    "thumbnail"
    "time"
    "toward"
    "tracking"
    "tribute"
    "trigger"
    "turn"
    "turning"
    "turret"
    "uncapturable"
    "under"
    "universal"
    "unlink"
    "unplunderable"
    "unvisit"
    "variant"
    "velocity"
    "visit"
    "waypoint"
    "weapon"
    "wind"
    "word"
    "wormhole"
    "zoom"
    ))

(defvar endless-sky-keywords
  '(
    "no"
    "on"
    "to"
    "in"
    "out"
    "not"
    "has"
    "for"
    "if"
    "and"
    "or"
    "never"
    ))


(defvar endless-sky-font-lock-defaults
  `((
     ;; stuff between double quotes and backticks
     ;; ("\"\\.\\*\\?" . font-lock-string-face)
     ("\`\\.\\*\\?\`" . font-lock-string-face)
     ;; ; : , ; { } =>  @ $ = are all special elements
     (":\\|,\\|;\\|{\\|}\\|=>\\|@\\|$\\|=" . font-lock-keyword-face)
     ( ,(regexp-opt endless-sky-keywords 'words) . font-lock-keyword-face)
     ( ,(regexp-opt endless-sky-builtins 'words) . font-lock-builtin-face)
     ( ,(regexp-opt endless-sky-constants 'words) . font-lock-constant-face)
     )))
  
(define-derived-mode endless-sky-mode fundamental-mode "Endless Sky data"
  "A major mode for editing Endless Sky data files"

  (setq font-lock-defaults endless-sky-font-lock-defaults)

  (setq comment-start "#")
  (setq comment-end "")

  (modify-syntax-entry ?# "< b" endless-sky-mode-syntax-table)
  (modify-syntax-entry ?\n "> b" endless-sky-mode-syntax-table)

  (define-key endless-sky-mode-map (kbd "TAB") 'self-insert-command))

(provide 'endless-sky-mode)