Optimizing my freenode IRC

I wrote this obtuse little function to display six different IRC channels on freenode at once.

(defun irc-java ()
    (interactive)
    (delete-other-windows)
    (switch-to-buffer (get-buffer "#perl"))
    (let* (
              (p      (frame-parameters))
              (width  (cdr (assoc 'width  (frame-parameters))))
              (height (cdr (assoc 'height (frame-parameters))))
          )

        (split-window-horizontally nil)
        (split-window-vertically (/ height 3))
        (other-window 1)
        (switch-to-buffer (get-buffer "#perl6"))
        (split-window-vertically)
        (switch-to-buffer (get-buffer "#squeak"))
        (other-window 2)
        (switch-to-buffer (get-buffer "#glassfish"))
        (split-window-vertically (/ height 3))
        (other-window 1)
        (switch-to-buffer (get-buffer "#spring"))
        (split-window-vertically)
        (other-window 1)
        (switch-to-buffer (get-buffer "#java-talk"))
    )
)

Leave a comment

About Josh ben Jore

user-pic I blog about Perl.