;;; Gnu Emacs Initialization File -- Steve Savitzky ;; load emacs 24's package system. Add MELPA repository. (add-to-list 'after-init-hook ;; From https://tychoish.com/post/towards-faster-emacs-start-times/ (lambda () (message (concat "emacs (" (number-to-string (emacs-pid)) ") started in " (emacs-init-time))))) (when (>= emacs-major-version 24) (require 'package) (add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/") ; many packages won't show if using stable t) ) ;; Added by Package.el. This must come before configurations of ;; installed packages. Don't delete this line. If you don't want it, ;; just comment it out by adding a semicolon to the start of the line. ;; You may delete these explanatory comments. (package-initialize) (setq my-home-emacs-dir (concat (getenv "HOME") "/Honu/emacs")) (setq my-local-emacs-dir (concat (getenv "HOME") "/Honu/local/emacs")) (if (file-exists-p my-home-emacs-dir) (setq load-path (cons my-home-emacs-dir load-path)) (setq my-home-emacs-dir nil)) (if (file-exists-p my-local-emacs-dir) (setq load-path (cons my-local-emacs-dir load-path))) ;;; Load the things we always need. ;;; Use load rather than require to prevent errors if files don't exist. ;;; In some cases we need to define things we use in hooks. (load "uniquify" t) (load "thing" t) (load "crypt++" t) (require 'log-edit) ; This set of functions are required so that (require 'vc) ; we can use vc-git-log-edit-mode to edit commit (require 'vc-git) ; messages when git invokes $EDITOR on them. (or (load "gin-mode" t) (defun gin-mode-on () "no gin-mode: fake it")) (defun load-from-subdir (subdir) (if (file-exists-p (concat my-home-emacs-dir "/" subdir)) (setq load-path (cons (concat my-home-emacs-dir "/" subdir) load-path)) )) ;;; Many html-helper-mode commands are useful in other modes (load "tempo" t) ; required for html-helper-mode (load-from-subdir "html-helper-mode") (if (file-exists-p "~/.abbrev_defs") (quietly-read-abbrev-file nil)) (cond (my-home-emacs-dir ;; ss-browse-hacks, ss-key-hacks haven't been used for years (autoload 'ss-gnus-hacks "ss-gnus-hacks" "hacks for gnus" t) (autoload 'ss-dired-hacks "ss-dired-hacks" "hacks for dired" t) (add-hook 'dired-mode-hook 'ss-dired-hacks) )) (or (fboundp 'gin-mode-on) (defun gin-mode-on () "no gin-mode: fake it")) (if (fboundp 'global-font-lock-mode) (global-font-lock-mode t)) (add-hook 'c-mode-hook 'turn-on-font-lock) (add-hook 'java-mode-hook 'turn-on-font-lock) (setq font-lock-maximum-decoration 3 ;;font-lock-background-mode 'light ) (setq terminal-uses-flow-control-chars '("vt100" "vt320" "vt52" "vt101" "vt131")) (defun shrug () "insert shrug emoticon at point" (interactive nil) (insert "¯\\_(ツ)_/¯")) ;;; ;;; Key Bindings ;;; ;; random stuff (global-set-key "\C-x!" 'shell) ; since C-! is shell command... (global-set-key "\C-x=" 'my-what-cursor-position) (global-set-key "\C-xS" 'my-save-some-buffers) (global-set-key "\C-x\r" 'compile) ;;;(global-set-key "\C-x`" 'wsr:next-error) ;some terminal setups mung this (global-set-key "\C-x8" 'eight-space-tabs) (global-set-key "\C-xE" 'eval-print-last-sexp) (global-set-key "\M-\C-l" 'goto-line) (global-set-key "\M-o" 'overwrite-mode) (global-set-key "\M-p" 'print-region) ; (global-set-key "\M-P" 'my-print-buffer) ; mp doesn't exist (global-set-key "\M-W" 'write-region) ;; manual, mail and news (global-set-key "\M-L" 'lj-compose) (global-set-key "\M-\C-m" 'manual-entry) (setq gcs-vm-define-key nil) ; prevent gcs-vm from clobbering. (global-set-key "\M-M" 'gnus) ;was vm (global-set-key "\M-N" 'gnus) ;was gnus-home ;; Thing stuff (global-set-key "\C-ck" 'kill-thing-at-point) (global-set-key "\C-cw" 'copy-thing-at-point) ;; Mode changes ;;(global-set-key "\C-Cc" 'c-mode) ;(global-set-key "\C-Ch" 'html-helper-mode) (global-set-key "\C-Cj" 'java-mode) (global-set-key "\C-Co" 'outline-mode) (global-set-key "\C-Cp" 'picture-mode) ;(global-set-key "\C-Ct" 'indented-text-mode) (global-set-key "\C-Cf" 'auto-fill-mode) ;toggle (global-set-key "\C-C=" 'align-equals) ; align = operators in region ;(global-set-key "\C-Ch" 'w3-use-hotlist) ;(global-set-key "\C-Cu" 'w3-follow-url-at-point) ;(global-set-key "\C-CU" 'w3-fetch) ;(global-set-key "\C-CV" 'w3-open-local) ;(global-set-key "\C-CW" 'w3) ;; HTML stuff, global because we embed html all over the place (global-set-key "\C-Cl" 'tempo-template-html-hyperlink) ;a: link (global-set-key "\C-Cy" 'generic-insert-last-link) (global-set-key "\C-Cc" 'tempo-template-html-code) ; c: CODE (global-set-key "\C-Ce" 'tempo-template-html-emphasized) ; e: EM (global-set-key "\C-Ci" 'tempo-template-html-italic) ; i: IT (global-set-key "\C-Cb" 'tempo-template-html-bold) ; b: BOLD (global-set-key "\C-Cr" 'tempo-template-html-citation) ; r: reference (global-set-key "\C-CI" 'html-helper-smart-insert-item) ; I: list item ;; Text manipulation ;(global-set-key "\C-C\C-t" 'transpose-sentences) ;; More stuff (global-set-key "\C-C%" 'query-replace-regexp) ;;; ;;; Variable Bindings ;;; (setq inhibit-startup-message t) (setq require-final-newline t) (setq version-control 't) (setq trim-versions-without-asking 't) ;now called delete-old-versions ;;(setq delete-old-versions 't) (setq shell-prompt-pattern "(.*) ") (setq kept-old-versions 0) (setq mail-archive-file-name "~/Mail/mail-archive") (setq mail-self-blind t) (setq Info-enable-edit t) (setq fill-column 72) (setq colon-double-space t) ; fill puts two spaces after a colon. (setq find-file-visit-truename t) ;keeps emacs from clobbering symlinks (setq compilations-window-height 10) (setq browse-file-paths ; Where to look on double-click '( "Archive" ; my news archives rel. to Index )) (if (string= (getenv "SLOWTERM") "yes") (setq search-slow-speed 19200 slow-term t) (setq slow-term nil) ) ;;; clean up remaining whitespace (typically indentation) after kill-line ;;; from https://www.emacswiki.org/emacs/DeletingWhitespace (defadvice kill-line (after kill-line-cleanup-whitespace activate compile) "cleanup whitespace on kill-line" (if (not (bolp)) (delete-region (point) (progn (skip-chars-forward " \t") (point))))) ;;; File extensions to ignore when completing filenames (setq completion-ignored-extensions (append completion-ignored-extensions '(".exe" ".obj" ".prj" ".ide" ".class" ".hi" ".errors" ".lj" ".pdf" ".ps" ".dvi" ".log" ".aux"))) (setq TeX-default-mode 'LaTeX-mode) (setq TeX-dvi-print-command "dvips") (setq default-major-mode 'indented-text-mode) (setq auto-mode-alist (append '( ("akefile" . makefile-mode) ; ensures tabs don't get munged. ("\\.make$" . makefile-mode) ; Makefile template files ("\\.htm$" . html-helper-mode) ;HTML files on a pc ("\\.html$" . html-helper-mode) ;HTML files ("\\.shtml$" . html-helper-mode) ;...with server-side includes ("\\.xh$" . html-helper-mode) ; XHTML files ("\\.xcf$" . html-helper-mode) ; XML config files ("\\.xci$" . html-helper-mode) ; XML config files ("\\.ts$" . html-helper-mode) ; tagset files ("\\.inc$" . html-helper-mode) ; include files ("\\.ht.?$" . html-helper-mode) ; .ht, .htt, etc. ("\\.epub$" . nov-mode) ; EPUB eBooks ("\\.js$" . rjsx-mode) ; javascript with jsx ("\\.md$" . markdown-mode) ; markdown (GitHub, etc.) ("\\.m4$" . indented-text-mode) ("\\.oc$" . indented-text-mode) ("\\.flk$" . flktex-mode) ("\\.txt$" . indented-text-mode) ("\\.not$" . indented-text-mode) ;notes ("\\.do\\(ne\\)?$" . to-do-mode) ;as in to.do or 2018/05.done ("^read" . indented-text-mode) ;as in read.me ("[8-9][0-9]+$" . indented-text-mode) ;as in status (date) ("\\.otl$" . outline-mode) ("\\.gwm$" . lisp-mode) ;generic window manager ("\\.ds$" . lisp-mode) ;devilspie rules ("\\.pml$" . c-mode) ;parser meta-language (ARC local) ("\\.pl$" . perl-mode) ("\\.pm$" . perl-mode) ("\\.[CH]$" . c++-mode) ("\\.[ch]pp$" . c++-mode) ("COMMIT_EDITMSG" . vc-git-log-edit-mode) ("\\.newsrc" . fundamental-mode) ("/Mail/" . vm-mode) ; ("/News/" . vm-mode) ) auto-mode-alist )) ;;; These are from jekyll-modes ;; possibly too specialized; we might want to do some additional context checks. ;; consider (add-to-list 'auto-mode-alist '("\\.md$" . jekyll-markdown-mode)) ;; consider (add-to-list 'auto-mode-alist '("\\.html" . jekyll-html-mode)) ;;; ;;; ange-ftp stuff ;;; (setq ange-ftp-default-user "anonymous") (setq ange-ftp-generate-anonymous-password t) ;;; ;;; Property-list Bindings ;;; (put 'narrow-to-region 'disabled nil) (put 'eval-expression 'disabled nil) ;;; ;;; Major-Mode Hooks (for modes with no new functions defined) ;;; ;;; Tweaks for font-lock in dired-mode (setq dired-font-lock-keywords '(;; Put directory headers in italics. ("^ \\(/.+\\)" 1 font-lock-type-face) ;; Put symlinks in bold italics. ("\\([^ ]+\\) -> [^ ]+$" . font-lock-function-name-face) ;; Put marks in bold. ("^[^ ]" . font-lock-reference-face) ;; Put files that are subdirectories in bold. ("^..d.* \\([^ ]+\\)$" 1 font-lock-keyword-face) ;; Put unimportant files in a light face. ("[^ ]*[#~]$" . font-lock-string-face) ("\\.?[#][^ ]*$" . font-lock-string-face) ("[^ ]*\\.\\(aux\\|bak\\|class\\|dvi\\|elc\\|log\\|o\\|toc\\|ps\\|pdf\\|lj\\)$" . font-lock-string-face) )) (defvar gin-left-hang-indent-re "\\s *\\([+o*?!@%#$:/&\"([{]\\|[=-]+>*\\|([0-9.]+)\\|[0-9]+.\\)\\s +" "*Regexp that defines a hanging indent of a paragraph. If it is seen by gin-guess-prefix, the next lines are indented with white space beyond the hanging indent. Setting this variable makes it buffer-local.") (defvar gin-retain-indent-re "[a-zA-Z]*>+\\s *\\|\\s +\\|# *" "*Regexp that defines how a fill-prefix can look like. If such a string is seen by gin-guess-prefix in the current line, the next line will be indented with it, too. Setting this variable makes it buffer-local.") (defun my-buffer-menu-mode-hook () "Hook for buffer menus" (setq browse-hook 'Buffer-menu-this-window) (define-key Buffer-menu-mode-map " " 'Buffer-menu-this-window) (define-key Buffer-menu-mode-map "\r" 'next-line) ) (add-hook 'buffer-menu-mode-hook 'my-buffer-menu-mode-hook) (add-hook 'log-edit-mode-hook 'text-short-line-hook) (defun text-short-line-hook () (setq fill-column 72) ) (defun my-text-mode-hook () "text mode hook using gin-mode, auto-fill-mode, and some local keydefs" (auto-fill-mode 1) (gin-mode-on) (setq fill-column 78) (setq gin-left-hang-indent-re "\\s *\\([-+o*?!@#$%/&:~\"([{]\\|[=-]+>*\\|([0-9.]+)\\|[0-9]+.\\)\\s +") ;(local-set-key "\C-Co" 'outline-mode) ; O = outline mode change ;(local-set-key "\C-Cp" 'picture-mode) ; P = picture mode change ;(local-set-key "\C-Cc" 'c-mode) ; C = c mode change ;(local-set-key "\C-C\C-S" 'sort-lines) ;(local-set-key "\C-Cs" 'sort-hanging-paragraphs) (local-set-key "\C-CS" 'sort-paragraphs) ;; (make-local-variable 'browse-enter-hook) ;; (setq browse-enter-hook 'browse-file-at-point) ) (add-hook 'text-mode-hook 'my-text-mode-hook) (defun my-to-do-mode-hook () (setq fill-column 90) ) (add-hook 'to-do-mode-hook 'my-to-do-mode-hook) (defun my-message-mode-hook () "text mode hook using gin-mode, auto-fill-mode, and some local keydefs" (auto-fill-mode 1) ;; (gin-mode-on) (setq fill-column 72) ) (add-hook 'message-mode-hook 'my-message-mode-hook) (setq html-helper-do-write-file-hooks nil) (setq html-helper-build-new-buffer t) (setq html-helper-timestamp-start nil) (setq html-helper-timestamp-end nil) (defun my-flktex-mode-hook () (local-set-key "\C-C;" 'tex-comment-lines) (auto-fill-mode 0) (electric-pair-mode nil) ;; one might use this space to define other convenience keybindings. ) (add-hook 'flktex-mode-hook 'my-flktex-mode-hook) (add-hook 'flktex-mode-hook 'flk-define-shortcut-keys) (defun my-lisp-mode-hook () ;; (font-lock-mode 1) ) (add-hook 'lisp-mode-hook 'my-lisp-mode-hook) (add-hook 'emacs-lisp-mode-hook 'my-lisp-mode-hook) (defun my-picture-mode-hook () (local-set-key "\C-Ct" 'indented-text-mode) ; T = text mode change ) (add-hook 'picture-mode-hook 'my-picture-mode-hook) (defun my-outline-mode-hook () (local-set-key "\C-Ct" 'indented-text-mode) ; T = text mode change (local-set-key "\C-Cp" 'picture-mode) ; P = picture mode change (local-set-key "\C-Cc" 'c-mode) ; C = c mode change (local-set-key "\C-Ca" 'hide-body) ; make ALL bodies invisible (local-set-key "\C-Cv" 'show-all) ; make all bodies Visible (local-set-key "\C-Ch" 'hide-leaves) ; hide bodies under . (local-set-key "\C-Ci" 'show-branches) ; show all subheadings under . (local-set-key "\C-Cb" 'show-entry) ; show entry body (gin-mode-on) ) (add-hook 'outline-mode-hook 'my-outline-mode-hook) (defun my-mail-mode-hook () ;; (cd "~/Mail") (setq fill-column 72) ; allow room for quotation. (setq gin-retain-indent-re "[ >]*") ) (add-hook 'mail-mode-hook 'my-mail-mode-hook) (add-hook 'view-hook (function (lambda () (setq browse-hook 'exit-recursive-edit) ))) ;;; ;;; FlkTex stuff ;;; (autoload 'flktex-mode "flktex-mode" "FlkTex mode" t) (autoload 'to-do-mode "to-do-mode" "To-Do file mode" t) ;;; ;;; HTML stuff ;;; (setq html-helper-do-write-file-hooks nil) (setq html-helper-build-new-buffer t) (setq html-helper-htmldtd-version "\n") (setq html-helper-address-string (if (boundp 'my-html-home-site) (concat "" (user-full-name) " " "\n <" (user-real-login-name) (if (boundp 'my-email-domain) (concat " @ " my-email-domain ">") "" ) ) (user-full-name))) (setq html-helper-new-buffer-template '("\n" "\n" "\n" "" p "\n" "\n" "

" p "

\n\n" "
\n" ;; assume we'll include a footer, so we don't need ;; "
" html-helper-address-string "
" "\n\n")) (defun html-helper-smarter-insert-item (&optional arg) "Insert a new item, either in a regular list or a dictionary. If outside a list, start a paragraph." ;; Work smarter by searching forward. This is more likely to be ;; right, since it does the right thing following a sublist. (interactive "*P") (letrec ((case-fold-search t) (in "
  • \\|
    \\|
    \\|\\|\\|\\|\\|") (out "]\\|]\\|]\\|]\\|]") (s (concat in "\\|" out))) (if (save-excursion (and (re-search-forward s nil t) (re-search-backward s nil t) (not (looking-at out)))) (or (if (looking-at "
    \\|
    \\|") (tempo-template-html-definition-item arg) (tempo-template-html-list-item arg)) t) (tempo-template-html-paragraph arg)))) (defun html-helper-insert-link-item (&optional arg) "Insert a list item with a link into the buffer" (interactive "*P") (html-helper-smarter-insert-item arg) (tempo-template-html-hyperlink arg) ) (setq html-helper-use-expert-menu t) (setq html-helper-do-write-file-hooks nil) ; don't bother with the timestamp. (setq html-helper-item-continue-indent 5) ; leave room for a space after the tag. (defun my-html-mode-hook () "Hook for HTML editing" (setq browse-hook 'w3-follow-url-at-point) (local-set-key "\C-Cv" 'w3-preview-this-buffer) (auto-fill-mode 1) (electric-indent-local-mode 0) ; Don't re-indent current line on newline (setq gin-left-hang-indent-re "\\s *\\([+o*?!@$\"([{]\\|[=-]+>*\\|<[^> ]+>\\)\\s +") (setq gin-retain-indent-re "\\s +\\|[#]+\\s *" ) (gin-mode-on) (setq fill-column 78) (local-set-key "\e\C-m" 'html-helper-smarter-insert-item) ; apparently masks C-M-RET (local-set-key "\C-Cb" 'tempo-template-html-blockquote) ; b: BLOCKQUOTE (local-set-key "\C-CB" 'tempo-template-html-Blockquote) ; B: Blockquote pre (local-set-key "\C-Cc" 'tempo-template-html-code) ; c: CODE (local-set-key "\C-Cd" 'tempo-template-html-definition-list); d: DL (local-set-key "\C-Ce" 'tempo-template-html-emphasized) ; e: EM (local-set-key "\C-Ci" 'html-helper-smarter-insert-item) ; i: item (local-set-key "\C-Cl" 'tempo-template-html-hyperlink) ; l: link (local-set-key "\C-Co" 'tempo-template-html-ordered-list) ; o: OL (local-set-key "\C-Cq" 'tempo-template-html-quotation) ; q: Q (local-set-key "\C-Cr" 'tempo-template-html-citation) ; r: CITE (local-set-key "\C-Cs" 'tempo-template-html-strong) ; s: STRONG (local-set-key "\C-Cu" 'tempo-template-html-unordered-list) ; u: UL ) (add-hook 'html-mode-hook 'my-html-mode-hook) (add-hook 'html-helper-mode-hook 'my-html-mode-hook) (load "html-helper-mode" t) ;; redefine templates and functions defined in html-helper-mode (tempo-define-template "html-paragraph" '(& "

    " p) nil "insert paragraph") ;; Blockquote - blockquote with style that obeys whitespace and line breaks (tempo-define-template "html-Blockquote" '(& "

    \n" (r "Poetry: ") "
    ") nil "insert Blockquote") ;; need html-helper-mode before we can define ljupdate, because we prefer ;; html-helper-mode to the usual html-mode. We fake it. (setq ljupdir (concat my-local-emacs-dir "/ljupdate")) (if (file-exists-p ljupdir) (progn (setq load-path (cons ljupdir load-path)) (if (fboundp 'html-helper-mode) ;; we use html-helper-mode as a base for lj-update, and ;; don't use html-mode anyway. (defalias 'html-mode 'html-helper-mode)) (require 'ljupdate) ;(setq lj-default-profile (lj-defprofile 'livejournal "mdlbear")) ) ) ;;; lj-compose to compose; ^C-s to post ;;; ;;; Perl-mode stuff ;;; (add-hook 'perl-mode-hook 'my-perl-mode-hook) (defun my-perl-mode-hook () "C++ mode hook" (interactive nil) (setq fill-column 78) ) ;;; ;;; C- and C++-mode stuff ;;; (add-hook 'c++-mode-hook 'my-c++-mode-hook) (defun my-c++-mode-hook () "C++ mode hook" (interactive nil) ;; C++-mode doesn't really handle indentation right. ;; Use gin-mode to properly handle paragraph filling. ;; Set paragraph-start to handle paragraphs in block ;; comments, and set comment-start-skip to properly handle ;; indentation after comment when filling. (gin-mode-on) ;; (font-lock-mode 1) ;;(setq paragraph-separate "^\\s *$\\|^\\s *//\\s *$") (setq paragraph-separate "^\\s *$") (setq paragraph-start (concat "^\\s *$\\|^\\s *//\\s *$" "\\|" page-delimiter)) (setq comment-start-skip "/\\*+\\s *\\|//\\s *") (setq gin-left-hang-indent-re "^$") (setq gin-retain-indent-re "\\s *//\\s *") (setq fill-column 78) (setq comment-column 8) (setq indent-tabs-mode t) (auto-fill-mode 1) (setq c++-comment-only-line-offset 4) ; doesn't appear to work. (local-set-key "\C-Cc" 'c++-mode) ; C = back to C++ mode (local-set-key "\C-Co" 'outline-mode) ; O = outline mode change (local-set-key "\C-Cp" 'picture-mode) ; P = picture mode change (local-set-key "\C-Ct" 'indented-text-mode) ; T = text mode change (local-set-key "%" 'match-paren) ; % matches paren if on one ;; (setq browse-enter-hook 'mouse-find-tag) ) (add-hook 'c-mode-hook 'my-c-mode-hook) (defun my-c-mode-hook () "C mode hook" (gin-mode-on) ;; (font-lock-mode 1) ;; (setq gin-left-hang-indent-re "\\s */*\\*+\\s *") ;; (setq gin-retain-indent-re "\\s */?\\*+\\s +") (setq fill-column 78) (setq comment-column 40) (local-set-key "\C-Cc" 'c-mode) ; C = back to C mode (local-set-key "\C-Co" 'outline-mode) ; O = outline mode change (local-set-key "\C-Cp" 'picture-mode) ; P = picture mode change (local-set-key "\C-Ct" 'indented-text-mode) ; T = text mode change (local-set-key "%" 'match-paren) ; % matches paren if on one ;; (setq browse-enter-hook 'mouse-find-tag) ) (setq c-indent-level 4) (setq c-argdecl-indent 4) (setq c-label-offset -2) (setq c-continued-statement-offset 4) (setq c-tab-always-indent nil) (setq c-brace-offset -4) (setq comment-column 48) (defun beginning-of-C-defun () "Move point to the beginning of the C function in which point finds itself" (interactive nil) (beginning-of-defun) (backward-paragraph) ) ;;; ;;; Function Definitions (mostly not for specific modes) ;;; ;To: unix-emacs@bbn.com ;Date: 18 Nov 88 10:55:11 GMT ;From: MIT.EDU!@EDDIE ;Subject: Fn. to line up assigment ops. ; ;The following little bit of lisp will ensure the first assignment operators ;on each of the lines line up. This is part of our local formatting style ;'cos it looks nice ;-) ; ;The style of the lisp however, is atrocious. All the problems come from ==, ;which looks too much like 'op='. ; ; (typically bound by the author to M-C-= -- I prefer C-C=) ; ;Enjoy. ; ;Paul Hudson ; ;Snail mail: Monotype ADG Email: ...!ukc!acorn!moncam!paul ; Science Park, paul@moncam.co.uk ; Milton Road, "Sun Microsysytems: ; Cambridge, The Company is Arrogant (TM)" ; CB4 4FQ (defun align-equals (start end) "make the first assignment operator on each line line up vertically" (interactive "*r") (save-excursion (save-restriction (let ((indent 0)) (narrow-to-region start end) (beginning-of-buffer) (while (not (eobp)) (if (find-assignment) (progn (exchange-point-and-mark) (setq indent (max indent (current-column))) (delete-horizontal-space) (insert " "))) (forward-line 1)) (beginning-of-buffer) (while (not (eobp)) (if (find-assignment) (indent-to-column (1+ (- indent (- (mark) (point)))))) (forward-line 1))) ))) (defun find-assignment () (if (re-search-forward "[^<>=!]=\\|\\+=\\|-=\\|\\*=\\|/=\\|&=\\||=\\|\\^=\\|<<=\\|>>=" (save-excursion (end-of-line) (point)) t) (progn (goto-char (match-beginning 0)) (if (looking-at ".==") nil (if (looking-at "\\+=\\|-=\\|\\*=\\|/=\\|&=\\||=\\|\\^=\\|<<=\\|>>=") (set-mark (match-end 0)) (forward-char 1) (set-mark (1+ (point)))) (delete-horizontal-space) t)) nil)) (defun tex-comment-lines () "Attach a comment to multiple lines" (interactive) (query-replace-regexp "^" "% ") ) (defun tex-break-lines () "Attach a line break (\\\\) to multiple lines" (interactive) (query-replace-regexp "$" "\\\\\\\\") ) (defun eight-space-tabs () "Set the tab-width for the current buffer to 8" (interactive nil) (setq tab-width 8) ) (defun retabify () "Convert 8-space tabs in current buffer to current buffer's tabs" (interactive nil) (let ((buf-tab-width tab-width)) (mark-whole-buffer) (setq tab-width 8) (untabify) (setq tab-width buf-tab-width) (tabify) ) ) (defun my-save-some-buffers () "Save all buffers without asking." (interactive nil) (save-some-buffers 't) ) (defun my-what-cursor-position () "Print info on cursor position (on screen and within buffer)." (interactive) (let* ((char (following-char)) (beg (point-min)) (end (point-max)) (pos (point)) (total (buffer-size)) (percent (if (> total 50000) ;; Avoid overflow from multiplying by 100! (/ (+ (/ total 200) (1- pos)) (max (/ total 100) 1)) (/ (+ (/ total 2) (* 100 (1- pos))) (max total 1)))) (hscroll (if (= (window-hscroll) 0) "" (format " Hscroll=%d" (window-hscroll)))) (row (1+ (count-lines 1 (point)))) (col (current-column))) (if (= pos end) (if (or (/= beg 1) (/= end (1+ total))) (message "point=%d of %d(%d%%) <%d - %d> x=%d %s" pos total percent beg end col hscroll) (message "point=%d of %d(%d%%) x=%d y=%d %s" pos total percent col row hscroll)) (if (or (/= beg 1) (/= end (1+ total))) (message "Char: %s (0%o) point=%d of %d(%d%%) <%d - %d> x=%d %s" (single-key-description char) char pos total percent beg end col hscroll) (message "Char: %s (0%o) point=%d of %d(%d%%) x=%d y=%d %s" (single-key-description char) char pos total percent col row hscroll))))) (defun sort-hanging-paragraphs (reverse beg end) "Sort paragraphs in region alphabetically; argument means descending order. Called from a program, there are three arguments: REVERSE (non-nil means reverse order), BEG and END (region to sort). Paragraphs are delimited only by empty lines." (interactive "P\nr") (save-restriction (narrow-to-region beg end) (goto-char (point-min)) (sort-subr reverse (function (lambda () (skip-chars-forward "\n\t\f"))) (function (lambda () (re-search-forward "^$"))) ))) (defun mouse-find-tag () (find-tag (find-tag-default))) ;;; ;;; gnus newsreader stuff ;;; ;;; See also ss-gnus-hacks, which is autoloaded as gnus-Startup-hook. ;;; Some variables want to be set before gnus is loaded. ;;; ;(setq gnus-auto-select-same t) ; like rn -s ;(setq gnus-auto-select-next t) ;;; The following are used by local hacks (setq gnus-newsrc-save-frequency 20) (setq gnus-read-articles 0) ;;; Autoload the file ss-gnus-hacks for the real goodies (and my-home-emacs-dir (add-hook 'gnus-startup-hook 'ss-gnus-hacks)) ;;; Use default article sorting. (setq ss-sort-compatibility t) ;(setq message-default-headers "Fcc: ~/\n") (setq message-default-mail-headers "Bcc: steve\nFcc: ~/Mail/mail-archive\n") (setq message-default-news-headers "Fcc: ~/News/.outgoing\n") ;;; ;;; Misc stuff from other people ;;; ;; because I have so many screens open all the time, and idle C-xC-c can ;; really screw things up for me. So make sure we dont exit without ;; confirmation, and rebind C-xC-c appropriately (defun my-exit-from-emacs () (interactive) (if (yes-or-no-p "Do you want to exit ") (save-buffers-kill-emacs))) ;;; ;;; Final setup ;;; (if (eq window-system 'x) (progn (tool-bar-mode -1) (if (null (cdr command-line-args)) ;; This stuff is only done in the main Emacs of an X session. (find-file "~"))) (progn ;; this stuff is done if emacs is being run from a terminal or console ;; the idea is that if you're in via ssh, the time updates will keep ;; the connection alive. t) ) ;;; When in a terminal, use xterm-mouse-mode (when (eq window-system nil) (xterm-mouse-mode t)) (display-time) ;;; Set the window manager's title. This has the same format as mode-line-format (setq frame-title-format (quote ("%b " (vc-mode vc-mode) " - " invocation-name "@" system-name))) (add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode) (add-hook 'haskell-mode-hook 'turn-on-haskell-indentation) ;;(add-hook 'haskell-mode-hook 'turn-on-haskell-indent) ;;(add-hook 'haskell-mode-hook 'turn-on-haskell-simple-indent) ;;; FIXME: for Honu, we need to make sure that the user can have their own copy of ;;; the customization variables. Probably the only way to do that is to ;;; generate the .emacs file instead of symlinking it, and load the rest ;;; from ~/Honu/emacs. (custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(ansi-color-names-vector ["#212526" "#ff4b4b" "#b4fa70" "#fce94f" "#729fcf" "#e090d7" "#8cc4ff" "#eeeeec"]) '(auto-compression-mode t nil (jka-compr)) '(browse-url-browser-function (quote browse-url-mozilla)) '(browse-url-mozilla-program "firefox") '(case-fold-search t) '(column-number-mode t) '(current-language-environment "ASCII") '(custom-enabled-themes (quote (modus-vivendi))) '(custom-safe-themes (quote ("076ee9f2c64746aac7994b697eb7dbde23ac22988d41ef31b714fc6478fee224" "0f7fa4835d02a927d7d738a0d2d464c38be079913f9d4aba9c97f054e67b8db9" "39b0c917e910f32f43f7849d07b36a2578370a2d101988ea91292f9087f28470" "786a64696e16b750861cd99b02f7bc69e26ed46d85671135b50bc6ab3e1b7d7c" "462d6915a7eac1c6f00d5acd8b08ae379e12db2341e7d3eac44ff7f984a5e579" "477ee67197901195a60602c00001e58fbff93f588694333cdc494817d3fceb57" default))) '(delete-old-versions t) '(display-time-mode t) '(font-use-system-font t) '(global-font-lock-mode t nil (font-lock)) '(lj-default-headers "Music: Preformatted: yes ") '(lj-default-server "dreamwidth.org") '(lj-default-username "mdlbear") '(lj-fill-function (quote ignore)) '(mode-line-format (quote ("%e" mode-line-front-space mode-line-mule-info mode-line-client mode-line-modified mode-line-remote mode-line-frame-identification mode-line-buffer-identification " " mode-line-position (vc-mode vc-mode) " " mode-line-modes mode-line-misc-info system-name mode-line-end-spaces))) '(package-selected-packages (quote (modus-themes dark-mint-theme nimbus-theme nov rjsx-mode markdown-mode jekyll-modes web-mode elm-mode))) '(scroll-bar-mode (quote right)) '(select-enable-clipboard t) '(show-paren-mode t nil (paren)) '(text-mode-hook (quote (turn-on-auto-fill my-text-mode-hook text-mode-hook-identify))) '(tool-bar-mode nil) '(uniquify-buffer-name-style (quote forward) nil (uniquify)) '(user-mail-address "steve@savitzky.net")) ;(custom-set-faces) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(default ((t (:family "Liberation Mono" :foundry "unknown" :slant normal :weight normal :height 113 :width normal)))))