#! /bin/zsh
#
# this file:
#   https://dataswamp.org/~incal/conf/.zsh/grep

grep_options='--color=always'

alias grep="grep $grep_options"
alias egrep="egrep $grep_options"


seda () {
    local all=(
 "about"
 "add"
 "add-box"
 "add-col"
 "add-row"
 "add-triangle"
 "align-c-sub"
 "align-rel-xy-sub"
 "align-sub"
 "animate"
 "bite"
 "border"
 "center"
 "clear"
 "collide"
 "color-next"
 "color-pen"
 "corner"
 "cycle-pos"
 "cycle-size"
 "delem"
 "do-cmd"
 "down"
 "draw-draw"
 "draw-endpoint-line"
 "draw-fold"
 "draw-open"
 "draw-score"
 "draw-to-buf"
 "eat"
 "egypt-box-tick"
 "find"
 "find-reset"
 "flip-x"
 "flip-x-pos"
 "flip-y"
 "flip-y-pos"
 "help-toggle"
 "init"
 "init-help"
 "init-keys"
 "is-movable"
 "lake"
 "left"
 "level-2"
 "level-3"
 "level-4"
 "level-up"
 "make-movable"
 "make-transparent"
 "mov"
 "mov-x"
 "mov-y"
 "move"
 "moving-p"
 "new-food-pos"
 "next"
 "operate"
 "origo"
 "pause"
 "pos"
 "pos-inside"
 "pos-x"
 "pos-y"
 "prev"
 "read-data"
 "read-file"
 "resize-sub"
 "right"
 "rotate"
 "rotate-back"
 "rotate-border"
 "rotate-corners"
 "rotate-sides"
 "run"
 "run-timer"
 "score-toggle"
 "set-area"
 "set-border"
 "set-corner"
 "set-ground"
 "set-side"
 "setup"
 "side"
 "size"
 "size-add"
 "size-half"
 "size-max"
 "size-min"
 "size-square"
 "status-draw"
 "string-is-data"
 "switch"
 "tick"
 "toggle"
 "transpose"
 "transpose-pos"
 "up"
 "update"
 "uptick"
 "visible"
 "water"
 "write-index"
 "write-replace"
 "write-subs"
)
    for a in $all; do
        sed -i "s/cl-defmethod $a/cl-defmethod bad-$a/g" *.el
        sed -i "s/($a /(bad-$a /g" *.el
    done
}