gist-create-from-region.el

(defun gist/create-from-region (start end)
    (interactive "r")
    (setq contents (buffer-substring start end))
    (setq new-file-name
        (read-string "Enter filename: "))
    (setq visibility (ivy-completing-read "Specify gist's visibility: " '("public" "secret")))
    (write-region start end new-file-name)
    (shell-command (format "gh gist create %s --%s" new-file-name visibility))
    (delete-file new-file-name))