diff --git a/etc/init.lisp b/etc/init.lisp index 7131ba4..5e34091 100644 --- a/etc/init.lisp +++ b/etc/init.lisp @@ -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*) diff --git a/po/it.po b/po/it.po index 4c870de..5cd3244 100644 --- a/po/it.po +++ b/po/it.po @@ -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 \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 diff --git a/src/conversations-window.lisp b/src/conversations-window.lisp index 3e05e10..be1fd43 100644 --- a/src/conversations-window.lisp +++ b/src/conversations-window.lisp @@ -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) diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp index 9621fcc..fd1deef 100644 --- a/src/ui-goodies.lisp +++ b/src/ui-goodies.lisp @@ -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)))