[Utils] Move top-level helper functions from init.el to db-utils.el
This commit is contained in:
parent
6f7c3edb60
commit
d1df3ad3bb
40
init.el
40
init.el
|
@ -512,6 +512,11 @@
|
||||||
db/hex-to-ascii
|
db/hex-to-ascii
|
||||||
db/ascii-to-hex
|
db/ascii-to-hex
|
||||||
conditionally-enable-lispy
|
conditionally-enable-lispy
|
||||||
|
db/sort-nsm-permanent-settings
|
||||||
|
db/update-cert-file-directory
|
||||||
|
endless/colorize-compilation
|
||||||
|
db/add-use-package-to-imenu
|
||||||
|
db/turn-off-local-electric-pair-mode
|
||||||
db/export-diary
|
db/export-diary
|
||||||
db/add-symbols-to-TeX-input-method
|
db/add-symbols-to-TeX-input-method
|
||||||
hydra-ispell/body
|
hydra-ispell/body
|
||||||
|
@ -1197,29 +1202,12 @@
|
||||||
:config (advice-add 'nsm-write-settings
|
:config (advice-add 'nsm-write-settings
|
||||||
:before #'db/sort-nsm-permanent-settings))
|
:before #'db/sort-nsm-permanent-settings))
|
||||||
|
|
||||||
(defun db/sort-nsm-permanent-settings ()
|
|
||||||
"Sort values in `nsm-permanent-host-settings’."
|
|
||||||
(setq nsm-permanent-host-settings
|
|
||||||
(cl-sort nsm-permanent-host-settings
|
|
||||||
#'string<
|
|
||||||
:key #'second)))
|
|
||||||
|
|
||||||
(use-package gnutls
|
(use-package gnutls
|
||||||
:defer t
|
:defer t
|
||||||
:init (setq gnutls-log-level 0 ; too noisy otherwise
|
:init (setq gnutls-log-level 0 ; too noisy otherwise
|
||||||
gnutls-min-prime-bits 1024
|
gnutls-min-prime-bits 1024
|
||||||
gnutls-verify-error t))
|
gnutls-verify-error t))
|
||||||
|
|
||||||
(defun db/update-cert-file-directory (symbol new-value)
|
|
||||||
"Set SYMBOL to NEW-VALUE and add all certificate in it to `gnutls-trustfiles’.
|
|
||||||
|
|
||||||
Assumes that NEW-VALUE points to a directory, and certificates
|
|
||||||
are assumed to be of the form *.crt."
|
|
||||||
(set symbol new-value)
|
|
||||||
(when (file-directory-p new-value)
|
|
||||||
(dolist (cert-file (directory-files new-value t ".crt$"))
|
|
||||||
(add-to-list 'gnutls-trustfiles cert-file))))
|
|
||||||
|
|
||||||
(defcustom db/cert-file-directory "~/.local/etc/certs/"
|
(defcustom db/cert-file-directory "~/.local/etc/certs/"
|
||||||
"Local directory with additional certificates."
|
"Local directory with additional certificates."
|
||||||
:group 'personal-settings
|
:group 'personal-settings
|
||||||
|
@ -1680,12 +1668,6 @@ are assumed to be of the form *.crt."
|
||||||
|
|
||||||
(add-hook 'term-mode-hook (lambda () (yas-minor-mode -1)))))
|
(add-hook 'term-mode-hook (lambda () (yas-minor-mode -1)))))
|
||||||
|
|
||||||
;; http://endlessparentheses.com/ansi-colors-in-the-compilation-buffer-output.html
|
|
||||||
(defun endless/colorize-compilation ()
|
|
||||||
"Colorize from `compilation-filter-start' to `point'."
|
|
||||||
(let ((inhibit-read-only t))
|
|
||||||
(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-on-region)
|
ansi-color-apply-on-region)
|
||||||
|
@ -1782,13 +1764,6 @@ are assumed to be of the form *.crt."
|
||||||
(add-hook 'ielm-mode-hook 'eldoc-mode)
|
(add-hook 'ielm-mode-hook 'eldoc-mode)
|
||||||
(add-hook 'emacs-lisp-mode-hook 'eldoc-mode)))
|
(add-hook 'emacs-lisp-mode-hook 'eldoc-mode)))
|
||||||
|
|
||||||
(defun db/add-use-package-to-imenu ()
|
|
||||||
"Add `use-package’ statements to `imenu-generic-expression."
|
|
||||||
(add-to-list 'imenu-generic-expression
|
|
||||||
'("Used Packages"
|
|
||||||
"\\(^\\s-*(use-package +\\)\\(\\_<.+\\_>\\)"
|
|
||||||
2)))
|
|
||||||
|
|
||||||
(use-package geiser
|
(use-package geiser
|
||||||
:commands (geiser-mode))
|
:commands (geiser-mode))
|
||||||
|
|
||||||
|
@ -2064,11 +2039,6 @@ are assumed to be of the form *.crt."
|
||||||
(add-to-list 'electric-pair-pairs '(?„ . ?“))
|
(add-to-list 'electric-pair-pairs '(?„ . ?“))
|
||||||
(add-to-list 'electric-pair-text-pairs '(?„ . ?“))))
|
(add-to-list 'electric-pair-text-pairs '(?„ . ?“))))
|
||||||
|
|
||||||
(defun db/turn-off-local-electric-pair-mode ()
|
|
||||||
"Locally turn off electric pair mode."
|
|
||||||
(interactive)
|
|
||||||
(electric-pair-local-mode -1))
|
|
||||||
|
|
||||||
(use-package expand-region
|
(use-package expand-region
|
||||||
:commands (er/expand-region))
|
:commands (er/expand-region))
|
||||||
|
|
||||||
|
|
|
@ -199,6 +199,41 @@ lispy."
|
||||||
(eq this-command 'pp-eval-expression)))
|
(eq this-command 'pp-eval-expression)))
|
||||||
(lispy-mode 1)))
|
(lispy-mode 1)))
|
||||||
|
|
||||||
|
(defun db/sort-nsm-permanent-settings ()
|
||||||
|
"Sort values in `nsm-permanent-host-settings’."
|
||||||
|
(setq nsm-permanent-host-settings
|
||||||
|
(cl-sort nsm-permanent-host-settings
|
||||||
|
#'string<
|
||||||
|
:key #'second)))
|
||||||
|
|
||||||
|
(defun db/update-cert-file-directory (symbol new-value)
|
||||||
|
"Set SYMBOL to NEW-VALUE and add all certificate in it to `gnutls-trustfiles’.
|
||||||
|
|
||||||
|
Assumes that NEW-VALUE points to a directory, and certificates
|
||||||
|
are assumed to be of the form *.crt."
|
||||||
|
(set symbol new-value)
|
||||||
|
(when (file-directory-p new-value)
|
||||||
|
(dolist (cert-file (directory-files new-value t ".crt$"))
|
||||||
|
(add-to-list 'gnutls-trustfiles cert-file))))
|
||||||
|
|
||||||
|
(defun endless/colorize-compilation ()
|
||||||
|
"Colorize from `compilation-filter-start' to `point'."
|
||||||
|
;; http://endlessparentheses.com/ansi-colors-in-the-compilation-buffer-output.html
|
||||||
|
(let ((inhibit-read-only t))
|
||||||
|
(ansi-color-apply-on-region compilation-filter-start (point))))
|
||||||
|
|
||||||
|
(defun db/add-use-package-to-imenu ()
|
||||||
|
"Add `use-package’ statements to `imenu-generic-expression."
|
||||||
|
(add-to-list 'imenu-generic-expression
|
||||||
|
'("Used Packages"
|
||||||
|
"\\(^\\s-*(use-package +\\)\\(\\_<.+\\_>\\)"
|
||||||
|
2)))
|
||||||
|
|
||||||
|
(defun db/turn-off-local-electric-pair-mode ()
|
||||||
|
"Locally turn off electric pair mode."
|
||||||
|
(interactive)
|
||||||
|
(electric-pair-local-mode -1))
|
||||||
|
|
||||||
|
|
||||||
;;; helm configuration
|
;;; helm configuration
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue