cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-14 22:54:02 +01:00
Code Issues

- wrapped function in '(eval-when..'.

Browse Source 
- updated/fixed Changelog.
This commit is contained in:
cage 2021-07-26 16:29:58 +02:00
parent c538bd1c0c
commit a27ce92df3
2 changed files with 32 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
ChangeLog
View File

@ -1,3 +1,22 @@
2021-07-25 cage
* src/complete.lisp,
* src/constants.lisp,
* src/gemini-viewer.lisp,
* src/gemini-viewer.lisp,
* src/main-window.lisp,
* ChangeLog,
* etc/shared.conf,
* src/command-window.lisp,
* src/software-configuration.lisp:
- suppressed printing of three notes;
- [gemini] added "no wait" directive when downloading non gemini
text format from gemini: allow opening file before it is downloaded completely;
- revert to old completion method for non URI;
- added type declaration to remove optimization note;
- updated Changelog.
2021-07-23 cage 2021-07-23 cage
* src/command-window.lisp, * src/command-window.lisp,
@ -35,13 +54,13 @@
* src/text-utils.lisp, * src/text-utils.lisp,
* src/tui-utils.lisp: * src/tui-utils.lisp:
- removed empty lines; - removed empty lines in sources;
- [gemini] changed streaming animation; - [gemini] changed streaming animation;
- [gemini] allowed open gemini links from gemlog subscription - [gemini] allowed open gemini links from gemlog subscription
window; window;
- highlighted a mit more matched characters in 'suggestion-window'; - highlighted a bit more matched characters in 'suggestion-window';
- fixed padding when fitting suggestions into 'suggestion-win'. - fixed padding when fitting suggestions into 'suggestion-win'.
- allowed selecting a suggestion from suggestion-window; - - allowed selecting a suggestion from suggestion-window; -
highlighted matching characters in suggestion window. highlighted matching characters in suggestion window.
2021-07-17 cage 2021-07-17 cage
@ -59,8 +78,8 @@
- [gemini] removed link prefix for link labels that starts with an - [gemini] removed link prefix for link labels that starts with an
emoji; emoji;
- [gemini] removed splitting of long link labels; - fixed output - [gemini] removed splitting of long link labels;
stream of 'print-debug'. - fixed output stream of 'print-debug'.
2021-07-16 cage 2021-07-16 cage
@ -136,7 +155,7 @@
* src/gemini-viewer.lisp: * src/gemini-viewer.lisp:
- used TAB to move to next unread message; - used TAB to move to next unread message;
- remved the BOM from a gemini text stream. - remvod the BOM from a gemini text stream.
2021-07-06 cage 2021-07-06 cage

11
src/constants.lisp
View File

@ -16,11 +16,12 @@
(in-package :constants) (in-package :constants)
(defun actual-program-name () (eval-when (:compile-toplevel :load-toplevel :execute)
(declare (sb-ext:muffle-conditions sb-ext:compiler-note)) (defun actual-program-name ()
(if (string= +program-name+ "tinmop") (declare (sb-ext:muffle-conditions sb-ext:compiler-note))
"tinmop" (if (string= +program-name+ "tinmop")
(format nil "~a (original name: \"tinmop\")" +program-name+))) "tinmop"
(format nil "~a (original name: \"tinmop\")" +program-name+))))
(define-constant +help-about-message+ (define-constant +help-about-message+
(format nil (format nil