-
-
Save rougier/ddb84c16c28f7cd75e27e50d4c3c43da to your computer and use it in GitHub Desktop.
| (defun elegant-agenda (char-width char-height) | |
| "" | |
| (interactive) | |
| (select-frame (make-frame)) | |
| (set-frame-width (selected-frame) char-width) | |
| (set-frame-height (selected-frame) char-height) | |
| (set-frame-position (selected-frame) | |
| (/ (- (display-pixel-width) (frame-outer-width)) 2) | |
| (/ (- (display-pixel-height) (frame-outer-height)) 2)) | |
| (x-focus-frame nil) | |
| (switch-to-buffer (generate-new-buffer "*today*")) | |
| (org-mode) | |
| (setq line-spacing 8) | |
| (face-remap-add-relative | |
| 'header-line '(:family "Yanone Kaffeesatz" | |
| :height 2.0 :weight thin | |
| :foreground "#000000" :background "#ffffff" | |
| :underline nil :overline nil :box nil)) | |
| (face-remap-add-relative 'default '(:family "Yanone Kaffeesatz" | |
| :height 1.5 :weight thin)) | |
| (face-remap-add-relative 'italic '(:foreground "orange")) | |
| (face-remap-add-relative 'bold '(:height 1.1 :weight light)) | |
| (face-remap-add-relative 'org-link '(:foreground "black")) | |
| (setq mode-line-format nil) | |
| (setq header-line-format | |
| "— T O D A Y ————————————————————————————————————————————————")) | |
| (elegant-agenda 72 40) | |
| (insert | |
| " | |
| *A G E N D A* | |
| ~10:00 to 11:00 ...................... Interview for the PhD position (skype)~ | |
| 14:00 to 15:00 ...................... Meeting with Arthur (see [[ ][notes]]) | |
| 16:00 to 18:00 ...................... Team meeting | |
| *T A S K S* | |
| Finish the new agenda layout /(2 days late)/ | |
| Package the elegant emacs theme | |
| Write review for ReScience C (due in 3 days) | |
| *N O T E S* | |
| The font is available at fonts.google.com/specimen/Yanone+Kaffeesatz | |
| This screenshot is only a mockup, no working code (yet).") | |
| (setq cursor-type nil) |
rougier
commented
Aug 1, 2020

Dear Nicolas, FYI, you could be interested by some of my Org views, such as C-c a f . for showing Today's meetings and tasks.
Sections displayed:
- Calendar
- CollectBox (Unscheduled)
- Due Today
- Overdue
- Scheduled
- Completed Today
See https://github.com/fniessen/emacs-leuven/blob/master/org-leuven-agenda-views.txt.
(Best viewed using leuven-theme for having nicely colored titles.)
Waoh, impressive and very detailed and commented configuration. I've started reding it and it's great you had plenty of comments. I'm still fighting to design my GTD workflow, this will be useful. By the way, it would be great to have some screenshots illustrating the different agenda commands.
You can also have a look at my Emacs configuration, my idea being to have something that can compare to modern editors, by adding what I found "necessary" to have a great Emacs experience -- provided that the packages are found on your system (otherwise, that part of the configuration is simply skipped, so that the Emacs-Leuven "library" can be "universally" used, without harm).
You're right about the screenshots. That'd be a good addition.
PS- Would you have PR (on whatever), they'd be welcome!