This commit is contained in:
Ivan Malison 2015-11-23 00:38:52 -08:00
parent 161f82949e
commit 4147b16824

View File

@ -47,13 +47,14 @@
;; ============================================================================= ;; =============================================================================
;; These silence the byte compiler. ;; These silence the byte compiler.
(defvar ido-cur-item nil) (defvar ido-cur-item nil
(defvar ido-default-item nil) ido-default-item nil
(defvar ido-context-switch-command nil) ido-context-switch-command nil
(defvar ido-cur-list nil) ido-cur-list nil
(defvar inherit-input-method nil) inherit-input-method nil
(defvar grep-find-ignored-files nil) grep-find-ignored-files nil
(defvar grep-find-ignored-directories nil) grep-find-ignored-directories nil
tls-checktrust nil)
;; ============================================================================= ;; =============================================================================
;; Security ;; Security
@ -62,14 +63,14 @@
(defvar imalison:secure t) (defvar imalison:secure t)
(defun imalison:use-https-and-tls () (defun imalison:use-https-and-tls ()
(setq tls-checktrust t) (defvar-setq tls-checktrust t)
(let ((trustfile (let ((trustfile
(replace-regexp-in-string (replace-regexp-in-string
"\\\\" "/" "\\\\" "/"
(replace-regexp-in-string (replace-regexp-in-string
"\n" "" "\n" ""
(shell-command-to-string "python -m certifi"))))) (shell-command-to-string "python -m certifi")))))
(setq tls-program (defvar-setq tls-program
(list (list
(format "gnutls-cli%s --x509cafile %s -p %%p %%h" (format "gnutls-cli%s --x509cafile %s -p %%p %%h"
(if (eq window-system 'w32) ".exe" "") trustfile))))) (if (eq window-system 'w32) ".exe" "") trustfile)))))