(setq-default comment-column 40) ;Set a standard comment column
(setq-default truncate-partial-width-windows nil
truncate-lines t)
++ +(setq line-move-visual t
++ + visual-order-cursor-movement t)
(setq default-indicate-empty-lines t)
(setq view-read-only t)
(setq-default view-exit-action #'kill-buffer)
'(("en_GB-ize-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t
("-d" "en_GB-ize-w_accents") nil utf-8))
ispell-silently-savep t)
+ ++(setq-default viper-case-fold-search t
+ ++ viper-electric-mode t
+ ++ viper-ex-style-motion nil
+ ++ viper-ex-style-editing nil
+ ++ viper-expert-level 5
+ ++ viper-inhibit-startup-message t
+ ++ ;;viper-insert-state-cursor-color "red"
+ ++ viper-no-multiple-ESC nil
+ ++ viper-re-query-replace t
+ ++ viper-re-search t
+ ++ ;;viper-replace-overlay-cursor-color "red"
+ ++ viper-shift-width 2
+ ++ viper-vi-style-in-minibuffer nil
+ ++ viper-want-ctl-h-help t)
(trap
(require 'uniquify)
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)
(tool-bar-mode 0))
(trap (or mdw-fast-startup (global-auto-revert-mode t)))
+ ++(defun mdw-set-viper-cursor-colour ()
+ ++ ;; ?? doesn't seem to work
+ ++ (set-frame-parameter nil 'cursor-color "green")
+ ++ (message ";; %S" post-command-hook)
+ ++ (sit-for 2))
+ ++;;(add-hook 'viper-vi-state-hook 'mdw-set-viper-cursor-colour)
+ ++
(defvar mdw-black-background t)
(eval-after-load "outline"
(((class color)) :background "cyan")
(t :inverse-video t))
+ ++(mdw-define-face viper-minibuffer-emacs (t nil))
+ ++(mdw-define-face viper-minibuffer-insert (t nil))
+ ++(mdw-define-face viper-minibuffer-vi (t nil))
+ ++(mdw-define-face viper-replace-overlay
+ ++ (((min-colors 64)) :background "darkred")
+ ++ (((class color)) :background "red")
+ ++ (t :inverse-video t))
+ ++(mdw-define-face viper-search (t :inherit isearch))
+ ++
(mdw-define-face holiday-face
(t :background "red"))
(mdw-define-face calendar-today-face
(mdw-define-c-style mdw-trustonic-c (mdw-c)
(c-basic-offset . 4)
--- (c-indent-comment-alist (anchored-comment . (column . 0))
--- (end-block . (space . 1))
--- (cpp-end-block . (space . 1))
--- (other . (space . 1)))
(c-offsets-alist (access-label . -2)))
(mdw-define-c-style mdw-trustonic-alec-c (mdw-trustonic-c)
(comment-column . 0)
+++ (c-indent-comment-alist (anchored-comment . (column . 0))
+++ (end-block . (space . 1))
+++ (cpp-end-block . (space . 1))
+++ (other . (space . 1)))
(c-offsets-alist (arglist-cont-nonempty . mdw-c-indent-arglist-nested)))
(defun mdw-set-default-c-style (modes style)
;; Miscellaneous fiddling.
(mdw-standard-fill-prefix "\\([ \t]*#+[ \t]*\\)")
(setq indent-tabs-mode nil)
+++ (set (make-local-variable 'forward-sexp-function) nil)
;; Now define fontification things.
(make-local-variable 'font-lock-keywords)
magit-diff-refresh-popup
magit-diff-mode-refresh-popup
magit-revision-mode-refresh-popup))
-- - (magit-define-popup-switch popup ?R "Reverse diff" "-R"))))
++ + (magit-define-popup-switch popup ?R "Reverse diff" "-R"))
++ + (magit-define-popup-switch 'magit-rebase-popup ?r
++ + "Rebase merges" "--rebase-merges")))
(defadvice magit-wip-commit-buffer-file
(around mdw-just-this-buffer activate compile)