From 93461d87cd66df2a4b31f0ae12593235e8867adb Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Tue, 7 Aug 2012 10:57:23 +0200 Subject: [PATCH] Fill titles So they don't run on too long off the screen. --- avandu.el | 39 ++++++++++++++++++++++----------------- 1 file changed, 22 insertions(+), 17 deletions(-) diff --git a/avandu.el b/avandu.el index 3edd1c8..5c952c8 100644 --- a/avandu.el +++ b/avandu.el @@ -272,28 +272,33 @@ with `auth-source-search' and then by asking the user." (defun avandu--insert-article-title (id link title) "Insert a button with the label TITLE and store ID and LINK in the article-id and link properties, respectively." - (insert-button - (avandu--oneline title) - 'face 'avandu-overview-unread-article - 'article-id id - 'link link - 'keymap avandu-article-button-map - 'action #'(lambda (button) - (message "%s" (button-get button 'link)))) - (insert-char ?\n 1)) + (let ((pos (point))) + (insert-button + (avandu--oneline title) + 'face 'avandu-overview-unread-article + 'article-id id + 'link link + 'keymap avandu-article-button-map + 'action #'(lambda (button) + (message "%s" (button-get button 'link)))) + (fill-region pos (point)) + (insert-char ?\n 1))) (defun avandu--insert-feed-title (id title) "Insert a button with the label TITLE and store ID in the feed-id property." (unless (eq (point) (point-min)) (insert-char ?\n 1)) - (insert-button - (avandu--oneline title) - 'face 'avandu-overview-feed - 'feed-id id - 'keymap avandu-feed-button-map - 'action #'(lambda (button) - (message "%s" (button-label button)))) - (insert-char ?\n 2)) + + (let ((pos (point))) + (insert-button + (avandu--oneline title) + 'face 'avandu-overview-feed + 'feed-id id + 'keymap avandu-feed-button-map + 'action #'(lambda (button) + (message "%s" (button-label button)))) + (fill-region pos (point)) + (insert-char ?\n 2))) (defun avandu--oneline (text) "Make a single line out of and clean up TEXT."