summary refs log tree commit diff stats
diff options
context:
space:
mode:
-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)))