sage
/
pebblisp
1
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correct FORCE_TEXT

This commit is contained in:
= 2021-07-21 20:48:41 +01:00
parent 58f73bc0f8
commit 2cbe610b95
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/calc.c
View File

@ -258,16 +258,20 @@ static void code_click_subscribe(void *context)
} }
#ifdef LOW_MEM #ifdef LOW_MEM
#define DISPLAY_LINE " (hrt) \":\" (mnt))\n" #define TIME_FUNC \
"(def time (fn ()(utl tt \n"\
" (cat \"Hey, it's \" \n"\
" (hrt) \":\" (mnt)\n" \
"))))\n"
#else #else
#define DISPLAY_LINE " (hrt) \":\" (if (> 10 (mnt)) \"0\" \"\") (mnt))\n" #define TIME_FUNC \
"(def time (fn () ((def m (mnt)) (utl tt \n"\
" (cat \"Hey, it's \"\n"\
" (hrt) \":\" (if (< m 10) \"0\" \"\") m)\n"\
"))))\n"
#endif #endif
#define FORCE_TEXT \ #define FORCE_TEXT TIME_FUNC \
"(def time (fn () (utl tt \n"\
" (cat \"Hey, it's \" \n"\
DISPLAY_LINE \
")))\n" \
"(def ww (cw))\n" \ "(def ww (cw))\n" \
"(def tt (atl ww \":\"))\n" \ "(def tt (atl ww \":\"))\n" \
"(pw ww)\n" \ "(pw ww)\n" \