For a list of known desired improvements in Sweep, see [[*Things to do][Things to do]].
-** Setting up sweep for local development
+** Setting up Sweep for local development
:PROPERTIES:
:CUSTOM_ID: development-setup
:DESCRIPTION: Instructions for preparing a local development environment for working on sweep
:PROPERTIES:
:CUSTOM_ID: submitting-patches
:DESCRIPTION: Commands for contacting the maintainers of this project
-:ALT_TITLE: Submitting Patches
+:ALT_TITLE: Bug Reports
:END:
-The best way to get in touch with the Sweep maintainers is via [[https://lists.sr.ht/~eshel/dev][the
-sweep mailing list]].
+The best way to get in touch with the Sweep maintainers is via [[https://lists.sr.ht/~eshel/dev][the Sweep
+mailing list]].
#+FINDEX: sweeprolog-submit-bug-report
-The command ~M-x sweeprolog-submit-bug-report~ can be used to easily
+- Command: sweeprolog-submit-bug-report :: Report a bug in Sweep to
+ the maintainers via mail.
+
+You can use the command ~M-x sweeprolog-submit-bug-report~ to easily
contact the Sweep maintainers from within Emacs. This command opens a
new buffer with a message template ready to be sent to the Sweep
mailing list.
"--"
[ "Reset Sweep" sweeprolog-restart t ]
[ "View Messages" sweeprolog-view-messages t ]
- [ "Read the Sweep Manual" sweeprolog-info-manual t]
- [ "Sweep News" sweeprolog-view-news t]))
+ [ "Read the Sweep Manual" sweeprolog-info-manual t ]
+ [ "Sweep News" sweeprolog-view-news t ]
+ [ "Report Bug" sweeprolog-submit-bug-report t ]))
;;;; Local variables
(concat (when mod (concat mod ":"))
fun ind (number-to-string ari)))))
+
+;;;; Bug Reports
+
+(defvar reporter-prompt-for-summary-p)
+
+(defun sweeprolog-submit-bug-report ()
+ "Report a bug in Sweep to the maintainers via mail."
+ (interactive)
+ (require 'reporter)
+ (let ((version
+ (with-current-buffer (find-file-noselect
+ (expand-file-name "sweeprolog.el"
+ sweeprolog--directory))
+ (package-get-version)))
+ (reporter-prompt-for-summary-p t))
+ (reporter-submit-bug-report
+ "Sweep Development <~eshel/dev@lists.sr.ht>"
+ (format "Sweep v%s" version)
+ '(sweeprolog--directory
+ sweeprolog--initialized
+ sweeprolog-init-args
+ sweeprolog-swipl-path
+ sweeprolog-libswipl-path
+ system-configuration-features)
+ nil nil
+ (propertize " "
+ 'display
+ (propertize
+ "Insert your bug report below.
+If possible, specify where you got Emacs, SWI-Prolog and Sweep,
+and include a recipe for reproducing your issue.
+[This line and the above text are not included in your report.]"
+ 'face 'italic)))))
+
;;;; Footer
(provide 'sweeprolog)