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> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; 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) ;; 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 ;; 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 (string-trim-right
(apply #'concat "| | Task | Effort |\n" (apply #'concat "| | Task | Effort |\n"
"|-+------+--------|\n" "|-+------+--------|\n"
"| | <60> | |\n"
(mapcar (lambda (itm) (mapcar (lambda (itm)
(let ((emphasis (if (alist-get 'done itm) "+" "")) (let ((emphasis (if (alist-get 'done itm) "+" ""))
(title (alist-get 'title itm))) (title (alist-get 'title itm)))
(format "| | %s[[id:%s][%s]]%s | %s |\n" (format "| | %s[[id:%s][%s]]%s | %s |\n"
emphasis emphasis
(alist-get 'id itm) (alist-get 'id itm)
(if (> (length title) 60) title
(format "%s..." (substring title 0 57))
title)
emphasis emphasis
(make-string (alist-get 'poms itm) ?X)))) (make-string (alist-get 'poms itm) ?X))))
info)))) info))))
(org-table-align))) (org-table-align)
(org-table-shrink)))
(defun oni-org-insert-pomodoro-overview () (defun oni-org-insert-pomodoro-overview ()
"Create a dynamic block showing the Pomodoro overview for today." "Create a dynamic block showing the Pomodoro overview for today."