- prevented to replace a post's content with an empty text.

etc/shared-gui.conf

@@ -51,15 +51,15 @@ gemini.main-window.text.padding      = 5
 
 # links
 
-gemini.link.foreground               = #5b4636
+gemini.link.foreground               = #0061e0
 
 gemini.link.background               = #f4ecd8
 
 gemini.link.font                     = "Sans"
 
-gemini.link.size                     = 12
+gemini.link.size                     = 11
 
-gemini.link.weight                   = bold
+gemini.link.weight                   = normal
 
 gemini.link.slant                    = roman
 
@@ -81,7 +81,7 @@ gemini.quote.background              = #f4ecd8
 
 gemini.quote.font                    = Serif
 
-gemini.quote.size                    = 12
+gemini.quote.size                    = 11
 
 gemini.quote.weight                  = normal
 
@@ -147,7 +147,7 @@ gemini.h3.font                       = Sans
 
 gemini.h3.size                       = 12
 
-gemini.h3.weight                     = normal
+gemini.h3.weight                     = bold
 
 gemini.h3.slant                      = roman
 

src/program-events.lisp

@@ -2099,6 +2099,8 @@
         (croatoan:end-screen)
         (tui:with-notify-errors
             (os-utils:open-with-editor temp-file))
+        (when (> (fs:file-size temp-file)
+                 0)
           (let ((new-content (fs:slurp-file temp-file)))
             (ui:notify (_ "Editing post…"))
             (client:edit-status status-id new-content nil nil nil nil)
@@ -2117,7 +2119,7 @@
               (push-event refresh-event)
               (with-enqueued-process (+minimum-event-priority+)
                 (ui:thread-open-selected-message)
-              (ui:notify (_ "Post modified")))))))))
+                (ui:notify (_ "Post modified"))))))))))
 
 ;;;; end events