* net/browse-url.el (browse-url):
[emacs.git] / lisp / epa-hook.el
blobcd3da93b0da3c94517a069b5ceec66abcad462cc
1 ;;; epa-hook.el --- preloaded code to enable epa-file.el -*- lexical-binding: t -*-
2 ;; Copyright (C) 2006-2014 Free Software Foundation, Inc.
4 ;; Author: Daiki Ueno <ueno@unixuser.org>
5 ;; Keywords: PGP, GnuPG
6 ;; Package: emacs
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software: you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation, either version 3 of the License, or
13 ;; (at your option) any later version.
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
23 ;;; Code:
25 (defgroup epa-file nil
26 "The EasyPG Assistant hooks for transparent file encryption"
27 :version "23.1"
28 :group 'epa)
30 (defun epa-file--file-name-regexp-set (variable value)
31 (set-default variable value)
32 (if (fboundp 'epa-file-name-regexp-update)
33 (epa-file-name-regexp-update)))
35 (defcustom epa-file-name-regexp (purecopy "\\.gpg\\(~\\|\\.~[0-9]+~\\)?\\'")
36 "Regexp which matches filenames to be encrypted with GnuPG.
38 If you set this outside Custom while epa-file is already enabled, you
39 have to call `epa-file-name-regexp-update' after setting it to
40 properly update file-name-handler-alist. Setting this through Custom
41 does that automatically."
42 :type 'regexp
43 :group 'epa-file
44 :set 'epa-file--file-name-regexp-set)
46 (defcustom epa-file-inhibit-auto-save t
47 "If non-nil, disable auto-saving when opening an encrypted file."
48 :type 'boolean
49 :group 'epa-file)
51 (defvar epa-file-encrypt-to nil
52 "Recipient(s) used for encrypting files.
53 May either be a string or a list of strings.")
55 (put 'epa-file-encrypt-to 'safe-local-variable
56 #'(lambda (val)
57 (or (stringp val)
58 (and (listp val)
59 (catch 'safe
60 (mapc (lambda (elt)
61 (unless (stringp elt)
62 (throw 'safe nil)))
63 val)
64 t)))))
66 (put 'epa-file-encrypt-to 'permanent-local t)
68 (defvar epa-file-handler
69 (cons epa-file-name-regexp 'epa-file-handler))
71 (defvar epa-file-auto-mode-alist-entry
72 (list epa-file-name-regexp nil 'epa-file))
74 (defun epa-file-name-regexp-update ()
75 (interactive)
76 (unless (equal (car epa-file-handler) epa-file-name-regexp)
77 (setcar epa-file-handler epa-file-name-regexp)))
79 (defun epa-file-find-file-hook ()
80 (if (and buffer-file-name
81 (string-match epa-file-name-regexp buffer-file-name)
82 epa-file-inhibit-auto-save)
83 (auto-save-mode 0)))
85 (define-minor-mode auto-encryption-mode
86 "Toggle automatic file encryption/decryption (Auto Encryption mode).
87 With a prefix argument ARG, enable Auto Encryption mode if ARG is
88 positive, and disable it otherwise. If called from Lisp, enable
89 the mode if ARG is omitted or nil."
90 :global t :init-value t :group 'epa-file :version "23.1"
91 ;; We'd like to use custom-initialize-set here so the setup is done
92 ;; before dumping, but at the point where the defcustom is evaluated,
93 ;; the corresponding function isn't defined yet, so
94 ;; custom-initialize-set signals an error.
95 :initialize 'custom-initialize-delay
96 (setq file-name-handler-alist
97 (delq epa-file-handler file-name-handler-alist))
98 (remove-hook 'find-file-hooks 'epa-file-find-file-hook)
99 (setq auto-mode-alist (delq epa-file-auto-mode-alist-entry
100 auto-mode-alist))
101 (when auto-encryption-mode
102 (setq file-name-handler-alist
103 (cons epa-file-handler file-name-handler-alist))
104 (add-hook 'find-file-hook 'epa-file-find-file-hook)
105 (setq auto-mode-alist (cons epa-file-auto-mode-alist-entry
106 auto-mode-alist))))
108 (put 'epa-file-handler 'safe-magic t)
109 (put 'epa-file-handler 'operations '(write-region insert-file-contents))
111 (provide 'epa-hook)
113 ;;; epa-hook.el ends here