Skip to content

Instantly share code, notes, and snippets.

@rougier
Created August 1, 2020 17:48
Show Gist options
  • Save rougier/ddb84c16c28f7cd75e27e50d4c3c43da to your computer and use it in GitHub Desktop.
Save rougier/ddb84c16c28f7cd75e27e50d4c3c43da to your computer and use it in GitHub Desktop.
Elegant Emacs daily agenda
(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)
@fniessen
Copy link

fniessen commented Oct 18, 2020

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!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment