From b468287aa7fc249a7eebbfcc24261fca7ef42631 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Mon, 20 Mar 2023 22:57:50 -0700 Subject: [PATCH] [oni-org] Don't truncate the text in the pomodoro overview 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. --- oni-org/oni-org.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/oni-org/oni-org.el b/oni-org/oni-org.el index 5cd5cfc..23a0c8b 100644 --- a/oni-org/oni-org.el +++ b/oni-org/oni-org.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse ;; 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."