dotfiles/emacs
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix (lambda) quoting

Browse Source
This commit is contained in:
Adam Goldsmith 2021-09-13 19:58:44 -04:00
parent 3b210ad829
commit 5fed93e61b
1 changed files with 13 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
.emacs.d/init.el
View File

@ -157,7 +157,7 @@
; line above the current prompt
comint-input-ring-size 500) ; max shell history size
(add-hook 'comint-mode-hook
'(lambda () (setq-local show-trailing-whitespace nil))))
(lambda () (setq-local show-trailing-whitespace nil))))
(use-package semantic
:hook (c-mode . semantic-mode)
@ -174,7 +174,7 @@
; inhibit semantic outside of specific modes
(setq semantic-inhibit-functions
#'(lambda () (not (member major-mode '(c-mode cc-mode java-mode)))))
(lambda () (not (member major-mode '(c-mode cc-mode java-mode)))))
(eval-after-load "cc-mode"
'(bind-key "M-." 'semantic-ia-fast-jump c-mode-map)))
@ -183,12 +183,12 @@
:config
(add-hook 'term-mode-hook
; if this is t, it breaks shell-command
'(lambda () (setq-local comint-prompt-read-only nil))))
(lambda () (setq-local comint-prompt-read-only nil))))
(use-package gud
:config
(add-hook 'gud-mode-hook
'(lambda () (setq-local comint-prompt-read-only t))))
(lambda () (setq-local comint-prompt-read-only t))))
(use-package org
:bind (:map org-mode-map (("C-z" . org-latex-export-to-pdf-no-kr)
@ -217,9 +217,7 @@
org-confirm-babel-evaluate nil)
;; enable line wraping
(add-hook 'org-mode-hook '(lambda ()
(setq truncate-lines nil
word-wrap t)))
(add-hook 'org-mode-hook (lambda () (setq truncate-lines nil word-wrap t)))
(defun org-latex-open-pdf ()
(interactive)
@ -293,7 +291,7 @@
(use-package prog-mode
:config
(add-hook 'prog-mode-hook
#'(lambda () (setq-local show-trailing-whitespace t))))
(lambda () (setq-local show-trailing-whitespace t))))
(use-package frame :demand
:bind ("C-x C-S-c" . delete-invisible-frames)
@ -333,7 +331,7 @@
(use-package yaml-mode
:config
(add-hook 'yaml-mode-hook
#'(lambda () (setq-local show-trailing-whitespace t))))
(lambda () (setq-local show-trailing-whitespace t))))
;;;; external packages (required)
(use-package auto-package-update :ensure
@ -511,8 +509,8 @@
(defun magit-status-no-new-window (directory)
(interactive "D")
(let ((magit-display-buffer-function
'(lambda (buffer)
(display-buffer buffer '(display-buffer-same-window))))
(lambda (buffer)
(display-buffer buffer '(display-buffer-same-window))))
(default-directory directory))
(magit-status)))
:config
@ -802,10 +800,10 @@
:commands yas-minor-mode
:init
(add-hook 'LaTeX-mode-hook
'(lambda ()
(yas-minor-mode)
(bind-key "<backtab>" 'company-to-yasnippet company-active-map)
(bind-key "<backtab>" 'company-yasnippet) (current-local-map)))
(lambda ()
(yas-minor-mode)
(bind-key "<backtab>" 'company-to-yasnippet company-active-map)
(bind-key "<backtab>" 'company-yasnippet) (current-local-map)))
:config
(yas-reload-all)
(defun company-to-yasnippet ()