-download items section

Barely use it, useless for anything except *get* requests.
This commit is contained in:
oreodave
2019-11-01 02:30:57 +00:00
parent c48bd66136
commit 15b699e105

View File

@@ -310,24 +310,6 @@ in Doom, so I need this binding
:desc "Format code universally" "=" 'format-all-buffer) :desc "Format code universally" "=" 'format-all-buffer)
) )
#+END_SRC #+END_SRC
*** Download Items
#+BEGIN_SRC elisp
(defun oreodave/request-json-fn (url)
(set-process-sentinel
(start-process-shell-command "request-json" "*request-json*" (format "curl %s" url))
(lambda (process event)
(when (memq (process-status process) '(exit stop))
(message "Request finished")
(with-current-buffer "*request-json*"
(json-mode)
(json-mode-beautify))))))
(defun oreodave/request-json ()
(interactive)
(oreodave/request-json-fn (read-string "Enter url: "))
)
#+END_SRC
Download JSON easily and be able to get responses quickly.
*** Themes *** Themes
#+BEGIN_SRC elisp #+BEGIN_SRC elisp
(setq oreodave/aesthetics/list '(doom-molokai doom-peacock doom-solarized-dark)) (setq oreodave/aesthetics/list '(doom-molokai doom-peacock doom-solarized-dark))