unofficial mirror of guix-patches@gnu.org 
 help / color / mirror / code / Atom feed
blob 794489b671c78de88ed26697109f057b2929944f 2449 bytes (raw)
name: etc/guix-debbugs.el 	 # note: path name is non-authoritative(*)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
;;; package --- Summary -*- lexical-binding: t; -*-
;;; guix-debbugs.el Helpful Debbugs Functions for guix
;;
;; Copyright (C) 2022 Joshua Branson
;;
;; Author: Joshua Branson <jbranso@dismail.de>
;; Maintainer: Joshua Branson <jbranso@dismail.de>
;; Created: August 04, 2022
;; Modified: August 04, 2022
;; Version: 0.0.1
;; Keywords: guix debbugs
;; Homepage: https://git.savannah.gnu.org/git/guix.git
;; Package-Requires: ((emacs "24.3"))
;;
;; This file is not part of GNU Emacs.
;;
;;; Commentary:
;;
;; The debbugs functions are a little awkward to use.  This file provides
;; better and easier to use functions for the guix project.  Specifically it
;; provides two new functions:
;;
;; M-x debbugs-guix-search to search for guix bugs
;; M-x debbugs-my-open-bugs to search for my open bug reports.
;; M-x debbugs-get-buy-by-id to open a specific bug by its ID.
;;
;;; Code:

;; setting up debbugs
(require 'debbugs-autoloads)

;; Users need to set up send-mail-function.  Otherwise "C" in debbugs-gnu-mode WILL NOT work.
;; eg:
;;
;;     (setq user-mail-address "awesomecoder@gnu.org")
;;     (load-file "~/src/guix/etc/guix-debbugs.el")
;;     (setq message-send-mail-function 'smtpmail-send-it
;;           smtpmail-smtp-user user-mail-address
;;           ;; customize this variable to suit your smtp email server.
;;           smtpmail-smtp-server "smtp.gnu.org"
;;           ;; customize this variable to suit your email server's port.
;;           smtpmail-smtp-service 587)

;; TODO make this by default only search open bugs AND NOT closed bugs.
(defun debbugs-guix-search ()
  (interactive)
  (debbugs-gnu-search (read-string "Search String: ") nil nil '("guix" "guix-patches") nil))

;; the bugs that I submitted and that are still open
;; The debbugs database runs once a day.  So after I send a bug report
;; and run this command, my latest bug report might not be here.  No worries,
;; just wait one day, and it will be there.  :)
;;
;; I have noticed that this function works 80% of the time.  But after I close bug reports,
;; it seems to stop working for about 1/2 hour.  I'm guessing the server's database
;; resets itself after every time that I close a bug report...
(defun debbugs-my-open-bugs ()
  (require 'debbugs)
  (interactive)
  (apply #'debbugs-gnu-bugs (debbugs-get-bugs :submitter "me" :status "open")))

(defalias 'debbugs-get-bug-by-id 'debbugs-gnu-bugs)

(provide 'guix-debbugs)
;;; guix-debbugs.el ends here

debug log:

solving 794489b671 ...
found 794489b671 in https://yhetil.org/guix-patches/20220805012310.5999-1-jbranso@dismail.de/

applying [1/1] https://yhetil.org/guix-patches/20220805012310.5999-1-jbranso@dismail.de/
diff --git a/etc/guix-debbugs.el b/etc/guix-debbugs.el
new file mode 100644
index 0000000000..794489b671

Checking patch etc/guix-debbugs.el...
Applied patch etc/guix-debbugs.el cleanly.

index at:
100644 794489b671c78de88ed26697109f057b2929944f	etc/guix-debbugs.el

(*) Git path names are given by the tree(s) the blob belongs to.
    Blobs themselves have no identifier aside from the hash of its contents.^

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).