From 7009acda2889c6167dd68b765fb5212935113068 Mon Sep 17 00:00:00 2001 From: fpi Date: Wed, 1 Jul 2020 19:25:41 +0200 Subject: Fix gnus icalendar org file location --- gnus.org | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/gnus.org b/gnus.org index ad27735..84d5a33 100644 --- a/gnus.org +++ b/gnus.org @@ -79,7 +79,7 @@ Enable responding to meeting invites. (use-package gnus-icalendar :config (gnus-icalendar-setup) - (setq gnus-icalendar-org-capture-file "~/win/Documents/sync/appointments.org") + (setq gnus-icalendar-org-capture-file "~/sync/appointments.org") (setq gnus-icalendar-org-capture-headline '("Calendar")) ;;make sure to create Calendar heading first (gnus-icalendar-org-setup) ) @@ -203,20 +203,6 @@ Unicode reply symbol #+begin_src emacs-lisp (setq gnus-summary-to-prefix "→ ") #+end_src -Function to toggle display of group levels in the group buffer. -#+begin_src emacs-lisp -(defvar gnus-group-line-format-wo-levels nil) -(defun fpi/gnus-group-toggle-levels () - (interactive) - (if gnus-group-line-format-wo-levels - (setq gnus-group-line-format gnus-group-line-format-wo-levels - gnus-group-line-format-wo-levels nil) - (setq gnus-group-line-format-wo-levels gnus-group-line-format - gnus-group-line-format (concat "[%L] " gnus-group-line-format))) - ;; Hack to update display - (gnus-group-get-new-news 0)) -(define-key gnus-topic-mode-map (kbd "T L") 'fpi/gnus-group-toggle-levels) -#+end_src **** On threads Gather loose threads, whose parent is currently not displayed, under a dummy article. I find the default ~'adopt~ to be too confusing. @@ -260,6 +246,20 @@ Disable indenting a topic. I always do it by accident. (define-key gnus-topic-mode-map (kbd "") 'fpi/gnus-topic-toggle-topic) (define-key gnus-topic-mode-map (kbd "TAB") 'fpi/gnus-topic-toggle-topic)) #+end_src +Function to toggle display of group levels in the group buffer. +#+begin_src emacs-lisp +(defvar gnus-group-line-format-wo-levels nil) +(defun fpi/gnus-group-toggle-levels () + (interactive) + (if gnus-group-line-format-wo-levels + (setq gnus-group-line-format gnus-group-line-format-wo-levels + gnus-group-line-format-wo-levels nil) + (setq gnus-group-line-format-wo-levels gnus-group-line-format + gnus-group-line-format (concat "[%L] " gnus-group-line-format))) + ;; Hack to update display + (gnus-group-get-new-news 0)) +(define-key gnus-topic-mode-map (kbd "T L") 'fpi/gnus-group-toggle-levels) +#+end_src **** Window Layout See [[info:gnus#Window Layout][info:gnus#Window Layout]]. #+begin_src emacs-lisp -- cgit v1.2.3