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

- reorganized modules and scripts directories; 

- removed spurious NIL when writing a message.
This commit is contained in:
cage 2020-12-28 15:37:13 +01:00
parent 3549f9cd03
commit fb83d673f9
4 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Makefile.am
View File

@ -40,10 +40,11 @@ dist_doc_DATA = README.org README.txt LICENSES.org CONTRIBUTING.org \
confdir = $(sysconfdir)/$(PACKAGE)
dist_conf_DATA = etc/init.lisp etc/next-previous-open.lisp \
etc/default-theme.conf etc/shared.conf
dist_conf_DATA = etc/init.lisp etc/default-theme.conf etc/shared.conf
dist_pkgdata_DATA = modules/welcome-bot.lisp
dist_pkgdata_DATA = scripts/welcome-bot.lisp \
modules/next-previous-open.lisp \
modules/share-gemini-link.lisp
dist_man1_MANS = doc/tinmop.man
@ -57,7 +58,7 @@ $(CONF_PATH_FILE):
grep "^;" $(CONF_PATH_FILE_IN) > $(CONF_PATH_FILE)
echo -e "(in-package :config)\n" >> $(CONF_PATH_FILE);
echo "(alexandria:define-constant +sys-data-dir+" >> $(CONF_PATH_FILE);
echo -e "\""$(pkgdatadir)"/data/\" :test #'string=)\n" >> $(CONF_PATH_FILE);
echo -e "\"$(pkgdatadir)\" :test #'string=)\n" >> $(CONF_PATH_FILE);
echo "(alexandria:define-constant +sys-conf-dir+" >> $(CONF_PATH_FILE);
echo -e "\"$(confdir)\" :test #'string=)\n" >> $(CONF_PATH_FILE);

9
Makefile.in
View File

@ -397,10 +397,11 @@ dist_doc_DATA = README.org README.txt LICENSES.org CONTRIBUTING.org \
doc/man.org doc/send-toot.lisp NEWS.org ChangeLog
confdir = $(sysconfdir)/$(PACKAGE)
dist_conf_DATA = etc/init.lisp etc/next-previous-open.lisp \
etc/default-theme.conf etc/shared.conf
dist_conf_DATA = etc/init.lisp etc/default-theme.conf etc/shared.conf
dist_pkgdata_DATA = scripts/welcome-bot.lisp \
modules/next-previous-open.lisp \
modules/share-gemini-link.lisp
dist_pkgdata_DATA = modules/welcome-bot.lisp
dist_man1_MANS = doc/tinmop.man
all: $(BUILT_SOURCES)
$(MAKE) $(AM_MAKEFLAGS) all-recursive
@ -1041,7 +1042,7 @@ $(CONF_PATH_FILE):
grep "^;" $(CONF_PATH_FILE_IN) > $(CONF_PATH_FILE)
echo -e "(in-package :config)\n" >> $(CONF_PATH_FILE);
echo "(alexandria:define-constant +sys-data-dir+" >> $(CONF_PATH_FILE);
echo -e "\""$(pkgdatadir)"/data/\" :test #'string=)\n" >> $(CONF_PATH_FILE);
echo -e "\"$(pkgdatadir)\" :test #'string=)\n" >> $(CONF_PATH_FILE);
echo "(alexandria:define-constant +sys-conf-dir+" >> $(CONF_PATH_FILE);
echo -e "\"$(confdir)\" :test #'string=)\n" >> $(CONF_PATH_FILE);

0
etc/next-previous-open.lisp → modules/next-previous-open.lisp
View File

2
src/ui-goodies.lisp
View File

@ -993,7 +993,7 @@ Force the checking for new message in the thread the selected message belong."
:if-exists :append)
(write-sequence signature stream))))
(insert-header-text (file)
(when (string-not-empty-p file)
(when (string-not-empty-p message-header-text)
(with-open-file (stream file
:if-exists :append
:direction :output