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)))
|
||||
|
||||
(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
|
||||
(let* ((file-spec (decode (get-file b file-id))))
|
||||
(with-ok-results (file-spec results)
|
||||
|
|
Loading…
Add table
Reference in a new issue