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

gist-from-region.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 ((fname-arg (concat "--filename " fname))
        (desc-arg  (concat "--desc " (shell-quote-argument desc)))
        (private-arg  (if private
                         "--public"
                       "")))
    (shell-command-on-region BEG END (format "gh gist create %s %s %s -"
                                             fname-arg
                                             desc-arg
                                             private-arg))))