cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-06-05 01:09:17 +02:00
Code Issues Activity

- fixed regex for percent numbering;

Browse Source 
- formatted as floating points votes percentage in polls.
This commit is contained in:
cage
2020-07-13 17:27:46 +02:00
parent 923cd09d15
commit 562d023b55
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
etc/shared.conf
View File

@@ -69,7 +69,7 @@ color-regexp = "(?i)(\\(c\\))|(\\(r\\))" #ff0000 bold
color-regexp = "[0-9]{4}-[0-9]?[0-9]-[0-9]?[0-9]" #0000ff bold color-regexp = "[0-9]{4}-[0-9]?[0-9]-[0-9]?[0-9]" #0000ff bold
color-regexp = "-?[0-9]+%" #ff00ff bold color-regexp = "-?[0-9]+(.[0-9]+)?%" #ff00ff bold
color-regexp = "\*[^*]+\*" #ffff00 bold color-regexp = "\*[^*]+\*" #ffff00 bold

2
src/message-rendering-utils.lisp
View File

@@ -263,7 +263,7 @@
(/ (db:row-votes-count option) (/ (db:row-votes-count option)
vote-sum) vote-sum)
(error () 0))) (error () 0)))
(vote (left-padding (format nil "~a%" (* 100 rate)) 4)) (vote (left-padding (format nil "~f%" (* 100 rate)) 4))
(bar-w (truncate (* rate max-bar-width)))) (bar-w (truncate (* rate max-bar-width))))
(format stream "~a~a " padded-index padded-title) (format stream "~a~a " padded-index padded-title)
(loop for i from 0 below bar-w do (loop for i from 0 below bar-w do

2
src/message-window.lisp
View File

@@ -67,7 +67,7 @@
(loop for re in color-re do (loop for re in color-re do
(setf res (colorize-line res re))) (setf res (colorize-line res re)))
(colorized-line->tui-string res))))) (colorized-line->tui-string res)))))
(setf (rows object) (setf (rows object)
(mapcar (lambda (text-line) (mapcar (lambda (text-line)
(make-instance 'line (make-instance 'line
:normal-text text-line)) :normal-text text-line))