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

- forsed refresh of conversation window when change conversation's name; 

- fixed sn italian translation sentence;
- fixed typo.
This commit is contained in:
cage 2020-05-10 19:19:35 +02:00
parent 0cae9364c3
commit 0ee9393478
4 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
etc/init.lisp
View File

@ -272,6 +272,8 @@
;; conversations keymap
(define-key "C-c c" #'change-conversation-name *conversations-keymap*)
(define-key "C-J" #'goto-conversation *conversations-keymap*)
(define-key "up" #'conversation-go-up *conversations-keymap*)

4
po/it.po
View File

@ -9,7 +9,7 @@ msgstr ""
"Project-Id-Version: tinmop 0.0.1\n"
"Report-Msgid-Bugs-To: https://notabug.org/cage/tinmop/\n"
"POT-Creation-Date: 2020-05-09 21:15+0200\n"
"PO-Revision-Date: 2020-05-09 21:16+0200\n"
"PO-Revision-Date: 2020-05-10 19:18+0200\n"
"Last-Translator: cage <cage@invalid.org>\n"
"Language-Team: Italian\n"
"Language: it\n"
@ -710,7 +710,7 @@ msgstr "Ignorare la conversazione ~s? [s/N] "
#: src/ui-goodies.lisp:998
#, lisp-format
msgid "Delete conversation ~s? [y/N] "
msgstr "Ignorare la conversazione ~s? [s/N] "
msgstr "Eliminare la conversazione ~s? [s/N] "
#: src/ui-goodies.lisp:1017
#, lisp-format

2
src/conversations-window.lisp
View File

@ -117,7 +117,7 @@
(redraw t)
(suggested-message-index nil))
"Resync this window ehit he conversation in database, if
`suggested-message-index' is not nil masrks as selected the message in
`suggested-message-index' is not nil masrk as selected the message in
position indicated by this variable."
(with-accessors ((rows rows)
(selected-line-bg selected-line-bg)

12
src/ui-goodies.lisp
View File

@ -958,15 +958,19 @@ and if fetch local (again, to server) statuses only."
(add-new-name ()
(flet ((on-add-new-name (new-name)
(db-utils:with-ready-database (:connect nil)
(let ((event (make-instance 'change-conversation-name-event
:old-name *conversation-old-name*
:new-name new-name)))
(let ((update-event (make-instance 'change-conversation-name-event
:old-name *conversation-old-name*
:new-name new-name))
(refresh-event
(make-instance 'refresh-conversations-window-event)))
(when (string-not-empty-p new-name)
(if (db:conversation-folder-exists-p new-name)
(error-message (format nil
(_ "A conversation with name ~a already exists.")
new-name))
(push-event event)))))))
(progn
(push-event update-event)
(push-event refresh-event))))))))
(ask-string-input #'on-add-new-name
:prompt (_ "New name: ")))))
(add-old-name)))