You need to set the variable ivan-bbdb-aspell-dictionary to a list of personal dictionaries. Then run M-x ivan-bbdb-export-aspell.

In the example below inputting google will pick the google SMTP server. Everything else will be sent via kanis.fr.

The last setq removes the "From" header when composing an e-mail. This is required since I query this value just before sending the message. Using the default value would send the wrong header.

(defun private-gnus-prompt-address ()
  "Prompt for sender address before sending e-mail
  Optionally cover address name to avoid spam"
  (interactive)

  ;; never user agent for e-mail
  (setq message-send-mail-real-function nil)

  (setq user-mail-address (read-string "From: " "google")
  (cond
   ((string= user-mail-address "google")
    (setq
     user-mail-address "ivan.kanis@googlemail.com"
     smtpmail-smtp-server "smtp.gmail.com"
     smtpmail-smtp-service 587))
   (t
    (setq
     smtpmail-smtp-server "kanis.fr"
     smtpmail-smtp-service 2525
     mail-host-address "kanis.fr")))
  (if (not (string-match "@" user-mail-address))
      (setq user-mail-address
            (concat user-mail-address "@" mail-host-address))))

(add-hook 'message-send-hook 'private-gnus-prompt-address)

(setq
  ;; Prevent "From" headers when composing
  message-required-mail-headers
  '(Subject Date (optional . In-Reply-To) Message-ID (optional . User-Agent))
  message-required-headers '((optional . References)))

;; POP
(setq
 mail-sources '((pop :server "kanis.fr"
                      :port 995
                      :user "bob"
                      :connection ssl
                      :password "3l33t")
                (pop :server "pop.gmail.com"
                     :port 995
                     :connection ssl
                     :user "foo.bar@googlemail.com"
                     :password "more3l33t")
                (file :path "~/tmp/ivan.mbox")))
(setq
  gnus-select-method '(nntp "news.gmane.org")
  gnus-secondary-select-methods '((nnml ""))
  user-mail-address "foo.bar@googlemail.com"
  smtpmail-smtp-server "smtp.gmail.com"
  smtpmail-smtp-service 587)

Maybe if I had a Kinesis keyboard it would be different but I am not willing to shell out $$$ for work and home. Beside it wouldn't work when I am on a laptop.

I had a heretic idea. Why not map C-h for left a bit like vim? I have done that today for zsh and emacs. I have unmapped the left arrow so I get into the habit of using it. I will see how it goes.

I naturally take breaks such as browsing the web or chatting... The pomodoro mode gives me a precise slice of time for such breaks. I am always surprised how quickly a five minutes break just flies by. The other gain is that I am tracking my time better.

Since I use it so much I decided to write write code to integrate it with emacs.

In the screen shot above the modeline indicates that I am on my second set of work. The number indicates I have 22 minutes left and it decreases each minute. The pomodoro buffer pops up in between break and work. At that time the emacs windows will be raised in front so that I don't miss it when I am working outside emacs.

I gave a short talk in the beginning of the afternoon on how I implement GTD with org. We then split up in small group. Isabelle, Thierry and Vincent-Xavier took care of translating the reference card in french. I heard that Bastien and Julien specified how to implement numbered lists. Kaze, Kinouchou and others were working on usage and workflow. I showed Bernard, Mohamed and Vivien how fun it was to program in elisp.

We then went to a restaurant and had a good time. I think everyone involved felt that their time was put to good use. I hope we will do this again.

%%(diary-block-no-week-end 15 9 2010 30 10 2010) block without week-end

(defun diary-block-no-week-end (m1 d1 y1 m2 d2 y2 &optional mark)
  "Block diary entry.
Entry applies if date is between two dates and not in the
weekend."
  (let ((date1 (calendar-absolute-from-gregorian
                (diary-make-date m1 d1 y1)))
        (date2 (calendar-absolute-from-gregorian
                (diary-make-date m2 d2 y2)))
        (day (calendar-day-of-week date))
        (d (calendar-absolute-from-gregorian date)))
    (and (<= date1 d) (<= d date2) (not (= day 6)) (not (= day 0))
         (cons mark entry))))

;; lisp/emacs.d/ivan-erc.el

(defvar ivan-erc-japanese-channel
  "#japanese\\|#nihongo"
  "Regexp of channels that are in Japanese")

(defun ivan-erc-furigana ()
  "Display furigana when receiving a message in Japanese"
  (let ((string (buffer-substring-no-properties
                 (point-min) (1- (point-max)))))
    (when (and (string-match ivan-erc-japanese-channel (buffer-name))
               (memq 'unicode (find-charset-region
                               (point-min) (point-max)))
               (ivan-japanese-kanji string))
      (goto-char (point-max))
      (forward-char -1)
      (insert (concat "\n" (ivan-japanese-kakasi string))))))

(add-hook 'erc-insert-modify-hook 'ivan-erc-furigana)

;; /lisp/emacs.d/ivan-japanese.el

(defvar ivan-japanese-kakasi-buffer "*kakasi*"
  "Define temporary buffer for kakasi conversion")

(defun ivan-japanese-kakasi (input)
  "Take a Japanese string and return INPUT in hiragana"
  (get-buffer-create ivan-japanese-kakasi-buffer)
  (with-temp-buffer
    (insert input)
    (let ((coding-system-for-read 'euc-jp)
          (coding-system-for-write 'euc-jp))
      (call-process-region
       (point-min) (point-max)
       "kakasi" nil ivan-japanese-kakasi-buffer nil "-JH" "-s")))
  (prog1
      (with-current-buffer ivan-japanese-kakasi-buffer
        (buffer-substring-no-properties (point-min) (point-max)))
    (kill-buffer ivan-japanese-kakasi-buffer)))

(defun ivan-japanese-kanji (string)
  "Return t if string contains Japanese kanji"
  (let ((length (length string))
        (count 0)
        (ret nil)
        (char ?a))
    (while (< count length)
      (setq char (aref string count))
      (if (and (< char ?\u9fa5)
               (> char ?\u4e00))
          (setq ret t))
      (setq count (1+ count)))
    ret))

;; put etags information in bookmark
(defun ivan-etags-bookmark ()
  (bookmark-set tagname))

(add-hook 'find-tag-hook 'ivan-etags-bookmark)

Download the new appt, or apply the patch.

All you need is to download the following file bbdb-picture.el.

I have made a Real Player interface. It needs X Windows to run. It interface with emacs-w3m so that you can listen to radio. Users can bind keys to pause, fast forward, rewind stream.

It can even embed the player in a frame if emacs is compiled with GTK, I am not using this functionality. I expect it could play video in a different frame.

I made good progress on a password manager called keyring. It was designed with a modular back-end.

Currently, there are two back-ends pwsafe and palm. Pwsafe uses the program of the same name. Palm is a back-end for the GNU Keyring program for the Palm OS. It uses a Perl script that called keyring.pl.

Support for editing, renaming and deleting entries still needs to be written.

It can also be used to edit XHTML pages. No need to run the document through a validator as the errors will be highlighted on the fly. This software is just too good for words and helps me create valid HTML document quicker.

The screenshot belows show a document with intentional errors. All errors are underlined red. If you move the cursor on the error, it will display more information on the status bar.

There is package ready to install on Debian testing called nxml-mode.

back