code (mostly emacs lisp and sawfish)

(This page is generated with emacs lisp. Code is available in the ewiki-bits section.)

emacs lisp

I seem to have accumulated a reasonable amount of elisp during my time as an emacs fiend. While this code has been largely cleaned up, there are probably bits of old code still about. Please don't hold them against me.

• arch-htmlify.el - generate browsable HTML pages of an Arch repository
  Size: 15516 bytes
  
  Functions: arch-htmlify-set=, test, tla-command, archive-categories, category-branches, branch-versions, version-revisions, category-tree, revision-creator, revision-summary, revision-data, revision-log, revision-patch-p, get-patch-diff, arch-html-generate, replace-regexps-in-string, html-escape, html-despam-address, arch-htmlify-archive, arch-htmlify-version, arch-htmlify-revision
  Macros: tla, html-tag, arch-html-page, arch-html-link, def-arch-htmlifier, string-to-file
  
  
• buffer-ring.el - allow easy switching between a set of buffers
  Size: 2968 bytes
  
  Functions: add-buffer-to-ring, remove-buffer-from-ring, switch-next-buffer-ring
  
  
• c-braces.el - C-style brace handling
  Size: 4730 bytes
  
  Functions: c-braces-backward-list-maybe, c-braces-insert-indented, region-beginning-no-whitespace, region-end-no-whitespace, ,(intern, ,(intern, ,(intern
  Macros: define-c-braces-mode
  
  
• diary-countdown.el - a variation on standard diary-mode output
  Size: 3600 bytes
  
  Functions: mst-diary-make-buffer, mst-diary-trim-string, mst-diary-display, mst-diary-grok
  
  
• dot.emacs - emacs configuration file
  Size: 74984 bytes
  
  Functions: idledo-add-action, toggle-flyspell, code-todo, run-scratch, cl-scratch, buffer-exists-p, w3m-open-link-in-tab, mst-kill-w3m-buffer, jump-to-w3m, c-reindent-defun, java-top-level-p, java-handle-exceptions, ps-get-page-title, wiki, mst-html-helper-paragraph-or-item, mst-html-environment, insert-heading, mst-html-section, html-helper-indent, lisp-reindent-defun, lisp-comment-dwim, in-comment-p, open-paren, close-paren, configure-parens-for-map, slime-mst-unit-test, slime-mst-eval-and-insert-last-expr, slime-mst-eval, semantic-default-elisp-setup, slime-mst-sync-eval-hack, iswitchb-sort-by-age, mst-next-tag-match, break-symlink-maybe, ada-smart-indent, tla-buffers, locate-update, set-buffer-display, buffer-has-fixmes, warn-before-killing-buffer
  
  
• dot.gnus - gnus configuration file
  Size: 27962 bytes
  
  Functions: select-gnus, gnus-user-format-function-N, gnus-summary-set-saved-mark, gnus-mst-pick-method
  
  
• duckie.el - soooo cuuuuuuute
  Size: 2255 bytes
  
  Functions: make-duckie, duckie-show
  
  
• emacs-cmd.el - Run emacs commands from a FIFO
  Size: 2177 bytes
  
  Functions: emacs-cmd-start, emacs-cmd-stop
  
  
• emacs-homebrew.el - small custom emacs functions.
  Size: 63391 bytes
  
  Functions: mail-use-gnus, fill-this-line, iswitchb-mst-files-to-start, iswitchb-mst-summaries-to-end, weigh-in, erc-mst-get-network, irc, mst-start-gnus, average, mst-wrap-string, mst-add-template, prompt-for, mst-set-buffer-indentation, mst-invent-word, tab-controller, show-code-settings-in-modeline, toggle-flyspell-code, mst-code-settings, Footnote-reset, popup-input-buffer, group-list, mst-make-screen, mst-configure-screen, bind-key, show-morse, visible-buffers, force-switch-buffer, group-by, buffer-mode, buffer-lines, perl-wrap-string, perl-unwrap-string, do-once, noweb-view, java-class-read-index, completing-read-isearch, java-class-lookup, my-string-to-number, lispshell, set-lisp, number-lines-region, reselect-last-region, maybe-with-region, eval-file, eshell-with-command, hugs-run, hugs-load, slime-lisp, remove-properties-from-string, current-function-name, trim-region, diff-buffer-if-modified, dired-cwd-other-window, view-file-other-temp-frame, bison--type-action-block, count-words-region, count-words-document, cycle-zippy, current-line-number, playlist, music, wikipedia, google, google-groups, chmod, reload-library, mst-button, kill-buffer-show-diff, tex-to-text, swap-buffer-names, fix-whitespace, fix-whitespace-buffer, gud-select-source-window, gud-select-current-source, bsh-start, trim-trailing, mst-region-string, bsh-send-command, bsh-send-defun-or-line, python-start, python-send-command, python-send-defun-or-line, view-with-major-mode, mst-shell-command, cperl-reindent-defun, test-with-compile, test-with-make, test-file-prepend, python-wait-for-test-results, run-python-tests, emacs-wiki->moin, stop-break, start-break, cperl-beginning-of-function, cperl-end-of-function, cperl-send-function, cperl-send-region, cperl-send-line, cperl-send-command, cperl-show, cperl-repl, format-for-mode, timeclock-grok-time, timeclock-current-project-line, timeclock-current-project-time, timeclock-total-project-time, timeclock-project-time, scale-image-to-frame, fit-this-image, run-all-java-tests, read-major-mode, get-remote-buffer, remote-shell-do-command, replace-buffer-contents, remote-shell-command, test-with-remote-compile, w3m-with-saved-window-configuration, define-project-tests, tags-create, tags-update, file-document-path, file-document, mst-insert-at, wrap-region-with-chars, sloppy-mode
  Macros: screen-jump, with-working-directory, string-case, keyword-defun, with-frame-display, defvar, with-buffer-preserved
  
  
• emacs-mst-laptop.el - laptop related code
  Size: 3148 bytes
  
  Functions: host-alive-p, mounted-p, mount-home, unmount-home, gnus-start
  
  
• erc-bans.el - Erc ban bits
  Size: 4644 bytes
  
  Functions: erc-cmd-BANLIST, erc-cmd-BAN, erc-cmd-KB, erc-cmd-MUB, erc-fetch-banlist, erc-mst-get-host
  
  
• erc-print-names.el - Pretty-print the users on the current channel.
  Size: 11330 bytes
  
  Functions: erc-p-n-channel-users-to-list, erc-p-n-apply-filters, erc-p-n-group-list, erc-p-n-truncate-string, erc-p-n-format-nicks-as-columns, erc-cmd-SHOWUSERS, erc-p-n-add-test, erc-p-n-run-tests
  Macros: erc-p-n-ignore
  
  
• frenchspacing-mode.el - training myself to use french spacing
  Size: 3646 bytes
  
  Functions: frenchspacing-fontify, frenchspacing-unfontify, frenchspacing-fixup
  
  
• fstree.el - Directory tree views
  Size: 9154 bytes
  
  Functions: fstree-expandable-p, fstree-directory-tree, fstree-build-directory-tree, fstree-insert-directory-tree, fstree-normalise-directory, fstree-build-buffer, fstree-clear-cache, fstree-switch, fstree-find-file-at-point, fstree-quit, fstree-move-up-dir, fstree-new-directory, fstree-refresh, fstree-show-all, fstree-next-file, fstree-prev-file, fstree-move-to-button-start, fstree-expand-this-node, fstree-widget-tag-at-point, fstree-move-to-nearest-button, fstree-find-parent-dir, fstree-open-in-dired, fstree-expand-this-tree
  
  
• ftp-el.el - FTP downloads from within emacs
  Size: 15511 bytes
  
  Functions: eftp-dump-queues, eftp-lftp-download-cmdline, eftp-start-queue, eftp-stop-queue, eftp-add-to-queue, eftp-next-in-queue, eftp-remove-from-queue, eftp-kill-download, eftp-running-downloads-count, eftp-download-next, eftp-dired-to-url, eftp-ftp-queue-current, eftp-display-downloads, eftp-insert-heading, eftp-refresh-downloads, string-pad, reverse-string, eftp-create-button, visible-buffers, eftp-string-trim, eftp-string-trim-left, eftp-string-trim-right
  
  
• gnus-homebrew.el - small customised functions, code snippets etc.
  Size: 21213 bytes
  
  Functions: gnus-mst-summary-aol-cleanup, gnus-mst-demon-stuff, gnus-mst-summary-show-correspondence, gnus-auto-check, message-mst-irritate-non-gnus-users, message-mst-nuke-whitespace, message-mst-toggle-confirm, message-mst-confirm, gnus-mst-summary-nuke-thread, gnus-mst-summary-collapse-low-thread, gnus-mst-summary-collapse-thread, gnus-mst-backup, gnus-mst-close-all-servers, gnus-mst-gpg-recipient, gnus-mst-expunge-lamer, sync-mail, gnus-list-groups, gnus-agent-get-groups, message-has-attachment-p, message-check-for-forgotten-attachments, message-move-parts-to-bottom, save-as-spam, spam, save-as-ham, ham, fix-damo-article, gnus-group-expire-all-mail-groups, google-for-this-message, show-ask-et-article, inline-rss-article, gnus-article-yahoo-junk-start, gnus-article-zap-yahoo-junk, top-posted-p, gnus-user-format-function-g, gnus-mst-summary-scroll-article
  Macros: gnus-summary-save-process-marks
  
  
• gnus-loose-threads-by-date.el - gather loose threads by subject AND date.
  Size: 4382 bytes
  
  Functions: gnus-gather-threads-by-subject-and-date
  
  
• gnus-mst-bbdb-split.el - split groups according to bbdb data
  Size: 1635 bytes
  
  Functions: gnus-mst-bbdb-split
  
  
• gnus-mst-common.el - functions used by a number of files
  Size: 1785 bytes
  
  Functions: gnus-bbdb-get-group
  
  
• gnus-mst-kuro5hin.el - read kuro5hin digests as a group
  Size: 2146 bytes
  
  Functions: nndoc-generate-kuro5hin-head, nndoc-kuro5hin-type-p
  
  
• gnus-mst-manipulate-threads.el - reconstruct broken threads
  Size: 2751 bytes
  
  Functions: gnus-mst-summary-break-thread, gnus-mst-summary-make-child
  
  
• gnus-mst-move-article.el - author based article moving
  Size: 1672 bytes
  
  Functions: gnus-mst-summary-move-article
  
  
• gnus-mst-show-country.el - show the country of the sender
  Size: 1884 bytes
  
  Functions: tld-to-country, gnus-article-mst-show-country
  
  
• gnus-notify.el - use the modeline to indicate groups with new messages
  Size: 5190 bytes
  
  Functions: gnus-mst-notify-modeline-form, gnus-mst-notify-shorten-group-name, gnus-mst-notify-update-modeline, gnus-mst-notify-group, gnus-mst-show-groups-with-new-messages
  
  
• gnus-track-authors.el - record where authors have been seen before
  Size: 2845 bytes
  
  Functions: gnus-summary-grok-group, gnus-where-from, gnus-save-author-db, gnus-load-author-db, dump-hash
  
  
• haskell-ref.el - quick access to the haskell reference
  Size: 23764 bytes
  
  Functions: haskell-reference-lookup
  
  
• highlight-fixmes-mode.el - Highlight FIXME messages
  Size: 2443 bytes
  
  Functions: highlight-fixmes-fontify, highlight-fixmes-unfontify
  
  
• highlight-long-lines-mode.el - Highlight lines over a certain length.
  Size: 3150 bytes
  
  Functions: highlight-long-lines-fontify, highlight-long-lines-unfontify
  
  
• imap-respool.el - Respool IMAP groups using a different backend.
  Size: 4152 bytes
  
  Functions: imap-respool-respool-groups, imap-respool-article-matches, imap-respool-group
  
  
• incr-at-point.el - increment/decrement the integer under the point
  Size: 2847 bytes
  
  Functions: increment-number-at-point, integer-at-point, integer-at-point-bounds
  
  
• iswitchb-narrow.el - narrow the iswitch buffer to subsets
  Size: 3400 bytes
  
  Functions: iswitchb-with-narrowing, iswitchb-narrow-next
  
  
• lambda-mode.el - Pretty-print lambdas
  Size: 2267 bytes
  
  Functions: lambda-fontify, lambda-unfontify
  
  
• mailindex.el -
  Size: 1662 bytes
  
  Functions: nnir-run-mst-search
  
  
• message-identities.el - posting styles for mail messages (rewritten)
  Size: 7940 bytes
  
  Functions: identity-name, identity-regexp, identity-headers, identity-signature, message-has-signature-p, message-identity-add, message-identity-remove, message-identity-get, message-identity-matches, message-identity-apply, message-identity-clear
  Macros: with-narrowed-headers
  
  
• mst-arch.el - functions for managing arch projects
  Size: 5841 bytes
  
  Functions: arch-diff-buffer, arch-update, arch-make-log, arch-commit, arch-import, arch-do-import, arch-add-buffer-file, arch-revdelta
  Macros: with-working-directory
  
  
• mst-blue-colours.el - A blue colour scheme
  Size: 8927 bytes
  
  Functions: set-frame-alist
  Macros: ensure-eval-all
  
  
• mst-colours.el - my colour scheme
  Size: 8536 bytes
  
  Functions: set-frame-alist
  Macros: ensure-eval-all
  
  
• mst-erc.el - emacs IRC Client configuration file
  Size: 20880 bytes
  
  Functions: erc-find-server-network, erc-track-find-face, erc-mst-nuke-server, erc-mst-track-next, erc-mst-get-password, erc-mst-join, erc-mst-log, erc-mst-autojoin, erc-maybe-bol, erc-cmd-CHOPS, erc-cmd-ID, erc-cmd-GHOST, erc-mst-channel-service, erc-mst-nick-service, erc-mst-connect, erc-mst-select, erc-mst-current-network-name, erc-mst-replace-word-in-string, nuke-trailing-whitespace, erc-mst-munge-input, erc-mst-server-004, erc-unfill, erc-cmd-SPOOK, erc-mst-save, erc-dcc-open-network-stream, erc-mst-sort-names, erc-mst-show-nick-modes, erc-cmd-REFRESHUSERS, get-nick-bbdb-record, nick-to-name, pcomplete-erc-nicks
  
  
• mst-guess-indentation.el - guess the indentation of a buffer
  Size: 3252 bytes
  
  Functions: guess-indentation, buffer-has-tabs-p, my-code-p, grok-buffer-settings
  
  
• mst-planner.el - Experimentation with Emacs Planner
  Size: 12813 bytes
  
  Functions: mst-planner-save-windows, mst-planner-create-task, mst-planner-move-to-bottom, mst-planner-task-done, mst-planner-task-cancelled, mst-planner-create-task-from-buffer, mst-planner-xref-as-kill, mst-planner-replace-regexps-in-string, mst-planner-read-priority, mst-planner-create-task-from-message, mst-planner-summary, mst-unplanner, mst-planner-garbage-collect, planner-ewiki-annotation, planner-ewiki-browse-url, planner-irclog-annotation, planner-irclog-browse-url, mst-planner-unhighlight-dates, mst-planner-parse-date, mst-planner-highlight-dates, mst-planner-make-mapper, mst-planner-sort-tasks
  
  
• mst-point.el - bullet points in text mode.
  Size: 5688 bytes
  
  Functions: mst-point-indent-to-level, mst-last-level, mst-point-find-bounds, mst-point, mst-point-spaces-to-level, mst-point-parent-level
  
  
• mst-stamp.el - add a 'stamp' to the buffer.
  Size: 4819 bytes
  
  Functions: stamp-region-active-p, stamp-wrap-string, mst-stamp
  
  
• multi-shell.el - use escreen and term to manage multiple shells
  Size: 6319 bytes
  
  Functions: multi-shell-list, multi-shell-next, multi-shell-prev, multi-shell-switch, multi-shell, multi-shell-new, multi-shell-select-or-create, term-delchar-or-maybe-eof-mst
  
  
• op-friends.el
  Size: 1700 bytes
  
  Functions: user-host, channel-friends, friend-p, op-friends
  
  
• perl-braces.el
  Size: 2784 bytes
  
  Functions: block-symbol-regexp, insert-smart-open-brace, smart-brace-region, insert-smart-close-brace, split-string-at-point
  
  
• project-settings.el - Define settings for project directories
  Size: 3965 bytes
  
  Functions: delete-project, add-new-project, project-normalise-path, find-path-projects, project-matches, apply-project-settings, prefix-file-name, unprefix-file-name
  Macros: define-project, undefine-project
  
  
• ret-while.el - a while loop which returns the value of its last iteration
  Size: 1478 bytes
  
  Macros: ret-while
  
  
• teatime.el - Remind me about my cup of tea
  Size: 3112 bytes
  
  Functions: make-teacup, teacup-show, stop-tea, make-tea, next-teacup
  
  
• temperature.el - Show the current temperature in the modeline
  Size: 3379 bytes
  
  Functions: temperature-shell-command-to-string, temperature-update, weather-dot, temperature-icon, weather-show-on-modeline
  
  
• tiny-xmms.el - Control XMMS from Emacs
  Size: 11034 bytes
  
  Functions: tiny-xmms-overlays, tiny-xmms-generate-playlist, tiny-xmms, tiny-xmms-update-buffer, tiny-xmms-overlays-at, tiny-xmms-remove-track, tiny-xmms-remote, tiny-xmms-play, tiny-xmms-prev, tiny-xmms-buffer-lines, tiny-xmms-jump-to-random, tiny-xmms-next, tiny-xmms-stop, tiny-xmms-pause, tiny-xmms-play/pause, tiny-xmms-skip-to-current, tiny-xmms-sort, tiny-xmms-quit
  
  
• try-require.el - attempt to load a feature/library, failing silently
  Size: 1527 bytes
  
  Functions: try-require
  
  
• turtle-mode.el - major mode for editing turtle files
  Size: 2241 bytes
  
  Functions: turtle-base, turtle-indent, turtle-indent-block
  
  
• typist.el - measure typing speed and accuracy
  Size: 3518 bytes
  
  Functions: tp-file-contents, tp-wrap-string, tp-string-wordcount, play-typist
  
  
• unit-test.el - Run unit tests from Emacs with visual feedback
  Size: 9139 bytes
  
  Functions: unit-test-dot, show-test-status, show-test-none, run-unit-tests, set-unit-test-command, open-unit-test-file
  
  
• workspaces.el - virtual "workspaces" for emacs.
  Size: 10270 bytes
  
  Functions: workspace-visible-buffers, workspace-find, workspace-create, workspace-kill, workspace-select, workspace-contents, workspace-kill-workspace-under-point, workspace-find-next, workspace-find-prev, workspace-next-workspace, workspace-previous-workspace, workspace-select-workspace-under-point, workspace-setup-bindings, workspace-controller-close, workspace-controller, workspace-controller-generate, workspace-goto-current, workspace-goto-last
  Macros: workspace-with-screen
  
  

sawfish

Sawfish is a window manager that is extensible via a lisp-based scriping language. Below are the configuration files I use. These are a little untidy and some parts have probably been poached from other places.

• battery.jl - Show ACPI battery status in window titles
  Size: 2548 bytes
  
  Functions: battery-max-capacity, battery-remaining-capacity, battery-level, add-battery-to-window-title, run-battery-timer
  
  
• dot.sawfishrc - sawfish configuration file
  Size: 13443 bytes
  
  Functions: jump-or-exec-available, terminal, browser, do-once, find-if, program-available
  Macros: destructuring-bind
  
  
• macros.jl - emacs-style keyboard macros for sawfish
  Size: 1858 bytes
  
  Functions: record-macro, play-macro, play-events, bind-last-kbd-macro
  
  
• sawfish-homebrew.jl - custom sawfish functions
  Size: 6978 bytes
  
  Functions: meta+, try-require, system, clipboard-preview, do-message-until-timeout, do-message, prog-available, jump-exec-available, workspace-mostly-empty-p, find-free-workspace, jump-or-exec, window-workspace, some, monitor-off, battery, get-window-by-class-re, refocus-firebird
  Macros: push, pop, save-pointer-excursion
  
  
• selection-push.jl - Store multiple selections for later retrieval
  Size: 1677 bytes
  
  Functions: type-in, push-current-selection, dump-selections
  
  
• shuffle-window.jl
  Size: 1331 bytes
  
  Functions: expand-window, shuffle-window
  
  
• smart-tile.jl - Tile Sawfish windows in an intelligent (hah!) fashion
  Size: 3556 bytes
  
  Functions: window-workspace, find-if, window-on-current-workspace-p, window-touching-p, window-x, window-y, window-width, window-height, overlap-p, resize-frame-to, tile-windows
  Macros: pop
  
  
• with-open-file.jl - Lisp-style with-open-file macro
  Size: 417 bytes
  
  Macros: with-open-file
  
  

other bits

• my-life.sh - manage your life
  I use this shell script in conjunction with diary-countdown.el to show upcoming events on login. Double your stress by being constantly reminded of impending deadlines!
  
  
• upload-site.sh - upload my site
  This shell script copies over any of my elisp/sawfish code that has changed since it was last uploaded and uses sitecopy to upload my site to my ISP.
  
  
• dot.screenrc - Screen configuration file
  
  
• tiny-xmms-remote.c - an XMMS trampoline
  This is used by tiny-xmms.el to communicate with the currently running XMMS.
  
  
• mst-unit.lisp and mst-unit.asd - A unit testing framework for Common Lisp
  A simple framework for defining and running unit tests that I've been using lately. I can't really comment on how this compares to other available testing frameworks because I haven't tried them--I just couldn't resist rolling my own ;o)
  
  
• lisp-test.lisp and lisp-test.asd - Yet another unit testing framework for Common Lisp.
  I just couldn't stop at one.
  
  
• unit_test.pm - Simple unit testing for Perl
  A small module that provides functions for defining and running unit tests.