[Misc] Silence some compiler warnings in init.el
This commit is contained in:
parent
51a96a0ef2
commit
0dd77f0a73
124
init.el
124
init.el
|
@ -47,10 +47,11 @@
|
||||||
|
|
||||||
(package-initialize)
|
(package-initialize)
|
||||||
|
|
||||||
(dolist (package '(diminish use-package bind-key))
|
(eval-when-compile
|
||||||
(unless (package-installed-p package)
|
(dolist (package '(diminish use-package bind-key))
|
||||||
(package-install package))
|
(unless (package-installed-p package)
|
||||||
(require package))
|
(package-install package))
|
||||||
|
(require package)))
|
||||||
|
|
||||||
(put 'use-package 'lisp-indent-function 1)
|
(put 'use-package 'lisp-indent-function 1)
|
||||||
(setq use-package-verbose t
|
(setq use-package-verbose t
|
||||||
|
@ -185,7 +186,6 @@ _h_ _l_ _o_k _y_ank
|
||||||
("l" forward-char nil)
|
("l" forward-char nil)
|
||||||
("k" previous-line nil)
|
("k" previous-line nil)
|
||||||
("j" next-line nil)
|
("j" next-line nil)
|
||||||
("e" ora-ex-point-mark nil)
|
|
||||||
("n" copy-rectangle-as-kill nil)
|
("n" copy-rectangle-as-kill nil)
|
||||||
("d" delete-rectangle nil)
|
("d" delete-rectangle nil)
|
||||||
("r" (if (region-active-p)
|
("r" (if (region-active-p)
|
||||||
|
@ -198,19 +198,6 @@ _h_ _l_ _o_k _y_ank
|
||||||
("p" kill-rectangle nil)
|
("p" kill-rectangle nil)
|
||||||
("o" nil nil))
|
("o" nil nil))
|
||||||
|
|
||||||
(defhydra hydra-ispell (:color blue)
|
|
||||||
"ispell"
|
|
||||||
("g" (lambda ()
|
|
||||||
(interactive)
|
|
||||||
(setq ispell-dictionary "de_DE")
|
|
||||||
(ispell-change-dictionary "de_DE"))
|
|
||||||
"german")
|
|
||||||
("e" (lambda ()
|
|
||||||
(interactive)
|
|
||||||
(setq ispell-dictionary "en_US")
|
|
||||||
(ispell-change-dictionary "en_US"))
|
|
||||||
"english"))
|
|
||||||
|
|
||||||
;; Top-Level Keybindings
|
;; Top-Level Keybindings
|
||||||
|
|
||||||
(bind-key "<XF86Back>" #'winner-undo)
|
(bind-key "<XF86Back>" #'winner-undo)
|
||||||
|
@ -446,27 +433,31 @@ _h_ _l_ _o_k _y_ank
|
||||||
(put 'downcase-region 'disabled nil)
|
(put 'downcase-region 'disabled nil)
|
||||||
(put 'narrow-to-region 'disabled nil)
|
(put 'narrow-to-region 'disabled nil)
|
||||||
|
|
||||||
(setq display-time-24hr-format t
|
(use-package calendar
|
||||||
calendar-date-style 'iso
|
:config
|
||||||
calendar-view-diary-initially-flag nil
|
(setq calendar-date-style 'iso
|
||||||
diary-show-holidays-flag nil
|
calendar-view-diary-initially-flag nil
|
||||||
holiday-hebrew-holidays nil
|
diary-show-holidays-flag nil
|
||||||
holiday-islamic-holidays nil
|
holiday-hebrew-holidays nil
|
||||||
holiday-bahai-holidays nil
|
holiday-islamic-holidays nil
|
||||||
holiday-oriental-holidays nil
|
holiday-bahai-holidays nil
|
||||||
holiday-solar-holidays nil
|
holiday-oriental-holidays nil
|
||||||
holiday-general-holidays nil
|
holiday-solar-holidays nil
|
||||||
holiday-other-holidays '((holiday-fixed 5 1 "Labour Day")
|
holiday-general-holidays nil
|
||||||
(holiday-fixed 10 3 "German Unity Day")
|
holiday-other-holidays '((holiday-fixed 5 1 "Labour Day")
|
||||||
(holiday-fixed 10 31 "Reformation Day")
|
(holiday-fixed 10 3 "German Unity Day")
|
||||||
(holiday-float 11 3 -1 "Day of Repentance and Prayer" 22)))
|
(holiday-fixed 10 31 "Reformation Day")
|
||||||
|
(holiday-float 11 3 -1 "Day of Repentance and Prayer" 22))))
|
||||||
|
|
||||||
(setq-default font-lock-maximum-decoration '((t . t)))
|
(setq-default font-lock-maximum-decoration '((t . t)))
|
||||||
(setq-default savehist-file (expand-file-name "savehist" emacs-d))
|
(setq-default savehist-file (expand-file-name "savehist" emacs-d))
|
||||||
|
|
||||||
(setq tramp-save-ad-hoc-proxies t)
|
(use-package tramp
|
||||||
|
:config (setq tramp-save-ad-hoc-proxies t))
|
||||||
|
|
||||||
(setq reb-re-syntax 'string)
|
(use-package re-builder
|
||||||
|
:commands (re-builder)
|
||||||
|
:config (setq reb-re-syntax 'string))
|
||||||
|
|
||||||
(setq lisp-indent-function #'lisp-indent-function)
|
(setq lisp-indent-function #'lisp-indent-function)
|
||||||
|
|
||||||
|
@ -513,10 +504,23 @@ _h_ _l_ _o_k _y_ank
|
||||||
(add-hook 'ediff-after-quit-hook-internal 'winner-undo)))
|
(add-hook 'ediff-after-quit-hook-internal 'winner-undo)))
|
||||||
|
|
||||||
(use-package ispell
|
(use-package ispell
|
||||||
:commands (ispell-change-directory)
|
:commands (ispell-change-directory
|
||||||
|
hydra-ispell/body)
|
||||||
:init (progn
|
:init (progn
|
||||||
(setq ispell-dictionary "en_US"
|
(setq ispell-dictionary "en_US"
|
||||||
ispell-really-hunspell t)))
|
ispell-really-hunspell t)
|
||||||
|
(defhydra hydra-ispell (:color blue)
|
||||||
|
"ispell"
|
||||||
|
("g" (lambda ()
|
||||||
|
(interactive)
|
||||||
|
(setq ispell-dictionary "de_DE")
|
||||||
|
(ispell-change-dictionary "de_DE"))
|
||||||
|
"german")
|
||||||
|
("e" (lambda ()
|
||||||
|
(interactive)
|
||||||
|
(setq ispell-dictionary "en_US")
|
||||||
|
(ispell-change-dictionary "en_US"))
|
||||||
|
"english"))))
|
||||||
|
|
||||||
(use-package mailcap
|
(use-package mailcap
|
||||||
:defer t
|
:defer t
|
||||||
|
@ -620,7 +624,8 @@ _h_ _l_ _o_k _y_ank
|
||||||
magit-popup-use-prefix-argument 'default
|
magit-popup-use-prefix-argument 'default
|
||||||
magit-completing-read-function 'ivy-completing-read)
|
magit-completing-read-function 'ivy-completing-read)
|
||||||
|
|
||||||
(require 'projectile)
|
(eval-when-compile
|
||||||
|
(require 'projectile))
|
||||||
(setq magit-repository-directories
|
(setq magit-repository-directories
|
||||||
(mapcar
|
(mapcar
|
||||||
(lambda (dir)
|
(lambda (dir)
|
||||||
|
@ -667,8 +672,9 @@ _h_ _l_ _o_k _y_ank
|
||||||
(use-package gnus
|
(use-package gnus
|
||||||
:defines (gnus-init-file)
|
:defines (gnus-init-file)
|
||||||
:commands (gnus)
|
:commands (gnus)
|
||||||
:init (setq gnus-group-update-tool-bar nil)
|
|
||||||
:config (progn
|
:config (progn
|
||||||
|
(eval-when-compile
|
||||||
|
(require 'gnus-start))
|
||||||
(bbdb-initialize 'gnus 'message)
|
(bbdb-initialize 'gnus 'message)
|
||||||
(bbdb-mua-auto-update-init 'message)
|
(bbdb-mua-auto-update-init 'message)
|
||||||
(setq gnus-init-file (expand-file-name "gnus.el" emacs-d)
|
(setq gnus-init-file (expand-file-name "gnus.el" emacs-d)
|
||||||
|
@ -735,8 +741,7 @@ are assumed to be of the form *.crt."
|
||||||
solarized-use-variable-pitch nil))
|
solarized-use-variable-pitch nil))
|
||||||
|
|
||||||
(use-package smart-mode-line
|
(use-package smart-mode-line
|
||||||
:commands (sml/setup)
|
:commands (sml/setup))
|
||||||
:init (setq sml/use-projectile-p t))
|
|
||||||
|
|
||||||
|
|
||||||
;; * Dired
|
;; * Dired
|
||||||
|
@ -752,8 +757,9 @@ are assumed to be of the form *.crt."
|
||||||
(setq dired-recursive-copies 'top)
|
(setq dired-recursive-copies 'top)
|
||||||
(setq dired-recursive-deletes 'top)
|
(setq dired-recursive-deletes 'top)
|
||||||
|
|
||||||
(require 'dired-x)
|
(eval-when-compile
|
||||||
(require 'dired+)
|
(require 'dired-x)
|
||||||
|
(require 'dired+))
|
||||||
|
|
||||||
;; Gnus support in dired
|
;; Gnus support in dired
|
||||||
(require 'gnus-dired)
|
(require 'gnus-dired)
|
||||||
|
@ -797,6 +803,8 @@ are assumed to be of the form *.crt."
|
||||||
|
|
||||||
(require 'dired-quick-sort)
|
(require 'dired-quick-sort)
|
||||||
(when on-windows
|
(when on-windows
|
||||||
|
(eval-when-compile
|
||||||
|
(require 'ls-lisp))
|
||||||
(setq ls-lisp-use-insert-directory-program t))
|
(setq ls-lisp-use-insert-directory-program t))
|
||||||
(dired-quick-sort-setup)
|
(dired-quick-sort-setup)
|
||||||
|
|
||||||
|
@ -865,18 +873,21 @@ are assumed to be of the form *.crt."
|
||||||
(use-package hippie-exp
|
(use-package hippie-exp
|
||||||
:commands (hippie-expand))
|
:commands (hippie-expand))
|
||||||
|
|
||||||
(use-package helm
|
(use-package helm-config
|
||||||
:commands (helm-show-kill-ring)
|
:commands (helm-show-kill-ring
|
||||||
|
helm-command-prefix)
|
||||||
:diminish helm-mode
|
:diminish helm-mode
|
||||||
:defines (helm-command-prefix-key
|
:defines (helm-command-prefix-key
|
||||||
helm-command-prefix
|
|
||||||
helm-command-map
|
helm-command-map
|
||||||
helm-completing-read-handlers-alist)
|
helm-completing-read-handlers-alist)
|
||||||
:init (require 'helm-config)
|
|
||||||
:config (progn
|
:config (progn
|
||||||
|
(eval-when-compile
|
||||||
|
(require 'helm)
|
||||||
|
(require 'helm-mode)
|
||||||
|
(require 'helm-buffers)
|
||||||
|
(require 'helm-ring))
|
||||||
(setq helm-input-idle-delay 0.0
|
(setq helm-input-idle-delay 0.0
|
||||||
helm-buffers-fuzzy-matching t
|
helm-buffers-fuzzy-matching t
|
||||||
helm-recentf-fuzzy-match t
|
|
||||||
helm-mode-fuzzy-match t
|
helm-mode-fuzzy-match t
|
||||||
helm-autoresize-min-height 20
|
helm-autoresize-min-height 20
|
||||||
helm-ff-auto-update-initial-value t
|
helm-ff-auto-update-initial-value t
|
||||||
|
@ -920,7 +931,9 @@ are assumed to be of the form *.crt."
|
||||||
(man . "^")
|
(man . "^")
|
||||||
(woman . "^")))
|
(woman . "^")))
|
||||||
(bind-key "C-S-SPC" #'ivy-restrict-to-matches ivy-minibuffer-map)
|
(bind-key "C-S-SPC" #'ivy-restrict-to-matches ivy-minibuffer-map)
|
||||||
(unbind-key "S-SPC" ivy-minibuffer-map)))
|
(unbind-key "S-SPC" ivy-minibuffer-map)
|
||||||
|
(add-to-list 'ivy-completing-read-handlers-alist
|
||||||
|
'(org-capture . completing-read-default))))
|
||||||
|
|
||||||
(use-package counsel
|
(use-package counsel
|
||||||
:commands (counsel-org-goto-all
|
:commands (counsel-org-goto-all
|
||||||
|
@ -934,7 +947,8 @@ are assumed to be of the form *.crt."
|
||||||
counsel-recentf))
|
counsel-recentf))
|
||||||
|
|
||||||
(use-package swiper
|
(use-package swiper
|
||||||
:commands (swiper))
|
:commands (swiper
|
||||||
|
swiper-from-isearch))
|
||||||
|
|
||||||
(use-package recentf
|
(use-package recentf
|
||||||
:commands (recentf-mode recentf-save-list)
|
:commands (recentf-mode recentf-save-list)
|
||||||
|
@ -1049,7 +1063,8 @@ are assumed to be of the form *.crt."
|
||||||
(ansi-color-apply-on-region compilation-filter-start (point))))
|
(ansi-color-apply-on-region compilation-filter-start (point))))
|
||||||
|
|
||||||
(use-package ansi-color
|
(use-package ansi-color
|
||||||
:commands (ansi-color-for-comint-mode-on)
|
:commands (ansi-color-for-comint-mode-on
|
||||||
|
ansi-color-apply-to-region)
|
||||||
:config (progn
|
:config (progn
|
||||||
(add-hook 'compilation-filter-hook #'endless/colorize-compilation)))
|
(add-hook 'compilation-filter-hook #'endless/colorize-compilation)))
|
||||||
|
|
||||||
|
@ -1158,15 +1173,6 @@ are assumed to be of the form *.crt."
|
||||||
slime-completion-at-point-functions 'slime-fuzzy-complete-symbol)
|
slime-completion-at-point-functions 'slime-fuzzy-complete-symbol)
|
||||||
(add-hook 'slime-mode-hook 'slime-redirect-inferior-output)
|
(add-hook 'slime-mode-hook 'slime-redirect-inferior-output)
|
||||||
|
|
||||||
(defun db/slime-reload ()
|
|
||||||
(interactive)
|
|
||||||
(mapc 'load-library
|
|
||||||
(reverse (cl-remove-if-not
|
|
||||||
(lambda (feature) (string-prefix-p "slime" feature))
|
|
||||||
(mapcar 'symbol-name features))))
|
|
||||||
(setq slime-protocol-version (slime-changelog-date))
|
|
||||||
(load-slime))
|
|
||||||
|
|
||||||
(setq slime-lisp-implementations
|
(setq slime-lisp-implementations
|
||||||
'((sbcl ("sbcl") :coding-system utf-8-unix)
|
'((sbcl ("sbcl") :coding-system utf-8-unix)
|
||||||
(cmucl ("cmucl") :coding-system utf-8-unix)
|
(cmucl ("cmucl") :coding-system utf-8-unix)
|
||||||
|
|
Loading…
Reference in New Issue