(setq load-path (nconc load-path (list "~/lib/emacs")))
(require 'dot-emacs)
+(require 'cl)
;;;--------------------------------------------------------------------------
;;; Some random initialisation.
(trap (or mdw-fast-startup (require 'tex-site)))
-(trap (or mdw-fast-startup (semantic-load-enable-minimum-features)))
+(trap (or mdw-fast-startup t (semantic-load-enable-code-helpers)))
(setq semanticdb-default-save-directory "~/.emacs.d/semanticdb/")
+(eval-after-load "senator"
+ '(setq isearch-mode-hook
+ (remq 'senator-isearch-mode-hook isearch-mode-hook)
+ isearch-mode-end-hook
+ (remq 'senator-isearch-mode-hook isearch-mode-end-hook)))
;; Skeleton stuff.
(and (or window-system (>= emacs-major-version 23))
(progn (setq server-temp-file-regexp (concat "^" tmpdir "\\|/draft$")
+ edit-server-new-frame nil
gnuserv-frame t)
- (trap (server-start))))
+ (trap (server-start))
+ (trap (progn
+ (require 'edit-server)
+ (edit-server-start)
+ (let ((edit (get-process "edit-server")))
+ (and edit
+ (set-process-query-on-exit-flag edit nil)))))))
;; Control backup behaviour.
;; ---- Some mail and news configuration ---
-(setq mail-from-style 'parens)
-(setq mail-signature t)
-(setq mail-yank-prefix "> ")
-(setq mail-archive-file-name "~/Mail/sent")
+(setq mail-from-style 'angles
+ mail-signature t
+ mail-yank-prefix "> "
+ mail-archive-file-name "~/Mail/sent"
+ compose-mail-user-agent-warnings nil)
(setq rmail-display-summary t)
(setq rmail-file-name "~/Mail/rmail")
(setq message-signature-separator "^-- \\(\\|\\[mdw\\]\\)$"
message-yank-prefix "> "
message-yank-cited-prefix "> "
+ message-send-mail-function 'message-send-mail-with-sendmail
message-indent-citation-function '(message-indent-citation
mdw-trim-spaces-after-citing))
(setq scroll-step 5) ;Don't scroll too much at a time
(setq-default fill-column 77) ;I use rather narrow windows
(setq-default comment-column 40) ;Set a standard comment column
-(setq-default truncate-partial-width-windows nil)
+(setq-default truncate-partial-width-windows nil
+ truncate-lines t)
(setq default-indicate-empty-lines t)
(setq whitespace-style
'(trailing space-before-tab space-after-tab empty indentation))
(setq password-cache-expiry nil)
(setq-default proced-filter 'all
proced-sort 'user)
-(setq ispell-program-name "aspell"
+(setq ispell-program-name "aspell-hack"
ispell-local-dictionary "en_GB-ize-w_accents"
flyspell-default-dictionary "en_GB-ize-w_accents"
+ ispell-local-dictionary-alist
+ '(("en_GB-ize-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t
+ ("-d" "en_GB-ize-w_accents") nil utf-8))
ispell-silently-savep t)
(trap
(require 'uniquify)
(setq url-cookie-untrusted-urls '("."))
(setq browse-url-browser-function (mdw-good-url-browser)
+ browse-url-generic-program "mdw-chrome"
browse-url-mozilla-program "firefox")
(setq w3m-default-display-inline-images t)
+(eval-after-load "w3m"
+ '(let ((entries '(("application/pdf" "\\.pdf\\'" ("evince" file) nil)
+ ("application/x-pdf" "\\.pdf\\'" ("evince" file) nil))))
+ (dolist (e entries)
+ (setq w3m-content-type-alist
+ (cons e (remove* (car e) w3m-content-type-alist
+ :key #'car :test #'string=))))))
+
(setq w3-do-incremental-display t
w3-use-menus '(file edit view go bookmark options
buffers style search emacs nil help)
;; Cosmetic stuff.
+(setq calendar-view-diary-initially-flag t
+ calendar-view-holidays-initially-flag t)
+
(setq display-time-24hr-format t)
(display-time)
(column-number-mode 1)
-(trap
- (if window-system
- (let ((view-diary-entries-initially t))
- (calendar))))
+(trap (if window-system (calendar)))
;;;--------------------------------------------------------------------------
;;; MailCrypt.
(global-set-key [?\C-x ?t ?s] 'timeclock-status-string)
(global-set-key [?\C-x ?t ?p] 'nc-timesheet-prepare)
(global-set-key [?\C-x ?t ?\C-m] 'nc-timesheet-submit)
+ (global-set-key [?\C-x ?3] 'mdw-split-window-horizontally)
(global-set-key [?\M-#] 'calc-dispatch)
(global-set-key [?\C-x ?/] 'auto-fill-mode)
(global-set-key [?\C-x ?w ?d] 'mdw-divvy-window)
(add-hook 'org-agenda-mode-hook
#'(lambda () (mdw-clobber-evil-keymap org-agenda-mode-map)))
(or mdw-fast-startup
- (progn
- (org-remember-insinuate)
- (global-set-key [?\C-c ?r] 'org-remember)))
+ (trap (progn
+ (org-remember-insinuate)
+ (global-set-key [?\C-c ?r] 'org-remember))))
+
+;; Minor mode listing
+
+(setq minor-mode-alist
+ (mdw-uniquify-alist '((reveal-mode (hs-minor-mode
+ " hs/r"
+ (global-reveal-mode
+ "" " Reveal")))
+ (hs-minor-mode (reveal-mode "" " hs"))
+ (abbrev-mode "")
+ (gtags-mode ""))
+ minor-mode-alist))
;; Recognising types of files.
;; ("/[ch]/" . c-mode)
(,(concat "/\\("
"\\.stgit\\.msg" "\\|"
+ "\\.topmsg" "\\|"
"\\.git/COMMIT_EDITMSG" "\\|"
"svn-commit\\.tmp" "\\|"
"svk-commit[^/.]*\\.tmp"
auto-mode-alist))
(setq interpreter-mode-alist
- (append `(("runlisp" . lisp-mode))
+ (append `(("runlisp" . lisp-mode)
+ ("@PYTHON@" . python-mode)
+ ("@PERL@" . perl-mode)
+ ("@TCLSH@" . tcl-mode)
+ ("@WISH@" . tcl-mode))
interpreter-mode-alist))
(setq completion-ignored-extensions
(append `(".hc" ".hi") completion-ignored-extensions))
+(dolist (dir (remove-if-not (lambda (ext)
+ (= (aref ext (- (length ext) 1)) ?/))
+ completion-ignored-extensions))
+ (if (/= (aref dir 0) ?/)
+ (setq completion-ignored-extensions
+ (cons (concat "/" dir)
+ (remove dir completion-ignored-extensions)))))
;; Some common local definitions.
'(c-mode-hook c++-mode-hook objc-mode-hook java-mode-hook
csharp-mode-hook perl-mode-hook cperl-mode-hook
python-mode-hook pyrec-mode-hook icon-mode-hook awk-mode-hook
- tcl-mode-hook go-mode-hook
+ tcl-mode-hook go-mode-hook js-mode-hook conf-mode-hook
asm-mode-hook TeX-mode-hook LaTeX-mode-hook
TeXinfo-mode-hook tex-mode-hook latex-mode-hook
texinfo-mode-hook emacs-lisp-mode-hook scheme-mode-hook
- lisp-mode-hook lisp-interaction-mode-hook
+ lisp-mode-hook lisp-interaction-mode-hook makefile-mode-hook
inferior-lisp-mode-hook slime-repl-mode-hook
sml-mode-hook haskell-mode-hook erlang-mode-hook
smalltalk-mode-hook rexx-mode-hook
(tramp-remote-sh "/bin/sh"))
,@tramp-methods)))
(setq tramp-default-method "ssh")
- (setq tramp-default-method-alist
- `(("\\`\\(localhost\\|\\)\\'" ""
- ,(cond ((executable-find "become") "become")
- ((executable-find "really") "really")
- (t "su")))))))
+ (let ((rootlyness (cond ((executable-find "really") "really")
+ ((executable-find "become") "become")
+ ((executable-find "sudo") "sudo")
+ (t "su")))
+ (this-host (concat "\\`\\(localhost\\|"
+ (system-name) "\\|\\)\\'"))
+ (this-user (concat "\\`\\(" (user-login-name) "\\|"
+ (user-real-login-name) "\\|\\)\\'")))
+ (setq tramp-default-method-alist
+ `((,this-host nil ,rootlyness)
+ (nil ,this-user "ssh")
+ (nil "." ,rootlyness)))
+ (setq tramp-default-proxies-alist
+ `((,this-host nil nil)
+ (nil "." "/ssh:%h:"))))))
;;;--------------------------------------------------------------------------
;;; General fontification.
(add-hook 'apcalc-mode-hook 'mdw-fontify-apcalc t)
(add-hook 'java-mode-hook 'mdw-fontify-java t)
+ (add-hook 'js-mode-hook 'mdw-fontify-javascript t)
(add-hook 'csharp-mode-hook 'mdw-fontify-csharp t)
(add-hook 'awk-mode-hook 'mdw-fontify-awk t)
(progn
(setq-default py-indent-offset 2
+ python-indent 2
py-python-command-args
`("-i" "-colors" ,(if mdw-black-background
"Linux" "LightBG")))
(setq shell-prompt-pattern "^[^]#$%>»}\n]*\\([]#$%»}]\\|>>?\\) *")
(setq comint-password-prompt-regexp
(concat "\\(\\([Ee]nter \\|[Oo]ld \\|[Nn]ew \\|[a-zA-Z0-9_]*'s \\|^\\)"
- "[Pp]assword\\|pass phrase\\):"))
+ "[Pp]assword\\|[Pp]ass ?phrase\\(\\| [-a-zA-Z0-9._]+\\)\\):")
+ comint-file-name-chars "~/A-Za-z0-9+@:_.$#%,={}-"
+ shell-file-name-chars comint-file-name-chars)
;; Notice passwords, and make C-a work right.
~mdw / profile / blobdiff