|
@@ -4,8 +4,8 @@
|
|
|
|
|
|
(setq inhibit-splash-screen t
|
|
(setq inhibit-splash-screen t
|
|
inhibit-startup-echo-area-message t
|
|
inhibit-startup-echo-area-message t
|
|
- initial-scratch-message "" ; I like things empty.
|
|
|
|
- initial-major-mode 'text-mode) ; I'm usually not writing elisp.
|
|
|
|
|
|
+ initial-scratch-message ""
|
|
|
|
+ initial-major-mode 'text-mode)
|
|
|
|
|
|
;; Base
|
|
;; Base
|
|
|
|
|
|
@@ -21,13 +21,10 @@
|
|
(tool-bar-mode -1))
|
|
(tool-bar-mode -1))
|
|
|
|
|
|
;; smoother scrolling
|
|
;; smoother scrolling
|
|
-(setq mouse-wheel-scroll-amount '(1 ((shift) . 1))) ; one line at a time
|
|
|
|
-(setq mouse-wheel-progressive-speed nil) ; don't accelerate scrolling
|
|
|
|
(setq scroll-margin 0
|
|
(setq scroll-margin 0
|
|
scroll-conservatively 9999
|
|
scroll-conservatively 9999
|
|
scroll-step 1)
|
|
scroll-step 1)
|
|
|
|
|
|
-
|
|
|
|
;; Line settings and indicators
|
|
;; Line settings and indicators
|
|
(setq visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow))
|
|
(setq visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow))
|
|
(setq-default left-fringe-width nil)
|
|
(setq-default left-fringe-width nil)
|
|
@@ -51,7 +48,8 @@ scroll-step 1)
|
|
|
|
|
|
;; Save minibar history
|
|
;; Save minibar history
|
|
(savehist-mode 1)
|
|
(savehist-mode 1)
|
|
-(setq savehist-additional-variables '(kill-ring search-ring regexp-search-ring))
|
|
|
|
|
|
+(setq savehist-additional-variables
|
|
|
|
+ '(kill-ring search-ring regexp-search-ring))
|
|
|
|
|
|
;; Always show matching parens
|
|
;; Always show matching parens
|
|
(show-paren-mode t)
|
|
(show-paren-mode t)
|
|
@@ -104,11 +102,15 @@ scroll-step 1)
|
|
"Create tags file."
|
|
"Create tags file."
|
|
(interactive "DDirectory: ")
|
|
(interactive "DDirectory: ")
|
|
(shell-command
|
|
(shell-command
|
|
- (format "\"%s\" -f TAGS -e -R %s" tags-generator (directory-file-name dir-name))))
|
|
|
|
|
|
+ (format "\"%s\" -f TAGS -e -R %s"
|
|
|
|
+ tags-generator (directory-file-name dir-name))))
|
|
|
|
|
|
(add-to-list 'load-path (expand-file-name "packages" user-emacs-directory))
|
|
(add-to-list 'load-path (expand-file-name "packages" user-emacs-directory))
|
|
(require 'packages)
|
|
(require 'packages)
|
|
|
|
|
|
|
|
+;; Buffer-based completion
|
|
|
|
+(global-set-key (kbd "C-SPC") 'dabbrev-completion)
|
|
|
|
+
|
|
|
|
|
|
;;;; System-specific configs
|
|
;;;; System-specific configs
|
|
|
|
|