feat(emacs): add download-file
interactive function
Signed-off-by: Lucas Sta Maria <lucas@priime.dev>
This commit is contained in:
parent
97f1e5dbec
commit
9949a4e45f
1 changed files with 9 additions and 0 deletions
|
@ -44,6 +44,15 @@
|
||||||
(url-copy-file (cdr f) (car f) t))
|
(url-copy-file (cdr f) (car f) t))
|
||||||
file-path-urls)))))
|
file-path-urls)))))
|
||||||
|
|
||||||
|
|
||||||
|
(defun download-file (&optional url filepath)
|
||||||
|
"Download the file from URL to FILEPATH."
|
||||||
|
(interactive)
|
||||||
|
(let* ((url (or url
|
||||||
|
(read-string "url: ")))
|
||||||
|
(filepath (or filepath (read-file-name "filename: "))))
|
||||||
|
(url-copy-file url filepath 1)))
|
||||||
|
|
||||||
;; LSP
|
;; LSP
|
||||||
(setq lsp-inlay-hint-enable t)
|
(setq lsp-inlay-hint-enable t)
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue