@@ -1,3 +1,8 @@ +;; Counts the words in a buffer +(defun wc () + (interactive) + (message "Word count: %s" (how-many "\\w+" (point-min) (point-max)))) + (defun swap-windows () "If you have 2 windows, it swaps them." (interactive) @@ -46,4 +51,15 @@ (delete-file filename) (set-visited-file-name newname) (set-buffer-modified-p nil) - t)))) \ No newline at end of file + t)))) + +(defun sort-words-on-line () + (interactive) + (insert (mapconcat 'identity + (sort (split-string + (delete-and-extract-region + (point) (1+ (line-end-position)))) + 'string<) + " ") + "\n")) + emacs/me/code.el @@ -44,3 +44,6 @@ ;; Aliases (defalias 'dir 'dired) + +(put 'dired-find-alternate-file 'disabled nil) +(setq-default indent-tabs-mode nil) emacs/me/settings.el 9c365dede8b3b56b74521f3521062aef94ccf93c Fogus mefogus@gmail.com http://github.com/fogus/polyglot/commit/e64ca198183a055863339fd9163c722f99fb0ad2 e64ca198183a055863339fd9163c722f99fb0ad2 2009-07-10T12:47:26-07:00 2009-07-10T12:47:26-07:00 added some custom functions e4d89a8c409c388f47c26aaacd29c86ce120e657 Fogus mefogus@gmail.com