ryuslash/emacs-config
1
0
Fork 0
Code Activity

[oni-org] Don't truncate the text in the pomodoro overview

Browse source 
Instead specify a width for the column and shrink the table. This way it still
gets truncated, but it can be expanded and the whole text is in the column.
This commit is contained in:
Tom Willemse 2023-03-20 22:57:50 -07:00
parent aec7aa6267
commit b468287aa7
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
oni-org/oni-org.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local
;; Version: 2023.0314.013950
;; Version: 2023.0320.225105
;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-contrib org-bullets org-edna diminish all-the-icons olivetti form-feed)
;; This program is free software; you can redistribute it and/or modify
@ -971,19 +971,19 @@ placed above TARGET. Otherwise it will be placed below it."
(string-trim-right
(apply #'concat "| | Task | Effort |\n"
"|-+------+--------|\n"
"| | <60> | |\n"
(mapcar (lambda (itm)
(let ((emphasis (if (alist-get 'done itm) "+" ""))
(title (alist-get 'title itm)))
(format "| | %s[[id:%s][%s]]%s | %s |\n"
emphasis
(alist-get 'id itm)
(if (> (length title) 60)
(format "%s..." (substring title 0 57))
title)
title
emphasis
(make-string (alist-get 'poms itm) ?X))))
info))))
(org-table-align)))
(org-table-align)
(org-table-shrink)))
(defun oni-org-insert-pomodoro-overview ()
"Create a dynamic block showing the Pomodoro overview for today."