(defun make-doctor-variables ()
(setq-local doctor--typos
- (mapcar (lambda (x)
- (put (car x) 'doctor-correction (cadr x))
- (put (cadr x) 'doctor-expansion (car (cddr x)))
- (car x))
- '((theyll they\'ll (they will))
- (theyre they\'re (they are))
- (hes he\'s (he is))
- (he7s he\'s (he is))
- (im i\'m (you are))
- (i7m i\'m (you are))
- (isa is\ a (is a))
- (thier their (their))
- (dont don\'t (do not))
- (don7t don\'t (do not))
- (you7re you\'re (i am))
- (you7ve you\'ve (i have))
- (you7ll you\'ll (i will)))))
+ (mapcar (lambda (x)
+ (put (car x) 'doctor-correction (cadr x))
+ (put (cadr x) 'doctor-expansion (car (cddr x)))
+ (car x))
+ '((theyll they\'ll (they will))
+ (theyre they\'re (they are))
+ (hes he\'s (he is))
+ (he7s he\'s (he is))
+ (im i\'m (you are))
+ (i7m i\'m (you are))
+ (isa is\ a (is a))
+ (thier their (their))
+ (dont don\'t (do not))
+ (don7t don\'t (do not))
+ (you7re you\'re (i am))
+ (you7ve you\'ve (i have))
+ (you7ll you\'ll (i will)))))
(setq-local doctor-sent nil)
(setq-local doctor-found nil)
(setq-local doctor-owner nil)
(setq-local doctor--history nil)
(setq-local doctor--inter '((well\,)
- (hmmm \.\.\.\ so\,)
- (so)
- (\.\.\.and)
- (then)))
+ (hmmm \.\.\.\ so\,)
+ (so)
+ (\.\.\.and)
+ (then)))
(setq-local doctor--continue '((continue)
- (proceed)
- (go on)
- (keep going)))
+ (proceed)
+ (go on)
+ (keep going)))
(setq-local doctor--relation
- '((your relationship with)
- (something you remember about)
- (your feelings toward)
- (some experiences you have had with)
- (how you feel about)))
+ '((your relationship with)
+ (something you remember about)
+ (your feelings toward)
+ (some experiences you have had with)
+ (how you feel about)))
(setq-local doctor--fears
- '(((doc$ doctor--whysay) you are (doc$ doctor--afraidof) (doc// doctor--feared) \?)
- (you seem terrified by (doc// doctor--feared) \.)
- (when did you first feel (doc$ doctor--afraidof) (doc// doctor--feared) \?)))
+ '(((doc$ doctor--whysay) you are (doc$ doctor--afraidof) (doc// doctor--feared) \?)
+ (you seem terrified by (doc// doctor--feared) \.)
+ (when did you first feel (doc$ doctor--afraidof) (doc// doctor--feared) \?)))
(setq-local doctor--sure '((sure)
- (positive)
- (certain)
- (absolutely sure)))
+ (positive)
+ (certain)
+ (absolutely sure)))
(setq-local doctor--afraidof '((afraid of)
- (frightened by)
- (scared of)))
+ (frightened by)
+ (scared of)))
(setq-local doctor--areyou '((are you)
- (have you been)
- (have you been)))
+ (have you been)
+ (have you been)))
(setq-local doctor--isrelated
- '((has something to do with)
- (is related to)
- (could be the reason for)
- (is caused by)
- (is because of)))
+ '((has something to do with)
+ (is related to)
+ (could be the reason for)
+ (is caused by)
+ (is because of)))
(setq-local doctor--arerelated '((have something to do with)
- (are related to)
- (could have caused)
- (could be the reason for)
- (are caused by)
- (are because of)))
+ (are related to)
+ (could have caused)
+ (could be the reason for)
+ (are caused by)
+ (are because of)))
(setq-local doctor--moods
- '(((doc$ doctor--areyou) (doc// doctor-found) often \?)
- (what causes you to be (doc// doctor-found) \?)
- ((doc$ doctor--whysay) you are (doc// doctor-found) \?)))
+ '(((doc$ doctor--areyou) (doc// doctor-found) often \?)
+ (what causes you to be (doc// doctor-found) \?)
+ ((doc$ doctor--whysay) you are (doc// doctor-found) \?)))
(setq-local doctor--maybe '((maybe)
- (perhaps)
- (possibly)))
+ (perhaps)
+ (possibly)))
(setq-local doctor--whatwhen '((what happened when)
- (what would happen if)))
+ (what would happen if)))
(setq-local doctor--hello '((how do you do \?)
- (hello \.)
- (howdy!)
- (hello \.)
- (hi \.)
- (hi there \.)))
+ (hello \.)
+ (howdy!)
+ (hello \.)
+ (hi \.)
+ (hi there \.)))
(setq-local doctor--drnk
- '((do you drink a lot of (doc// doctor-found) \?)
- (do you get drunk often \?)
- ((doc$ doctor--describe) your drinking habits \.)))
+ '((do you drink a lot of (doc// doctor-found) \?)
+ (do you get drunk often \?)
+ ((doc$ doctor--describe) your drinking habits \.)))
(setq-local doctor--drugs
- '((do you use (doc// doctor-found) often \?)
- ((doc$ doctor--areyou) addicted to (doc// doctor-found) \?)
- (do you realize that drugs can be very harmful \?)
- ((doc$ doctor--maybe) you should try to quit using (doc// doctor-found) \.)))
+ '((do you use (doc// doctor-found) often \?)
+ ((doc$ doctor--areyou) addicted to (doc// doctor-found) \?)
+ (do you realize that drugs can be very harmful \?)
+ ((doc$ doctor--maybe) you should try to quit using (doc// doctor-found) \.)))
(setq-local doctor--whywant
- '(((doc$ doctor--whysay) (doc// doctor-subj) might (doc$ doctor--want) (doc// doctor-obj) \?)
- (how does it feel to want \?)
- (why should (doc// doctor-subj) get (doc// doctor-obj) \?)
- (when did (doc// doctor-subj) first (doc$ doctor--want) (doc// doctor-obj) \?)
- ((doc$ doctor--areyou) obsessed with (doc// doctor-obj) \?)
- (why should i give (doc// doctor-obj) to (doc// doctor-subj) \?)
- (have you ever gotten (doc// doctor-obj) \?)))
+ '(((doc$ doctor--whysay) (doc// doctor-subj) might (doc$ doctor--want) (doc// doctor-obj) \?)
+ (how does it feel to want \?)
+ (why should (doc// doctor-subj) get (doc// doctor-obj) \?)
+ (when did (doc// doctor-subj) first (doc$ doctor--want) (doc// doctor-obj) \?)
+ ((doc$ doctor--areyou) obsessed with (doc// doctor-obj) \?)
+ (why should i give (doc// doctor-obj) to (doc// doctor-subj) \?)
+ (have you ever gotten (doc// doctor-obj) \?)))
(setq-local doctor--canyou
- '((of course i can \.)
- (why should i \?)
- (what makes you think i would even want to \?)
- (i am the doctor\, i can do anything i damn please \.)
- (not really\, it\'s not up to me \.)
- (depends\, how important is it \?)
- (i could\, but i don\'t think it would be a wise thing to do \.)
- (can you \?)
- (maybe i can\, maybe i can\'t \.\.\.)
- (i don\'t think i should do that \.)))
+ '((of course i can \.)
+ (why should i \?)
+ (what makes you think i would even want to \?)
+ (i am the doctor\, i can do anything i damn please \.)
+ (not really\, it\'s not up to me \.)
+ (depends\, how important is it \?)
+ (i could\, but i don\'t think it would be a wise thing to do \.)
+ (can you \?)
+ (maybe i can\, maybe i can\'t \.\.\.)
+ (i don\'t think i should do that \.)))
(setq-local doctor--want '((want) (desire) (wish) (want) (hope)))
(setq-local doctor--shortlst
- '((can you elaborate on that \?)
- ((doc$ doctor--please) continue \.)
- (go on\, don\'t be afraid \.)
- (i need a little more detail please \.)
- (you\'re being a bit brief\, (doc$ doctor--please) go into detail \.)
- (can you be more explicit \?)
- (and \?)
- ((doc$ doctor--please) go into more detail \?)
- (you aren\'t being very talkative today\!)
- (is that all there is to it \?)
- (why must you respond so briefly \?)))
+ '((can you elaborate on that \?)
+ ((doc$ doctor--please) continue \.)
+ (go on\, don\'t be afraid \.)
+ (i need a little more detail please \.)
+ (you\'re being a bit brief\, (doc$ doctor--please) go into detail \.)
+ (can you be more explicit \?)
+ (and \?)
+ ((doc$ doctor--please) go into more detail \?)
+ (you aren\'t being very talkative today\!)
+ (is that all there is to it \?)
+ (why must you respond so briefly \?)))
(setq-local doctor--famlst
- '((tell me (doc$ doctor--something) about (doc// doctor-owner) family \.)
- (you seem to dwell on (doc// doctor-owner) family \.)
- ((doc$ doctor--areyou) hung up on (doc// doctor-owner) family \?)))
+ '((tell me (doc$ doctor--something) about (doc// doctor-owner) family \.)
+ (you seem to dwell on (doc// doctor-owner) family \.)
+ ((doc$ doctor--areyou) hung up on (doc// doctor-owner) family \?)))
(setq-local doctor--huhlst
- '(((doc$ doctor--whysay) (doc// doctor-sent) \?)
- (is it because of (doc$ doctor--things) that you say (doc// doctor-sent) \?)))
+ '(((doc$ doctor--whysay) (doc// doctor-sent) \?)
+ (is it because of (doc$ doctor--things) that you say (doc// doctor-sent) \?)))
(setq-local doctor--longhuhlst
- '(((doc$ doctor--whysay) that \?)
- (i don\'t understand \.)
- ((doc$ doctor--thlst))
- ((doc$ doctor--areyou) (doc$ doctor--afraidof) that \?)))
+ '(((doc$ doctor--whysay) that \?)
+ (i don\'t understand \.)
+ ((doc$ doctor--thlst))
+ ((doc$ doctor--areyou) (doc$ doctor--afraidof) that \?)))
(setq-local doctor--feelings-about '((feelings about)
- (apprehensions toward)
- (thoughts on)
- (emotions toward)))
+ (apprehensions toward)
+ (thoughts on)
+ (emotions toward)))
(setq-local doctor--random-adjective
- '((vivid)
- (emotionally stimulating)
- (exciting)
- (boring)
- (interesting)
- (recent)
- (random) ; how can we omit this?
- (unusual)
- (shocking)
- (embarrassing)))
+ '((vivid)
+ (emotionally stimulating)
+ (exciting)
+ (boring)
+ (interesting)
+ (recent)
+ (random) ; how can we omit this?
+ (unusual)
+ (shocking)
+ (embarrassing)))
(setq-local doctor--whysay '((why do you say)
- (what makes you believe)
- (are you sure that)
- (do you really think)
- (what makes you think)))
+ (what makes you believe)
+ (are you sure that)
+ (do you really think)
+ (what makes you think)))
(setq-local doctor--isee '((i see \.\.\.)
- (yes\,)
- (i understand \.)
- (oh \.) ))
+ (yes\,)
+ (i understand \.)
+ (oh \.) ))
(setq-local doctor--please '((please\,)
- (i would appreciate it if you would)
- (perhaps you could)
- (please\,)
- (would you please)
- (why don\'t you)
- (could you)))
+ (i would appreciate it if you would)
+ (perhaps you could)
+ (please\,)
+ (would you please)
+ (why don\'t you)
+ (could you)))
(setq-local doctor--bye
- '((my secretary will send you a bill \.)
- (bye bye \.)
- (see ya \.)
- (ok\, talk to you some other time \.)
- (talk to you later \.)
- (ok\, have fun \.)
- (ciao \.)))
+ '((my secretary will send you a bill \.)
+ (bye bye \.)
+ (see ya \.)
+ (ok\, talk to you some other time \.)
+ (talk to you later \.)
+ (ok\, have fun \.)
+ (ciao \.)))
(setq-local doctor--something '((something)
- (more)
- (how you feel)))
+ (more)
+ (how you feel)))
(setq-local doctor--thing '((your life)
- (your sex life)))
+ (your sex life)))
(setq-local doctor--things '((your plans)
- (the people you hang around with)
- (problems at school)
- (any hobbies you have)
- (hangups you have)
- (your inhibitions)
- (some problems in your childhood)
- (some problems at home)))
+ (the people you hang around with)
+ (problems at school)
+ (any hobbies you have)
+ (hangups you have)
+ (your inhibitions)
+ (some problems in your childhood)
+ (some problems at home)))
(setq-local doctor--describe '((describe)
- (tell me about)
- (talk about)
- (discuss)
- (tell me more about)
- (elaborate on)))
+ (tell me about)
+ (talk about)
+ (discuss)
+ (tell me more about)
+ (elaborate on)))
(setq-local doctor--ibelieve
- '((i believe) (i think) (i have a feeling) (it seems to me that)
- (it looks like)))
+ '((i believe) (i think) (i have a feeling) (it seems to me that)
+ (it looks like)))
(setq-local doctor--problems '((problems)
- (inhibitions)
- (hangups)
- (difficulties)
- (anxieties)
- (frustrations)))
+ (inhibitions)
+ (hangups)
+ (difficulties)
+ (anxieties)
+ (frustrations)))
(setq-local doctor--bother '((does it bother you that)
- (are you annoyed that)
- (did you ever regret)
- (are you sorry)
- (are you satisfied with the fact that)))
+ (are you annoyed that)
+ (did you ever regret)
+ (are you sorry)
+ (are you satisfied with the fact that)))
(setq-local doctor--machlst
- '((you have your mind on (doc// doctor-found) \, it seems \.)
- (you think too much about (doc// doctor-found) \.)
- (you should try taking your mind off of (doc// doctor-found)\.)
- (are you a computer hacker \?)))
+ '((you have your mind on (doc// doctor-found) \, it seems \.)
+ (you think too much about (doc// doctor-found) \.)
+ (you should try taking your mind off of (doc// doctor-found)\.)
+ (are you a computer hacker \?)))
(setq-local doctor--qlist
- '((what do you think \?)
- (i\'ll ask the questions\, if you don\'t mind!)
- (i could ask the same thing myself \.)
- ((doc$ doctor--please) allow me to do the questioning \.)
- (i have asked myself that question many times \.)
- ((doc$ doctor--please) try to answer that question yourself \.)))
+ '((what do you think \?)
+ (i\'ll ask the questions\, if you don\'t mind!)
+ (i could ask the same thing myself \.)
+ ((doc$ doctor--please) allow me to do the questioning \.)
+ (i have asked myself that question many times \.)
+ ((doc$ doctor--please) try to answer that question yourself \.)))
(setq-local doctor--foullst
- '(((doc$ doctor--please) watch your tongue!)
- ((doc$ doctor--please) avoid such unwholesome thoughts \.)
- ((doc$ doctor--please) get your mind out of the gutter \.)
- (such lewdness is not appreciated \.)))
+ '(((doc$ doctor--please) watch your tongue!)
+ ((doc$ doctor--please) avoid such unwholesome thoughts \.)
+ ((doc$ doctor--please) get your mind out of the gutter \.)
+ (such lewdness is not appreciated \.)))
(setq-local doctor--deathlst
- '((this is not a healthy way of thinking \.)
- ((doc$ doctor--bother) you\, too\, may die someday \?)
- (i am worried by your obsession with this topic!)
- (did you watch a lot of crime and violence on television as a child \?)))
+ '((this is not a healthy way of thinking \.)
+ ((doc$ doctor--bother) you\, too\, may die someday \?)
+ (i am worried by your obsession with this topic!)
+ (did you watch a lot of crime and violence on television as a child \?)))
(setq-local doctor--sexlst
- '(((doc$ doctor--areyou) (doc$ doctor--afraidof) sex \?)
- ((doc$ doctor--describe) (doc$ doctor--something) about your sexual history \.)
- ((doc$ doctor--please) (doc$ doctor--describe) your sex life \.\.\.)
- ((doc$ doctor--describe) your (doc$ doctor--feelings-about) your sexual partner \.)
- ((doc$ doctor--describe) your most (doc$ doctor--random-adjective) sexual experience \.)
- ((doc$ doctor--areyou) satisfied with (doc// doctor--lover) \.\.\. \?)))
+ '(((doc$ doctor--areyou) (doc$ doctor--afraidof) sex \?)
+ ((doc$ doctor--describe) (doc$ doctor--something) about your sexual history \.)
+ ((doc$ doctor--please) (doc$ doctor--describe) your sex life \.\.\.)
+ ((doc$ doctor--describe) your (doc$ doctor--feelings-about) your sexual partner \.)
+ ((doc$ doctor--describe) your most (doc$ doctor--random-adjective) sexual experience \.)
+ ((doc$ doctor--areyou) satisfied with (doc// doctor--lover) \.\.\. \?)))
(setq-local doctor--neglst '((why not \?)
- ((doc$ doctor--bother) i ask that \?)
- (why not \?)
- (why not \?)
- (how come \?)
- ((doc$ doctor--bother) i ask that \?)))
+ ((doc$ doctor--bother) i ask that \?)
+ (why not \?)
+ (why not \?)
+ (how come \?)
+ ((doc$ doctor--bother) i ask that \?)))
(setq-local doctor--beclst
- '((is it because (doc// doctor-sent) that you came to me \?)
- ((doc$ doctor--bother) (doc// doctor-sent) \?)
- (when did you first know that (doc// doctor-sent) \?)
- (is the fact that (doc// doctor-sent) the real reason \?)
- (does the fact that (doc// doctor-sent) explain anything else \?)
- ((doc$ doctor--areyou) (doc$ doctor--sure) (doc// doctor-sent) \? )))
+ '((is it because (doc// doctor-sent) that you came to me \?)
+ ((doc$ doctor--bother) (doc// doctor-sent) \?)
+ (when did you first know that (doc// doctor-sent) \?)
+ (is the fact that (doc// doctor-sent) the real reason \?)
+ (does the fact that (doc// doctor-sent) explain anything else \?)
+ ((doc$ doctor--areyou) (doc$ doctor--sure) (doc// doctor-sent) \? )))
(setq-local doctor--shortbeclst
- '(((doc$ doctor--bother) i ask you that \?)
- (that\'s not much of an answer!)
- ((doc$ doctor--inter) why won\'t you talk about it \?)
- (speak up!)
- ((doc$ doctor--areyou) (doc$ doctor--afraidof) talking about it \?)
- (don\'t be (doc$ doctor--afraidof) elaborating \.)
- ((doc$ doctor--please) go into more detail \.)))
+ '(((doc$ doctor--bother) i ask you that \?)
+ (that\'s not much of an answer!)
+ ((doc$ doctor--inter) why won\'t you talk about it \?)
+ (speak up!)
+ ((doc$ doctor--areyou) (doc$ doctor--afraidof) talking about it \?)
+ (don\'t be (doc$ doctor--afraidof) elaborating \.)
+ ((doc$ doctor--please) go into more detail \.)))
(setq-local doctor--thlst
- '(((doc$ doctor--maybe) (doc$ doctor--thing) (doc$ doctor--isrelated) this \.)
- ((doc$ doctor--maybe) (doc$ doctor--things) (doc$ doctor--arerelated) this \.)
- (is it because of (doc$ doctor--things) that you are going through all this \?)
- (how do you reconcile (doc$ doctor--things) \? )
- ((doc$ doctor--maybe) this (doc$ doctor--isrelated) (doc$ doctor--things) \?)))
+ '(((doc$ doctor--maybe) (doc$ doctor--thing) (doc$ doctor--isrelated) this \.)
+ ((doc$ doctor--maybe) (doc$ doctor--things) (doc$ doctor--arerelated) this \.)
+ (is it because of (doc$ doctor--things) that you are going through all this \?)
+ (how do you reconcile (doc$ doctor--things) \? )
+ ((doc$ doctor--maybe) this (doc$ doctor--isrelated) (doc$ doctor--things) \?)))
(setq-local doctor--remlst
- '((earlier you said (doc$ doctor--history) \?)
- (you mentioned that (doc$ doctor--history) \?)
- ((doc$ doctor--whysay) (doc$ doctor--history) \? )))
+ '((earlier you said (doc$ doctor--history) \?)
+ (you mentioned that (doc$ doctor--history) \?)
+ ((doc$ doctor--whysay) (doc$ doctor--history) \? )))
(setq-local doctor--toklst
- '((is this how you relax \?)
- (how long have you been smoking grass \?)
- ((doc$ doctor--areyou) (doc$ doctor--afraidof) of being drawn to using harder stuff \?)))
+ '((is this how you relax \?)
+ (how long have you been smoking grass \?)
+ ((doc$ doctor--areyou) (doc$ doctor--afraidof) of being drawn to using harder stuff \?)))
(setq-local doctor--states
- '((do you get (doc// doctor-found) often \?)
- (do you enjoy being (doc// doctor-found) \?)
- (what makes you (doc// doctor-found) \?)
- (how often (doc$ doctor--areyou) (doc// doctor-found) \?)
- (when were you last (doc// doctor-found) \?)))
+ '((do you get (doc// doctor-found) often \?)
+ (do you enjoy being (doc// doctor-found) \?)
+ (what makes you (doc// doctor-found) \?)
+ (how often (doc$ doctor--areyou) (doc// doctor-found) \?)
+ (when were you last (doc// doctor-found) \?)))
(setq-local doctor--replist '((i . (you))
- (my . (your))
- (me . (you))
- (you . (me))
- (your . (my))
- (mine . (yours))
- (yours . (mine))
- (our . (your))
- (ours . (yours))
- (we . (you))
- (dunno . (do not know))
- ;; (yes . ())
- (no\, . ())
- (yes\, . ())
- (ya . (i))
- (aint . (am not))
- (wanna . (want to))
- (gimme . (give me))
- (gotta . (have to))
- (gonna . (going to))
- (never . (not ever))
- (doesn\'t . (does not))
- (don\'t . (do not))
- (aren\'t . (are not))
- (isn\'t . (is not))
- (won\'t . (will not))
- (can\'t . (cannot))
- (haven\'t . (have not))
- (i\'m . (you are))
- (ourselves . (yourselves))
- (myself . (yourself))
- (yourself . (myself))
- (you\'re . (i am))
- (you\'ve . (i have))
- (i\'ve . (you have))
- (i\'ll . (you will))
- (you\'ll . (i shall))
- (i\'d . (you would))
- (you\'d . (i would))
- (here . (there))
- (please . ())
- (eh\, . ())
- (eh . ())
- (oh\, . ())
- (oh . ())
- (shouldn\'t . (should not))
- (wouldn\'t . (would not))
- (won\'t . (will not))
- (hasn\'t . (has not))))
+ (my . (your))
+ (me . (you))
+ (you . (me))
+ (your . (my))
+ (mine . (yours))
+ (yours . (mine))
+ (our . (your))
+ (ours . (yours))
+ (we . (you))
+ (dunno . (do not know))
+ ;; (yes . ())
+ (no\, . ())
+ (yes\, . ())
+ (ya . (i))
+ (aint . (am not))
+ (wanna . (want to))
+ (gimme . (give me))
+ (gotta . (have to))
+ (gonna . (going to))
+ (never . (not ever))
+ (doesn\'t . (does not))
+ (don\'t . (do not))
+ (aren\'t . (are not))
+ (isn\'t . (is not))
+ (won\'t . (will not))
+ (can\'t . (cannot))
+ (haven\'t . (have not))
+ (i\'m . (you are))
+ (ourselves . (yourselves))
+ (myself . (yourself))
+ (yourself . (myself))
+ (you\'re . (i am))
+ (you\'ve . (i have))
+ (i\'ve . (you have))
+ (i\'ll . (you will))
+ (you\'ll . (i shall))
+ (i\'d . (you would))
+ (you\'d . (i would))
+ (here . (there))
+ (please . ())
+ (eh\, . ())
+ (eh . ())
+ (oh\, . ())
+ (oh . ())
+ (shouldn\'t . (should not))
+ (wouldn\'t . (would not))
+ (won\'t . (will not))
+ (hasn\'t . (has not))))
(setq-local doctor--stallmanlst
- '(((doc$ doctor--describe) your (doc$ doctor--feelings-about) him \.)
- ((doc$ doctor--areyou) a friend of Stallman \?)
- ((doc$ doctor--bother) Stallman is (doc$ doctor--random-adjective) \?)
- ((doc$ doctor--ibelieve) you are (doc$ doctor--afraidof) him \.)))
+ '(((doc$ doctor--describe) your (doc$ doctor--feelings-about) him \.)
+ ((doc$ doctor--areyou) a friend of Stallman \?)
+ ((doc$ doctor--bother) Stallman is (doc$ doctor--random-adjective) \?)
+ ((doc$ doctor--ibelieve) you are (doc$ doctor--afraidof) him \.)))
(setq-local doctor--schoollst
- '(((doc$ doctor--describe) your (doc// doctor-found) \.)
- ((doc$ doctor--bother) your grades could (doc$ doctor--improve) \?)
- ((doc$ doctor--areyou) (doc$ doctor--afraidof) (doc// doctor-found) \?)
- ((doc$ doctor--maybe) this (doc$ doctor--isrelated) to your attitude \.)
- ((doc$ doctor--areyou) absent often \?)
- ((doc$ doctor--maybe) you should study (doc$ doctor--something) \.)))
+ '(((doc$ doctor--describe) your (doc// doctor-found) \.)
+ ((doc$ doctor--bother) your grades could (doc$ doctor--improve) \?)
+ ((doc$ doctor--areyou) (doc$ doctor--afraidof) (doc// doctor-found) \?)
+ ((doc$ doctor--maybe) this (doc$ doctor--isrelated) to your attitude \.)
+ ((doc$ doctor--areyou) absent often \?)
+ ((doc$ doctor--maybe) you should study (doc$ doctor--something) \.)))
(setq-local doctor--improve
- '((improve) (be better) (be improved) (be higher)))
+ '((improve) (be better) (be improved) (be higher)))
(setq-local doctor--elizalst
- '(((doc$ doctor--areyou) (doc$ doctor--sure) \?)
- ((doc$ doctor--ibelieve) you have (doc$ doctor--problems) with (doc// doctor-found) \.)
- ((doc$ doctor--whysay) (doc// doctor-sent) \?)))
+ '(((doc$ doctor--areyou) (doc$ doctor--sure) \?)
+ ((doc$ doctor--ibelieve) you have (doc$ doctor--problems) with (doc// doctor-found) \.)
+ ((doc$ doctor--whysay) (doc// doctor-sent) \?)))
(setq-local doctor--sportslst
- '((tell me (doc$ doctor--something) about (doc// doctor-found) \.)
- ((doc$ doctor--describe) (doc$ doctor--relation) (doc// doctor-found) \.)
- (do you find (doc// doctor-found) (doc$ doctor--random-adjective) \?)))
+ '((tell me (doc$ doctor--something) about (doc// doctor-found) \.)
+ ((doc$ doctor--describe) (doc$ doctor--relation) (doc// doctor-found) \.)
+ (do you find (doc// doctor-found) (doc$ doctor--random-adjective) \?)))
(setq-local doctor--mathlst
- '(((doc$ doctor--describe) (doc$ doctor--something) about math \.)
- ((doc$ doctor--maybe) your (doc$ doctor--problems) (doc$ doctor--arerelated) (doc// doctor-found) \.)
- (i don\'t know much (doc// doctor-found) \, but (doc$ doctor--continue)
- anyway \.)))
+ '(((doc$ doctor--describe) (doc$ doctor--something) about math \.)
+ ((doc$ doctor--maybe) your (doc$ doctor--problems) (doc$ doctor--arerelated) (doc// doctor-found) \.)
+ (i don\'t know much (doc// doctor-found) \, but (doc$ doctor--continue)
+ anyway \.)))
(setq-local doctor--zippylst
- '(((doc$ doctor--areyou) Zippy \?)
- ((doc$ doctor--ibelieve) you have some serious (doc$ doctor--problems) \.)
- ((doc$ doctor--bother) you are a pinhead \?)))
+ '(((doc$ doctor--areyou) Zippy \?)
+ ((doc$ doctor--ibelieve) you have some serious (doc$ doctor--problems) \.)
+ ((doc$ doctor--bother) you are a pinhead \?)))
(setq-local doctor--chatlst
- '(((doc$ doctor--maybe) we could chat \.)
- ((doc$ doctor--please) (doc$ doctor--describe) (doc$ doctor--something) about chat mode \.)
- ((doc$ doctor--bother) our discussion is so (doc$ doctor--random-adjective) \?)))
+ '(((doc$ doctor--maybe) we could chat \.)
+ ((doc$ doctor--please) (doc$ doctor--describe) (doc$ doctor--something) about chat mode \.)
+ ((doc$ doctor--bother) our discussion is so (doc$ doctor--random-adjective) \?)))
(setq-local doctor--abuselst
- '(((doc$ doctor--please) try to be less abusive \.)
- ((doc$ doctor--describe) why you call me (doc// doctor-found) \.)
- (i\'ve had enough of you!)))
+ '(((doc$ doctor--please) try to be less abusive \.)
+ ((doc$ doctor--describe) why you call me (doc// doctor-found) \.)
+ (i\'ve had enough of you!)))
(setq-local doctor--abusewords
- '(boring bozo clown clumsy cretin dumb dummy
- fool foolish gnerd gnurd idiot jerk
- lose loser louse lousy luse luser
- moron nerd nurd oaf oafish reek
- stink stupid tool toolish twit))
+ '(boring bozo clown clumsy cretin dumb dummy
+ fool foolish gnerd gnurd idiot jerk
+ lose loser louse lousy luse luser
+ moron nerd nurd oaf oafish reek
+ stink stupid tool toolish twit))
(setq-local doctor--howareyoulst
- '((how are you) (hows it going) (hows it going eh)
- (how\'s it going) (how\'s it going eh) (how goes it)
- (whats up) (whats new) (what\'s up) (what\'s new)
- (howre you) (how\'re you) (how\'s everything)
- (how is everything) (how do you do)
- (how\'s it hanging) (que pasa)
- (how are you doing) (what do you say)))
+ '((how are you) (hows it going) (hows it going eh)
+ (how\'s it going) (how\'s it going eh) (how goes it)
+ (whats up) (whats new) (what\'s up) (what\'s new)
+ (howre you) (how\'re you) (how\'s everything)
+ (how is everything) (how do you do)
+ (how\'s it hanging) (que pasa)
+ (how are you doing) (what do you say)))
(setq-local doctor--whereoutp '(huh remem rthing))
(setq-local doctor-subj nil)
(setq-local doctor-verb nil)
projects / emacs.git / commitdiff