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