ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

EMACS: Markdown settings

Browse source 
Load markdown-mode for .mdwn files, don't remove whitespace when
markdown-mode is active and enable whitespace-mode and auto-fill-mode
for markdown-mode.
This commit is contained in:
Tom Willemsen 2011-05-23 09:43:56 +02:00
parent e85d1198ce
commit 3ab0e979f8
3 changed files with 36 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
emacs.d/10-file-associations.el
View file

@ -5,6 +5,8 @@
(add-to-list 'auto-mode-alist '("\\.lua$" . lua-mode)) (add-to-list 'auto-mode-alist '("\\.lua$" . lua-mode))
(add-to-list 'auto-mode-alist '("\\.php[345]?$" . php-mode)) (add-to-list 'auto-mode-alist '("\\.php[345]?$" . php-mode))
(add-to-list 'auto-mode-alist '("\\.js\\(on\\)?$" . javascript-mode)) (add-to-list 'auto-mode-alist '("\\.js\\(on\\)?$" . javascript-mode))
(add-to-list 'auto-mode-alist '("\\.mdwn$" . markdown-mode))
(add-to-list 'auto-mode-alist '("\\.markdown$" . markdown-mode))
(add-to-list 'file-coding-system-alist '("\\.vala$" . utf-8)) (add-to-list 'file-coding-system-alist '("\\.vala$" . utf-8))
(add-to-list 'file-coding-system-alist '("\\.vapi$" . utf-8)) (add-to-list 'file-coding-system-alist '("\\.vapi$" . utf-8))

48
emacs.d/10-settings.el
View file

@ -1,32 +1,44 @@
(add-to-list 'default-frame-alist '(font . "DejaVu Sans Mono-10:antialias=true")) (add-to-list 'default-frame-alist '(font . "DejaVu Sans Mono-10:antialias=true"))
(setq inhibit-startup-message t) ; don't show welcome screen (setq inhibit-startup-message t) ; don't show welcome screen
(setq require-final-newline t) ; always append a newline to a (setq require-final-newline t) ; always append a newline to a
; file, if it doesn't have one ; file, if it doesn't have one
(setq font-lock-maximum-decoration t) ; denotes my interest in maximum (setq font-lock-maximum-decoration t) ; denotes my interest in maximum
; possible fontification ; possible fontification
(setq inhibit-default-init t) ; don't load default init (setq inhibit-default-init t) ; don't load default init
(setq-default indent-tabs-mode nil) ; spaces, no tabs (setq-default indent-tabs-mode nil) ; spaces, no tabs
(setq scroll-conservatively 10000) ; scroll only one line
(setq whitespace-style '(face trailing))
(setq backup-directory-alist `((".*" . ,temporary-file-directory))) (setq backup-directory-alist ; backup file location
; backup file location `((".*" .
(setq auto-save-file-name-transforms `((".*" ,temporary-file-directory t))) ,temporary-file-directory)))
; autosave file location (setq auto-save-file-name-transforms ; autosave file location
`((".*" ,temporary-file-directory
t)))
(fset 'yes-or-no-p 'y-or-n-p) ; switch yes or no to y or n (fset 'yes-or-no-p 'y-or-n-p) ; switch yes or no to y or n
(tool-bar-mode -1) ; no toolbar (tool-bar-mode -1) ; no toolbar
(menu-bar-mode -1) ; no menubar (menu-bar-mode -1) ; no menubar
(scroll-bar-mode -1) ; no scrollbars (scroll-bar-mode -1) ; no scrollbars
(line-number-mode -1) ; don't show line number in splitter (line-number-mode -1) ; don't show line number in
(global-linum-mode t) ; show them in the gutter ; splitter
(column-number-mode t) ; show column number in splitter (global-linum-mode t) ; show them in the gutter
(column-number-mode t) ; show column number in splitter
(global-font-lock-mode t) ; show syntax highlighting, old (global-font-lock-mode t) ; show syntax highlighting, old
(delete-selection-mode t) ; delete selection upon typing (delete-selection-mode t) ; delete selection upon typing
(show-paren-mode t) (show-paren-mode t) ; show the opposite paren
(defun buffer-major-mode (buffer-or-string)
(with-current-buffer buffer-or-string major-mode))
;; Byte-compile elisp files on save ;; Byte-compile elisp files on save
(add-hook 'before-save-hook 'delete-trailing-whitespace) (add-hook 'before-save-hook
(lambda ()
(if (not (eq (buffer-major-mode (current-buffer))
'markdown-mode))
(delete-trailing-whitespace))))
(add-hook 'after-save-hook (add-hook 'after-save-hook
(lambda () (lambda ()
(let ((fname (buffer-file-name))) (let ((fname (buffer-file-name)))

6
emacs.d/20-markdown-mode.el
View file

@ -1,4 +1,6 @@
(autoload 'markdown-mode "markdown-mode" (autoload 'markdown-mode "markdown-mode"
"Major mode for editing Markdown files" t) "Major mode for editing Markdown files" t)
(setq auto-mode-alist
(cons '("\\.markdown" . markdown-mode) auto-mode-alist)) (add-hook 'markdown-mode-hook (lambda ()
(whitespace-mode)
(auto-fill-mode)))