diff options
| author | Case Duckworth | 2020-09-15 19:44:51 -0500 |
|---|---|---|
| committer | Case Duckworth | 2020-09-15 19:44:51 -0500 |
| commit | 555bb1a3dd2e8b054b6d2655f230f708e0a934c1 (patch) | |
| tree | 82d756d118e15d20e68a0d225020c3ce877f7b4e | |
| parent | Remove a few more counsel hooks (diff) | |
| download | emacs-555bb1a3dd2e8b054b6d2655f230f708e0a934c1.tar.gz emacs-555bb1a3dd2e8b054b6d2655f230f708e0a934c1.zip | |
Fix title suggestion in post-to-gemlog-blue
| -rw-r--r-- | init.el | 13 |
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))) |