[nongnu] elpa/annotate 8ac52808e8 226/372: - added a couple of functions to allow an user to change the file that

[ELPA Syncer]

branch: elpa/annotate
commit 8ac52808e82274b1a905200b06602e3d901f018f
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>

    - added a couple of functions to allow an user to change the file that
      contains the  database of annotation,  and reload all  the annotated
      buffers.
---
 annotate.el | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

diff --git a/annotate.el b/annotate.el
index e138fa924e..b690608e6d 100644
--- a/annotate.el
+++ b/annotate.el
@@ -2489,5 +2489,51 @@ annotation, like this:
 
 ;;;; end of filtering: parser, lexer, etc.
 
+;;;; switching database
+
+(defun annotate-buffers-annotate-mode ()
+ "Returns a list of all the buffers that have
+annotate minor mode active"
+  (let ((all-buffers (buffer-list)))
+    (cl-labels ((annotate-mode-p (buffer)
+                  (with-current-buffer buffer
+                    (and (boundp 'annotate-mode)
+                         annotate-mode))))
+      (cl-remove-if-not #'annotate-mode-p all-buffers))))
+
+(cl-defun annotate-switch-db (&optional (force-load nil))
+ "Ask the user for a new annotation database files, load it and
+refresh all the annotations contained in each buffer where
+annotate minor mode is active.
+
+If `force-load' is non nil no prompt asking user for confirmation
+about loading the new file is shown.
+
+Note: this function will attempt to load (compile and
+eval/execute) the content of the file as it was elisp source
+code, always use load files from trusted sources!"
+  (interactive)
+  (let ((new-db (read-file-name "Database file location: ")))
+    (when (not (annotate-string-empty-p new-db))
+      (if (file-exists-p new-db)
+          (let* ((confirm-message "Loading elisp file from untrusted source 
may results in severe security problems. Load %S? [y/N]")
+                 (load-file-confirmed (if force-load
+                                          t
+                                        (string= (read-from-minibuffer (format 
confirm-message
+                                                                               
new-db))
+                                                 "y"))))
+            (if load-file-confirmed
+                (progn
+                  (setf annotate-file new-db)
+                  (cl-loop for annotated-buffer in 
(annotate-buffers-annotate-mode) do
+                           (with-current-buffer annotated-buffer
+                             (annotate-with-inhibit-modification-hooks
+                              (annotate-mode -1)
+                              (annotate-mode  1)))))
+              (message "Load aborted by the user")))
+        (user-error (format "The file %S does not exists." new-db))))))
+
+;; end of switching database
+
 (provide 'annotate)
 ;;; annotate.el ends here