1
0
Fork 0

Compare commits

...

2 Commits

Author SHA1 Message Date
cage 25c670d1e7 - added form to ensure asdf has been loaded when compiling the package. 2024-05-14 21:33:56 +02:00
cage 946e677acb - fixed some docstrings. 2024-05-14 19:53:30 +02:00
3 changed files with 9 additions and 7 deletions

View File

@ -96,6 +96,7 @@ dist_man1_MANS = doc/tinmop.man
$(PACKAGE): $(CONF_PATH_FILE) *.asd src/* $(PACKAGE): $(CONF_PATH_FILE) *.asd src/*
$(LISP_COMPILER) \ $(LISP_COMPILER) \
--eval "(require 'asdf)" \
--eval "(push \"$$(pwd)/\" asdf:*central-registry*)" \ --eval "(push \"$$(pwd)/\" asdf:*central-registry*)" \
--eval "(asdf:make '$(PACKAGE) :build-pathname \"../$(PACKAGE)\")" \ --eval "(asdf:make '$(PACKAGE) :build-pathname \"../$(PACKAGE)\")" \
--eval "(uiop:quit)" --eval "(uiop:quit)"

View File

@ -1118,6 +1118,7 @@ uninstall-man: uninstall-man1
$(PACKAGE): $(CONF_PATH_FILE) *.asd src/* $(PACKAGE): $(CONF_PATH_FILE) *.asd src/*
$(LISP_COMPILER) \ $(LISP_COMPILER) \
--eval "(require 'asdf)" \
--eval "(push \"$$(pwd)/\" asdf:*central-registry*)" \ --eval "(push \"$$(pwd)/\" asdf:*central-registry*)" \
--eval "(asdf:make '$(PACKAGE) :build-pathname \"../$(PACKAGE)\")" \ --eval "(asdf:make '$(PACKAGE) :build-pathname \"../$(PACKAGE)\")" \
--eval "(uiop:quit)" --eval "(uiop:quit)"

View File

@ -315,7 +315,7 @@ Returns nil if the user did not provided a server in the configuration file"
(tooter:unfollow-tag *client* tag-name)) (tooter:unfollow-tag *client* tag-name))
(defun-api-call get-followed-tags (&key max-id since-id min-id (limit 20)) (defun-api-call get-followed-tags (&key max-id since-id min-id (limit 20))
"Unfollow a tag" "get a list of tags object that the user follows"
(tooter:collect-all-pages *client* (tooter:collect-all-pages *client*
(tooter:followed-tags *client* (tooter:followed-tags *client*
:max-id max-id :max-id max-id