mirror of
https://github.com/vale981/cl-telegram-bot
synced 2025-03-05 09:41:39 -05:00
parent
3ccf8b8045
commit
fd4fef47f7
1 changed files with 4 additions and 1 deletions
|
@ -320,7 +320,10 @@
|
||||||
(make-request b "getFile" options)))
|
(make-request b "getFile" options)))
|
||||||
|
|
||||||
(defun download-file (b file-id)
|
(defun download-file (b file-id)
|
||||||
"Perform HTTP request to 'name API method with 'options JSON-encoded object."
|
"Get the path for a file from a file-id (see: get-file) and then
|
||||||
|
download it. Returns nil if the value of the http response code is
|
||||||
|
not success (200); otherwise it will returns three values: the
|
||||||
|
data, the http headers and the exension of the original file"
|
||||||
(with-package :cl-telegram-bot
|
(with-package :cl-telegram-bot
|
||||||
(let* ((file-spec (decode (get-file b file-id))))
|
(let* ((file-spec (decode (get-file b file-id))))
|
||||||
(with-ok-results (file-spec results)
|
(with-ok-results (file-spec results)
|
||||||
|
|
Loading…
Add table
Reference in a new issue