Created
August 1, 2020 17:48
-
-
Save rougier/ddb84c16c28f7cd75e27e50d4c3c43da to your computer and use it in GitHub Desktop.
Elegant Emacs daily agenda
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (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) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
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!