Fix some warnings
- Add dependency on org-mode in case I ever install this as a package. - Require org for `org-collect-keywords', `org-timestamp-to-time', `org-timestamp-from-string', and `org-html-export-as-html'. - Move definition of `tekuti-host' to before it's used. - Rename `args' to `_' to signify it's not used for anything.
This commit is contained in:
parent
0aee0a3631
commit
7b5322b313
1 changed files with 6 additions and 3 deletions
|
@ -4,6 +4,7 @@
|
||||||
|
|
||||||
;; Author: Tom Willemse <chelys@data>
|
;; Author: Tom Willemse <chelys@data>
|
||||||
;; Keywords: comm
|
;; Keywords: comm
|
||||||
|
;; Package-Requires: (org)
|
||||||
|
|
||||||
;; This program is free software; you can redistribute it and/or modify
|
;; This program is free software; you can redistribute it and/or modify
|
||||||
;; it under the terms of the GNU General Public License as published by
|
;; it under the terms of the GNU General Public License as published by
|
||||||
|
@ -39,6 +40,10 @@
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
|
(require 'org)
|
||||||
|
|
||||||
|
(defvar tekuti-host "http://127.0.0.1:8080")
|
||||||
|
|
||||||
(defun tekuti--format-date (date)
|
(defun tekuti--format-date (date)
|
||||||
"Format DATE into a date that tekuti understands."
|
"Format DATE into a date that tekuti understands."
|
||||||
(format-time-string "%a, %d %b %Y %H:%M:%S %Z"
|
(format-time-string "%a, %d %b %Y %H:%M:%S %Z"
|
||||||
|
@ -83,9 +88,7 @@
|
||||||
`(("Content-Type" . "application/x-www-form-urlencoded")))
|
`(("Content-Type" . "application/x-www-form-urlencoded")))
|
||||||
(url-request-data (tekuti-form-encode-data data)))
|
(url-request-data (tekuti-form-encode-data data)))
|
||||||
(url-retrieve (format "%s/admin/new-post" tekuti-host)
|
(url-retrieve (format "%s/admin/new-post" tekuti-host)
|
||||||
(lambda (status &rest args) (message "Finished: %s" status)))))
|
(lambda (status &rest _) (message "Finished: %s" status)))))
|
||||||
|
|
||||||
(defvar tekuti-host "http://127.0.0.1:8080")
|
|
||||||
|
|
||||||
(provide 'tekuti)
|
(provide 'tekuti)
|
||||||
;;; tekuti.el ends here
|
;;; tekuti.el ends here
|
||||||
|
|
Loading…
Reference in a new issue