Simplify doom/report-bug

core/autoload/debug.el

@@ -301,34 +301,6 @@ to reproduce bugs and determine if Doom is to blame."
 ;;
 ;;; Reporting bugs
 
-(defun doom--report-bug ()
-  "TODO"
-  (interactive)
-  (let ((url "https://github.com/hlissner/doom-emacs/issues/new?body="))
-    ;; TODO Refactor me
-    (save-restriction
-      (widen)
-      (goto-char (point-min))
-      (re-search-forward "^-------------------------------------------------------------------\n" nil t)
-      (skip-chars-forward " \n\t")
-      (condition-case e
-          (progn
-            (save-excursion
-              (when (and (re-search-backward "\\+ [ ] " nil t)
-                         (not (y-or-n-p "You haven't checked all the boxes. Continue anyway?")))
-                (error "Aborted submit")))
-            (narrow-to-region (point) (point-max))
-            (let ((text (buffer-string)))
-              ;; `url-encode-url' doesn't encode ampersands
-              (setq text (replace-regexp-in-string "&" "%26" text))
-              (setq url (url-encode-url (concat url text)))
-              ;; HACK: encode some characters according to HTML URL Encoding Reference
-              ;; http://www.w3schools.com/tags/ref_urlencode.asp
-              (setq url (replace-regexp-in-string "#" "%23" url))
-              (setq url (replace-regexp-in-string ";" "%3B" url))
-              (browse-url url)))
-        (error (signal (car e) (car e)))))))
-
 ;;;###autoload
 (defun doom/report-bug ()
   "Open a markdown buffer destinated to populate the New Issue page on Doom
@@ -337,36 +309,7 @@ Emacs' issue tracker.
 If called when a backtrace buffer is present, it and the output of `doom-info'
 will be automatically appended to the result."
   (interactive)
-  ;; TODO Refactor me
+  (browse-url "https://github.com/hlissner/doom-emacs/issues/new/choose"))
-  (let ((backtrace
-         (when (get-buffer "*Backtrace*")
-           (with-current-buffer "*Backtrace*"
-             (string-trim
-              (buffer-substring-no-properties
-               (point-min)
-               (min (point-max) 1000))))))
-        (buf (get-buffer-create "*doom:sandbox*")))
-    (with-current-buffer buf
-      (erase-buffer)
-      (condition-case _ (gfm-mode)
-        (error (text-mode)))
-      (doom-template-insert "SUBMIT_BUG_REPORT")
-      (goto-char (point-max))
-      (let ((pos (point)))
-        (save-excursion
-          (insert
-           "\n" (doom-info) "\n"
-           (if (and backtrace (not (string-empty-p backtrace)))
-               (format "\n<details>\n<summary>Backtrace</summary>\n\n```\n%s\n```\n</details>\n"
-                       backtrace)
-             "")))
-        (local-set-key (kbd "C-c C-c") #'doom--report-bug)
-        (local-set-key (kbd "C-c C-k") #'kill-current-buffer)
-        (setq header-line-format "C-c C-c to submit / C-c C-k to close")
-        ;;
-        (narrow-to-region (point-min) pos)
-        (goto-char (point-min)))
-      (pop-to-buffer buf))))
 
 
 ;;