Entries this day: Fight countify

Fight

9:14am JST Tuesday 21 September 2004

More fighting last night, but it was shorter. Hitomi was angry that I invited a student to cancel a lesson so I could close it and meet her outside the school. She can save money, and I can get something to eat. Hitomi argued that teaching is my job, so I shouldn't mix a lesson with hanging out. I was like, when we have a lesson, we just talk, not using the books or anything.

Hitomi was like, "fine," and lay down to sleep, and I didn't want to sleep next to her (and I wanted the attention) so I lay down on the floor (which I know is one of her buttons; it's my room; if we're going to sleep separately, I should get the bed). She saw me and reached out to tug my hand come get into bed, but I pulled her fully out of the bed all the way to me and just held her.

I felt really sorry for having pulled her out of the bed, but I'm sure it just surprised her more than hurt her. I held/hugged her and she hugged me back and we were rocking back and forth. She was crying and I said, "I'm sorry." two times.

She was more sorry than me; I'm not sure why, but she apologized profusely and we went back to the bed and slept.

Ultimately, it turns out Hitomi is sad that I enjoy talking in English to other people more than to her. I told her even though that's true, she must not give up trying to learn English.

countify

7:15pm JST Tuesday 21 September 2004

Now I know why the default args didn't work for my lisp countify function. Emacs doesn't support default values.

http://www.delorie.com/gnu/docs/elisp-manual-21/elisp_164.html

So now my code looks like this:

(defun countify (&optional start finish)
  (unless start 
    (setq start 0))
  (unless finish
    (setq finish 100))
  (setq number start)
  (while (<= number finish)
    (princ (number-to-string number))
    (terpri)
    (setq number (+ 1 number))))

(countify -5 5)
(countify 10)
(countify)

Next step is to write the output to the kill ring.