diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 2152b39..e9645e0 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -98,7 +98,7 @@ (add-to-list 'auto-mode-alist '("\\.di?\\'" . d-mode)) ;; fix to make d-mode highlight primitive types properly (font-lock-add-keywords 'd-mode - '(("\\<\\(bool\\|byte\\|ubyte\\|char\\|delegate\\|double\\|float\\|function\\|int\\|long\\|short\\|uint\\|ulong\\|ushort\\|cent\\|ucent\\|real\\|ireal\\|idouble\\|ifloat\\|creal\\|cfloat\\|cdouble\\|wchar\\|dchar\\|void\\|string\\|wstring\\|dstring\\|__vector\\|Runtime\\|Thread\\)\\>" . 'font-lock-type-face))) + '(("\\<\\(bool\\|byte\\|ubyte\\|char\\|delegate\\|double\\|float\\|function\\|int\\|long\\|short\\|uint\\|ulong\\|ushort\\|cent\\|ucent\\|real\\|ireal\\|idouble\\|ifloat\\|creal\\|cfloat\\|cdouble\\|wchar\\|dchar\\|void\\|string\\|wstring\\|dstring\\|__vector\\|Runtime\\|Thread\\)\\>" . 'font-lock-type-face))) ;; undo-tree (package-install 'undo-tree) @@ -125,8 +125,9 @@ ;; slime (package-install 'slime) (setq inferior-lisp-program "sbcl") -(add-hook 'slime-repl-mode-hook #'(lambda () - (keymap-local-set "C-c l" 'slime-hyperspec-lookup))) +(add-hook 'slime-repl-mode-hook + #'(lambda () + (keymap-local-set "C-c l" 'slime-hyperspec-lookup))) ;; minibuffer completion (package-install 'marginalia) @@ -182,8 +183,9 @@ ;; image-dired (package-install 'image-dired) (global-set-key (kbd "C-c i") 'image-dired) -(add-hook 'image-dired-thumbnail-mode-hook #'(lambda () - (keymap-local-set "M-RET" 'image-dired-display-this))) +(add-hook 'image-dired-thumbnail-mode-hook + #'(lambda () + (keymap-local-set "M-RET" 'image-dired-display-this))) ;; magit (package-install 'magit) @@ -233,10 +235,13 @@ (package-install 'breadcrumb) (setq breadcrumb-project-crumb-separator " ] " breadcrumb-imenu-crumb-separator " > ") -(add-hook 'prog-mode-hook #'(lambda () - (setq header-line-format '( - " " (:eval (breadcrumb-project-crumbs)) - " : " (:eval (breadcrumb-imenu-crumbs)))))) +(add-hook 'prog-mode-hook + #'(lambda () + (setq header-line-format + '(" " + (:eval (breadcrumb-project-crumbs)) + " : " + (:eval (breadcrumb-imenu-crumbs)))))) ;; dashboard (package-install 'dashboard) @@ -251,7 +256,8 @@ "Merely an interface to your code." "“We don't use the term ‘corelibs,’ and I am not sure what that would mean.”" "50 years and Dired is still the best file manager on the planet") - initial-buffer-choice (lambda () (get-buffer-create dashboard-buffer-name))) + initial-buffer-choice (lambda () + (get-buffer-create dashboard-buffer-name))) (add-hook 'after-init-hook 'dashboard-insert-startupify-lists) (add-hook 'after-init-hook 'dashboard-initialize)