colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Whitespace fixes in init.el.

Browse Source
This commit is contained in:
Ivan Malison 2015-01-02 12:27:44 -08:00
parent 82eaad169d
commit e039f780dd
1 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
dotfiles/emacs.d/init.el
View File

@ -225,7 +225,7 @@ buffer is not visiting a file."
"\.tex$" ".pdf" buffer-file-name))) "\.tex$" ".pdf" buffer-file-name)))
(shell-command (concat "open " pdf-file)))) (shell-command (concat "open " pdf-file))))
(defun tmux-copy (&optional b e) (defun tmux-copy (&optional b e)
(interactive "r") (interactive "r")
(shell-command-on-region b e "cat | tmux loadb -")) (shell-command-on-region b e "cat | tmux loadb -"))
@ -367,7 +367,7 @@ The current directory is assumed to be the project's root otherwise."
(setq yas-prompt-functions (setq yas-prompt-functions
(cons 'yas-ido-prompt (cons 'yas-ido-prompt
(cl-delete 'yas-ido-prompt yas-prompt-functions))))) (cl-delete 'yas-ido-prompt yas-prompt-functions)))))
(use-package tramp (use-package tramp
:commands tramp :commands tramp
:config :config
@ -476,7 +476,7 @@ The current directory is assumed to be the project's root otherwise."
:ensure t :ensure t
:commands company-mode :commands company-mode
:bind (("C-\\" . company-complete)) :bind (("C-\\" . company-complete))
:config :config
(progn (progn
(setq company-idle-delay .25) (setq company-idle-delay .25)
(global-company-mode) (global-company-mode)
@ -502,7 +502,7 @@ The current directory is assumed to be the project's root otherwise."
:ensure t :ensure t
:config :config
(define-key mc/keymap (kbd "C-. =") 'mc/compare-chars))) (define-key mc/keymap (kbd "C-. =") 'mc/compare-chars)))
:bind :bind
(("C-c m a" . mc/mark-all-like-this) (("C-c m a" . mc/mark-all-like-this)
("C-c m m" . mc/mark-all-like-this-dwim) ("C-c m m" . mc/mark-all-like-this-dwim)
("C-c m l" . mc/edit-lines) ("C-c m l" . mc/edit-lines)
@ -617,7 +617,7 @@ The current directory is assumed to be the project's root otherwise."
(interactive "P") (interactive "P")
(org-projectile:project-todo-completing-read (org-projectile:project-todo-completing-read
(if arg "* TODO %? %A\n" nil))))) (if arg "* TODO %? %A\n" nil)))))
;; variable configuration ;; variable configuration
(add-to-list 'org-modules 'org-habit) (add-to-list 'org-modules 'org-habit)
(setq org-src-fontify-natively t) (setq org-src-fontify-natively t)
@ -647,7 +647,7 @@ The current directory is assumed to be the project's root otherwise."
`("c" "Calendar entry" entry `("c" "Calendar entry" entry
(file+headline ,org-calendar-file "Personal") (file+headline ,org-calendar-file "Personal")
"* %?")) "* %?"))
(add-to-list 'org-capture-templates (add-to-list 'org-capture-templates
`("h" "Habit" entry (file+headline ,org-habits-file "Habits") `("h" "Habit" entry (file+headline ,org-habits-file "Habits")
"* TODO "* TODO
@ -671,7 +671,7 @@ The current directory is assumed to be the project's root otherwise."
(add-to-list 'org-capture-templates (add-to-list 'org-capture-templates
`("g" "GTD Todo" entry (file+headline ,org-gtd-file "Tasks") `("g" "GTD Todo" entry (file+headline ,org-gtd-file "Tasks")
"* TODO %?\n")) "* TODO %?\n"))
(defun org-insert-habit () (defun org-insert-habit ()
(interactive) (interactive)
(org-insert-todo-heading nil) (org-insert-todo-heading nil)
@ -683,7 +683,7 @@ The current directory is assumed to be the project's root otherwise."
(org-today (&rest r) (time-to-days date))) (org-today (&rest r) (time-to-days date)))
(cond ((eq major-mode 'org-mode) (org-todo)) (cond ((eq major-mode 'org-mode) (org-todo))
((eq major-mode 'org-agenda-mode) (org-agenda-todo))))) ((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))
(add-to-list 'org-capture-templates (org-projectile:project-todo-entry "p")) (add-to-list 'org-capture-templates (org-projectile:project-todo-entry "p"))
(add-to-list 'org-capture-templates (org-projectile:project-todo-entry "l" "* TODO %? %a\n")) (add-to-list 'org-capture-templates (org-projectile:project-todo-entry "l" "* TODO %? %a\n"))
@ -703,7 +703,7 @@ The current directory is assumed to be the project's root otherwise."
'(tags-todo "-PRIORITY={.}/!" '(tags-todo "-PRIORITY={.}/!"
((org-agenda-overriding-header ((org-agenda-overriding-header
"These don't have priorities:"))))) "These don't have priorities:")))))
(setq org-agenda-custom-commands (setq org-agenda-custom-commands
`(("M" "Main agenda view" `(("M" "Main agenda view"
(,due-today (,due-today
@ -828,7 +828,7 @@ The current directory is assumed to be the project's root otherwise."
"Display the message MSG in a new buffer, and keep in sync with HDRSBUF. "Display the message MSG in a new buffer, and keep in sync with HDRSBUF.
'In sync' here means that moving to the next/previous message in 'In sync' here means that moving to the next/previous message in
the the message view affects HDRSBUF, as does marking etc. the the message view affects HDRSBUF, as does marking etc.
As a side-effect, a message that is being viewed loses its 'unread' As a side-effect, a message that is being viewed loses its 'unread'
marking if it still had that." marking if it still had that."
(let* ((embedded ;; is it as an embedded msg (ie. message/rfc822 att)? (let* ((embedded ;; is it as an embedded msg (ie. message/rfc822 att)?
@ -860,7 +860,7 @@ marking if it still had that."
(mu4e-view-mode)))))) (mu4e-view-mode))))))
(require 'smtpmail) (require 'smtpmail)
;; alternatively, for emacs-24 you can use: ;; alternatively, for emacs-24 you can use:
(setq message-send-mail-function 'smtpmail-send-it (setq message-send-mail-function 'smtpmail-send-it
smtpmail-stream-type 'starttls smtpmail-stream-type 'starttls
@ -889,7 +889,7 @@ marking if it still had that."
(defun emacsclient-command (command) (defun emacsclient-command (command)
(format "emacsclient --server-file='%s' -e '%s'" server-name command)) (format "emacsclient --server-file='%s' -e '%s'" server-name command))
(setq alert-default-style 'notifier))) (setq alert-default-style 'notifier)))
(use-package sauron (use-package sauron
@ -919,7 +919,7 @@ marking if it still had that."
(t (lambda (&rest r) nil))))) (t (lambda (&rest r) nil)))))
(funcall handler origin priority message properties))) (funcall handler origin priority message properties)))
;; Prefering alert.el for now ;; (add-hook 'sauron-event-added-functions 'sauron:dispatch-notify) ;; Prefering alert.el for now ;; (add-hook 'sauron-event-added-functions 'sauron:dispatch-notify)
(add-hook 'sauron-event-added-functions 'sauron-alert-el-adapter)) (add-hook 'sauron-event-added-functions 'sauron-alert-el-adapter))
:idle (sauron-start-hidden) :idle (sauron-start-hidden)
:idle-priority 3) :idle-priority 3)
@ -997,7 +997,6 @@ marking if it still had that."
(cl-defun helm-org-headings-in-buffer () (cl-defun helm-org-headings-in-buffer ()
(interactive) (interactive)
(helm :sources (helm-source-org-headings-for-files (helm :sources (helm-source-org-headings-for-files
(list (projectile-completing-read (list (projectile-completing-read
"File to look at headings from: " "File to look at headings from: "
(projectile-all-project-files)))) (projectile-all-project-files))))
@ -1077,7 +1076,7 @@ marking if it still had that."
(interactive "P") (interactive "P")
(if arg (call-interactively 'ido-switch-buffer) (if arg (call-interactively 'ido-switch-buffer)
(call-interactively 'persp-pick-perspective-by-buffer))) (call-interactively 'persp-pick-perspective-by-buffer)))
(define-key persp-mode-map (kbd "C-x b") 'persp-mode-switch-buffers)) (define-key persp-mode-map (kbd "C-x b") 'persp-mode-switch-buffers))
:bind ("C-c 9" . persp-switch)) :bind ("C-c 9" . persp-switch))
@ -1182,7 +1181,9 @@ marking if it still had that."
(put 'use-package 'lisp-indent-function 1) ;; reduce indentation for use-package (put 'use-package 'lisp-indent-function 1) ;; reduce indentation for use-package
(add-hook 'emacs-lisp-mode-hook 'imenu-elisp-sections) (add-hook 'emacs-lisp-mode-hook 'imenu-elisp-sections)
(add-hook 'emacs-lisp-mode-hook 'flatten-current-imenu-index-function) (add-hook 'emacs-lisp-mode-hook 'flatten-current-imenu-index-function)
(add-hook 'emacs-lisp-mode-hook (lambda () (setq indent-tabs-mode nil))) (add-hook 'emacs-lisp-mode-hook (lambda ()
(setq indent-tabs-mode nil)
(setq show-trailing-whitespace t)))
(bind-key "C-c C-f" 'find-function) (bind-key "C-c C-f" 'find-function)
(bind-key "C-c C-v" 'find-variable) (bind-key "C-c C-v" 'find-variable)
(define-key lisp-mode-shared-map (kbd "C-c C-c") 'eval-defun) (define-key lisp-mode-shared-map (kbd "C-c C-c") 'eval-defun)
@ -1408,7 +1409,7 @@ marking if it still had that."
;; ============================================================================= ;; =============================================================================
;; Custom Key Bindings ;; Custom Key Bindings
;; ============================================================================= ;; =============================================================================
;; Miscellaneous ;; Miscellaneous
(global-unset-key (kbd "C-o")) ;; Avoid collision with tmux binding. (global-unset-key (kbd "C-o")) ;; Avoid collision with tmux binding.
(bind-key "M-q" 'fill-or-unfill-paragraph) (bind-key "M-q" 'fill-or-unfill-paragraph)
@ -1469,7 +1470,7 @@ marking if it still had that."
(setq whitespace-style (quote (spaces tabs newline space-mark (setq whitespace-style (quote (spaces tabs newline space-mark
tab-mark newline-mark))) tab-mark newline-mark)))
(setq whitespace-display-mappings (setq whitespace-display-mappings
'((space-mark 32 [183] [46]) '((space-mark 32 [183] [46])
(tab-mark 9 [9655 9] [92 9]))) (tab-mark 9 [9655 9] [92 9])))
(defun colorize-compilation-buffer () (defun colorize-compilation-buffer ()