Create a gist from a given region interactively. Depends on the `gh` command line interface. Now Async

gist-from-region-v2.el

(defun gist-from-region (BEG END fname desc &optional private)
  "Collect the current region creating a github gist with the
filename FNAME and description DESC.
If the opitonal argument PRIVATE is non-nil then the gist will be
made private. Otherwise the gist will be default to public"
  (interactive (list (mark) (point)
                     (read-string "File Name: ")
                     (read-string "Description: ")
                     current-prefix-arg))
  (let ((proc (make-process :name "Gist Creation"
                            :buffer "*Gist URL*"
                            :command (cl-remove :skip
                                                (list "gh"
                                                      "gist"
                                                      "create"
                                                      "--filename" fname
                                                      "--desc" desc
                                                      (if private
                                                          :skip
                                                        "--public")
                                                      "-"))))
        (sentenel (lambda (process event)
                    "Listens for process finish and prints the gist's URL"
                    (when (string-match "finis.*" event)
                      (with-current-buffer (process-buffer process)
                        (goto-char (point-max))
                        (let (line (string-trim (thing-at-point 'line)))
                          (message (format
                                    "Gist for file %s created at %s"
                                    fname
                                    line))))))))

    (set-process-sentinel proc sentenel)
    (process-send-string proc (buffer-substring BEG END))
    (process-send-eof proc)
    (process-send-eof proc)))