mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(notable): Truncate first lines if they don't fit the window

Browse source 
Change-Id: I00746aa285d7854b8e35b6d00aa7c608ccf8ce77
Reviewed-on: https://cl.tvl.fyi/c/depot/+/1988
Tested-by: BuildkiteCI
Reviewed-by: tazjin <mail@tazj.in>
This commit is contained in:
Vincent Ambo 2020-09-17 16:57:21 +01:00 committed by tazjin
parent 30066b4ba0
commit 5e22faec85
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
tools/emacs-pkgs/notable/notable.el
View file

@ -204,10 +204,14 @@
(check-type id integer)
(check-type note notable--note)
(let ((start (point))
(first-line (car (s-lines (notable--note-content note))))
(date (dottime-format (seconds-to-time
(notable--note-time note)))))
(let* ((start (point))
(date (dottime-format (seconds-to-time
(notable--note-time note))))
(first-line (truncate-string-to-width
(car (s-lines (notable--note-content note)))
;; Length of the window, minus the date prefix:
(- (window-width) (+ 2 (length date)))
nil nil 1)))
(insert (propertize (s-concat date " " first-line)
'notable-note-id id))
(insert "\n")))