[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/sweeprolog 6f7aa88050 100/166: ENHANCED: (sweep-load-buffe
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/sweeprolog 6f7aa88050 100/166: ENHANCED: (sweep-load-buffer): report results |
Date: |
Fri, 30 Sep 2022 04:59:29 -0400 (EDT) |
branch: elpa/sweeprolog
commit 6f7aa880509f414072f42cb384c7089b5413d521
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>
ENHANCED: (sweep-load-buffer): report results
---
sweep.el | 17 +++++++----------
1 file changed, 7 insertions(+), 10 deletions(-)
diff --git a/sweep.el b/sweep.el
index a4b7b59964..0a743c104d 100644
--- a/sweep.el
+++ b/sweep.el
@@ -212,7 +212,7 @@ FLAG and VALUE are specified as strings and read as Prolog
terms."
(sweep-close-query)
(if (sweep-true-p sol)
(message "Prolog flag %s set to %s" flag value)
- (user-error "Setting %s to %s failed" flag value))))
+ (user-error "Setting %s to %s failed!" flag value))))
(defun sweep-setup-message-hook ()
(with-current-buffer (get-buffer-create sweep-messages-buffer-name)
@@ -471,7 +471,7 @@ module name, F is a functor name and N is its arity."
(sweep-close-query)
(if (sweep-true-p sol)
(message "Package install successful.")
- (user-error "Pacakge installation failed"))))
+ (user-error "Pacakge installation failed!"))))
;; (defun sweep-file-handler (operation &rest args)
;; (cond ((eq operation 'expand-file-name) (apply sweep-expand-file-name
args) )
@@ -896,7 +896,9 @@ buffer to load."
(cons contents (buffer-file-name)))
(let ((sol (sweep-next-solution)))
(sweep-close-query)
- sol))))
+ (if (sweep-true-p sol)
+ (message "Loaded %s." (buffer-name))
+ (user-error "Loading %s failed!" (buffer-name)))))))
;;;###autoload
(defun sweep-top-level (&optional buffer)
@@ -967,6 +969,7 @@ Interactively, a prefix arg means to prompt for BUFFER."
(define-key map "m" #'sweep-find-module)
(define-key map "p" #'sweep-find-predicate)
(define-key map "t" #'sweep-top-level)
+ (define-key map "l" #'sweep-load-buffer)
(define-key map "P" #'sweep-pack-install)
(define-key map "F" #'sweep-set-prolog-flag)
(define-key map "e" #'sweep-view-messages)
@@ -1065,18 +1068,12 @@ Interactively, a prefix arg means to prompt for BUFFER."
(defvar sweep-mode-map
(let ((map (make-sparse-keymap)))
-;; (define-key map (kbd "C-c C-l") #'sweep-load-buffer)
+ (define-key map (kbd "C-c C-l") #'sweep-load-buffer)
(define-key map (kbd "C-c C-c") #'sweep-colourise-buffer)
(define-key map (kbd "C-c C-t") #'sweep-top-level)
map)
"Keymap for `sweep-mode'.")
-;; (defvar-keymap sweep-mode-map
-;; :doc "Keymap for `sweep-mode'."
-;; ;;"C-c C-l" #'sweep-load-buffer
-;; "C-c C-c" #'sweep-colourise-buffer
-;; "C-c C-t" #'sweep-top-level)
-
(defun sweep-indent-line ()
(interactive)
(when-let ((pos (- (point-max) (point)))
- [nongnu] elpa/sweeprolog 586521712e 110/166: DOC: README.org: add ^:{} option, (continued)
- [nongnu] elpa/sweeprolog 586521712e 110/166: DOC: README.org: add ^:{} option, ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog 0b545cc192 114/166: ADDED: (sweep-indent-line-ends-with-prefix-operator): New function, ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog c60df8e7e3 101/166: DOC: Loading buffers: new section, ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog 4c1e510bbf 125/166: FIXED: handle some more color terms, ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog 588cfb0f63 130/166: BUILD: Inline sweep.h in sweep.c, ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog 12bddb3f75 117/166: ENHANCED: don't record one-character inputs in the top level history, ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog f82827fdb0 093/166: ENHANCED: Display message if unable to find predicate location, ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog 0f1119fb75 118/166: FIXED: indentation after with inline comments, ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog f9218dc461 123/166: PORT: use (eql sweep) instead of (eql 'sweep) in cl-defmethods..., ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog 0db900634f 120/166: DOC: update commentary section in sweep.el, ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog 6f7aa88050 100/166: ENHANCED: (sweep-load-buffer): report results,
ELPA Syncer <=
- [nongnu] elpa/sweeprolog 12fbadf13b 137/166: sweep.el: remove outdated sweep--compile-module function, ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog c6066eabb9 144/166: ADDED: support imenu in sweep-mode buffers, ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog 8179cb4204 135/166: FIXED: qualify calls to sweep_funcall/2, ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog 7085c2e830 142/166: ADDED: sweep-mode: make sexp-based commands work on Prolog terms, ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog 6434715829 149/166: FIXED: use a more robust mechanism for finding sweep-module, ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog 69be982c41 150/166: FIXED: don't rely on string-lines added in Emacs 28.1, ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog 3e6fae1244 146/166: DOC: fix typos in README.org, ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog 6517af47b3 134/166: FIXED: sweep-init-args separate arguments, ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog 24a1e14ee9 151/166: MODIFIED: Breaking change: rename sweep.el to sweeprolog.el..., ELPA Syncer, 2022/09/30
- [nongnu] elpa/sweeprolog 13c7551015 156/166: ENHANCED: only fontify visible sweeprolog-mode buffers on idle, ELPA Syncer, 2022/09/30