summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2020-09-15 19:44:51 -0500
committerCase Duckworth2020-09-15 19:44:51 -0500
commit555bb1a3dd2e8b054b6d2655f230f708e0a934c1 (patch)
tree82d756d118e15d20e68a0d225020c3ce877f7b4e
parentRemove a few more counsel hooks (diff)
downloademacs-555bb1a3dd2e8b054b6d2655f230f708e0a934c1.tar.gz
emacs-555bb1a3dd2e8b054b6d2655f230f708e0a934c1.zip
Fix title suggestion in post-to-gemlog-blue
-rw-r--r--init.el13
1 files changed, 7 insertions, 6 deletions
diff --git a/init.el b/init.el index cd88039..3bbbb19 100644 --- a/init.el +++ b/init.el
@@ -328,14 +328,15 @@
328 (let* ((title-maybe (progn ;; TODO this is ... clunky 328 (let* ((title-maybe (progn ;; TODO this is ... clunky
329 (goto-char (point-min)) 329 (goto-char (point-min))
330 (if (re-search-forward "^# \\(.*\\)" nil t) 330 (if (re-search-forward "^# \\(.*\\)" nil t)
331 (concat " (" 331 (buffer-substring-no-properties
332 (buffer-substring-no-properties 332 (match-beginning 1)
333 (match-beginning 1) 333 (match-end 1))
334 (match-end 1))
335 ")")
336 ""))) 334 "")))
337 (title (read-string 335 (title (read-string
338 (format "Title%s: " title-maybe) 336 (format "Title%s: "
337 (if (string= "" title-maybe)
338 ""
339 (concat " (" title-maybe ")")))
339 nil nil title-maybe)) 340 nil nil title-maybe))
340 (user (read-string "User: " nil)) 341 (user (read-string "User: " nil))
341 (pass (read-passwd "Pass: " nil))) 342 (pass (read-passwd "Pass: " nil)))