[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Orgmode] Increase width in agenda view?
From: |
Manish |
Subject: |
Re: [Orgmode] Increase width in agenda view? |
Date: |
Tue, 20 Apr 2010 19:28:05 +0530 |
On Mon, Apr 19, 2010 at 10:19 PM, Johan Ekh wrote:
> Hi all, is it possible to increase the width in the Week-agenda
> view such that the TODO keyword and the title task text get
> more space? My tags to the right of the title text gets
> misaligned if the title text is too long.
If you are okay with hiding CATEGORY then you can try the following
hack from Manuel Hermenegildo[fn:1]
--8<---------------cut here---------------start------------->8---
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; With this typing "L" in agenda and todo buffers allows toggling
;; whether category/file names appear or not at the left or entries in
;; agenda/todo listings.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar my-org-agenda-list-category t)
(defun my-org-agenda-toggle-list-category ()
"Toggles whether category/file name appears or not at the left
of entries in agenda listings. Useful to unclutter listings."
(interactive)
(if my-org-agenda-list-category
(progn
(setq my-org-agenda-list-category nil)
(setq org-agenda-prefix-format
'((agenda . " %-12:c%?-12t% s")
(timeline . " % s")
(todo . " %-12:c")
(tags . " %-12:c")
(search . " %-12:c")))
)
(setq my-org-agenda-list-category t)
(setq org-agenda-prefix-format
'((agenda . " %?-12t% s")
(timeline . " % s")
(todo . " ")
(tags . " ")
(search . " ")))
)
(org-agenda-redo))
(my-org-agenda-toggle-list-category)
(add-hook
'org-mode-hook
(lambda ()
(define-key org-agenda-keymap "L" 'my-org-agenda-toggle-list-category)
(define-key org-agenda-mode-map "L" 'my-org-agenda-toggle-list-category)
))
--8<---------------cut here---------------end--------------->8---
Regards
--
Manish
Footnotes:
[fn:1] http://article.gmane.org/gmane.emacs.orgmode/10909