pepsi-code.el (v1.3)

[harley]

;;
;; ~/share/emacs/jhg/pepsi-code.el ---
;;
;; $Id: pepsi-code.el,v 1.3 2005/03/01 05:05:29 harley Exp $
;;

(defun pepsi-code-enter ()
  "Ease the process of entering pepsi codes for itunes.
I dont want to keep buckets of smelly caps around, so I keep
the codes in a file."
  (interactive)
  (while t
    (let ((c (upcase (read-char (format "pepsi-code:")))))
      (cond
       ((or (char-equal c 8) (char-equal c 127))
        (delete-backward-char 1))
       ((string-match "[2-9A-Z]" (char-to-string c))
        (insert c)
        (let ((cc (current-column)))
          (if (= cc 5) 
            (insert " ")
            (when (= cc 11)
              (insert "\n") 
              (beep)))))
       (t ;; opps!
        (beep)
        (beep))))))