tre/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove conky

Browse source
This commit is contained in:
mez 2024-06-25 23:30:07 +01:00
parent 34ed383133
commit f2cd7788c8
3 changed files with 19 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

20
agenda-common.el
View file

@ -1,20 +0,0 @@
(setq org-agenda-show-current-time-in-grid nil)
(setq org-extend-today-until 3)
(setq org-agenda-skip-scheduled-if-done t)
(setq org-agenda-skip-deadline-if-done t)
(setq org-agenda-skip-timestamp-if-done t)
(setq org-agenda-breadcrumbs-separator " ▸ ") ; requires org 9.3
(setq calendar-day-name-array ["de Sul" "de Lun" "de Meurth" "de Mergher"
"de Yow" "de Gwener" "de Sadorn"])
(setq calendar-day-abbrev-array ["Su" "L" "Mth" "Mr" "Y" "G" "Sa"])
(setq calendar-month-name-array ["mis Genver" "mis Whevrel" "mis Meur’"
"mis Ebrel" "mis Me" "mis Efen"
"mis Gorefen" "mis Est" "mis Gwyngala"
"mis Hedra" "mis Du" "mis Kevardhu"])
(setq org-todo-keywords
'((sequence "TODO" "|" "DONE" "CANCELLED")))
(setq org-agenda-time-grid
'((daily today require-timed remove-match)
(800 1000 1200 1400 1600 1800 2000)
"......" "----------------"))
(setq org-agenda-time-leading-zero t)

10
agenda.el
View file

@ -1,10 +0,0 @@
(load-file "~/.emacs.d/agenda-common.el")
(load-file "~/.emacs.d/custom/workday.el")
(if workday
(if (< (string-to-number (format-time-string "%H")) 19)
(if (> (string-to-number (format-time-string "%H")) 7)
(setq org-agenda-files (list "~/Documents/drive/org/calendar/admin.org" "~/Documents/drive/org/calendar/home.org" "~/Documents/drive/org/calendar/music.org" "~/Documents/drive/org/calendar/work.org"))
(setq org-agenda-files (list "~/Documents/drive/org/calendar/admin.org" "~/Documents/drive/org/calendar/home.org" "~/Documents/drive/org/calendar/music.org" "~/Documents/drive/org/calendar/personal.org")))
(setq org-agenda-files (list "~/Documents/drive/org/calendar/admin.org" "~/Documents/drive/org/calendar/home.org" "~/Documents/drive/org/calendar/music.org" "~/Documents/drive/org/calendar/personal.org")))
(setq org-agenda-files (list "~/Documents/drive/org/calendar/admin.org" "~/Documents/drive/org/calendar/home.org" "~/Documents/drive/org/calendar/music.org" "~/Documents/drive/org/calendar/personal.org")))
(setq org-agenda-prefix-format '((agenda . "%?-12t%s")))

21
config.org
View file

@ -485,10 +485,27 @@ Display images in =org= buffers. I’ve increased the width to 500px because 300
(setq org-image-actual-width '(500)))
#+END_SRC
Load the common agenda settings, i.e. those that I use in conky as well.
Some agenda settings.
#+BEGIN_SRC emacs-lisp
(load-file "~/.emacs.d/agenda-common.el")
(setq org-agenda-show-current-time-in-grid nil)
(setq org-extend-today-until 3)
(setq org-agenda-skip-scheduled-if-done t)
(setq org-agenda-skip-deadline-if-done t)
(setq org-agenda-skip-timestamp-if-done t)
(setq org-agenda-breadcrumbs-separator " ▸ ") ; requires org 9.3
(setq calendar-day-name-array ["de Sul" "de Lun" "de Meurth" "de Mergher"
"de Yow" "de Gwener" "de Sadorn"])
(setq calendar-day-abbrev-array ["Su" "L" "Mth" "Mr" "Y" "G" "Sa"])
(setq calendar-month-name-array ["mis Genver" "mis Whevrel" "mis Meur’"
"mis Ebrel" "mis Me" "mis Efen"
"mis Gorefen" "mis Est" "mis Gwyngala"
"mis Hedra" "mis Du" "mis Kevardhu"])
(setq org-agenda-time-grid
'((daily today require-timed remove-match)
(800 1000 1200 1400 1600 1800 2000)
"......" "----------------"))
(setq org-agenda-time-leading-zero t)
#+END_SRC
Set general TODO keywords.