cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fixed type of value 'tag-names'; 

- fixed a couple of docstrings.
This commit is contained in:
cage 2023-10-14 13:13:52 +02:00
parent f393812207
commit a70b636d44
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/api-client.lisp
View File

@ -499,12 +499,12 @@ database."
(program-events:push-event event))) (program-events:push-event event)))
(defun-api-call get-remote-status (status-id) (defun-api-call get-remote-status (status-id)
"Get a single status identifird bu status-id" "Get a single status identified bu `status-id'"
(ignore-errors (ignore-errors
(tooter:find-status *client* status-id))) (tooter:find-status *client* status-id)))
(defun-api-call get-status-context (status-id) (defun-api-call get-status-context (status-id)
"Get a parent and a child of a status (identified by status-id), if exists" "Get a parent and a child of a status (identified by `status-id'), if exists"
(tooter:context *client* status-id)) (tooter:context *client* status-id))
(defun-api-call send-status (content (defun-api-call send-status (content

2
src/db.lisp
View File

@ -1282,7 +1282,7 @@ than (swconf:config-purge-history-days-offset) days in the past"
(actual-application (prepare-for-db application)) (actual-application (prepare-for-db application))
(tag-names (if tags (tag-names (if tags
(mapcar #'client:tag-name tags) (mapcar #'client:tag-name tags)
"")) '()))
(actual-tags (concat-tags object)) (actual-tags (concat-tags object))
(actual-language (prepare-for-db language)) (actual-language (prepare-for-db language))
;; use string-downcase as a workaround because tooter return an upcased keyword ;; use string-downcase as a workaround because tooter return an upcased keyword