[Emacs] enable iCalendar integration of mu4e
This commit is contained in:
		
							parent
							
								
									00ee413240
								
							
						
					
					
						commit
						7b0833252a
					
				| @ -1796,16 +1796,17 @@ configuration for the ~mu4e~ package itself. | |||||||
|   :straight (:build t) |   :straight (:build t) | ||||||
|   :commands mu4e mu4e-compose-new |   :commands mu4e mu4e-compose-new | ||||||
|   :init |   :init | ||||||
| 
 |  | ||||||
|   (defun mu4e--main-action-str (name func) |   (defun mu4e--main-action-str (name func) | ||||||
|     "This seems to be needed until evil-collection supports the latest |     "This seems to be needed until evil-collection supports the latest | ||||||
|   version of mu4e." |   version of mu4e." | ||||||
|     "mu4e-main-action") |     "mu4e-main-action") | ||||||
| 
 | 
 | ||||||
|   (require 'mu4e) |   (require 'mu4e) | ||||||
| 
 |  | ||||||
|   (remove-hook 'mu4e-main-mode-hook 'evil-collection-mu4e-update-main-view) |   (remove-hook 'mu4e-main-mode-hook 'evil-collection-mu4e-update-main-view) | ||||||
| 
 | 
 | ||||||
|  |   <<mu4e-ical-setup>> | ||||||
|  |   <<mu4e-ical-init-config>> | ||||||
|  | 
 | ||||||
|   (csetq mu4e-completing-read-function 'completing-read |   (csetq mu4e-completing-read-function 'completing-read | ||||||
|          mu4e-use-fancy-chars          t |          mu4e-use-fancy-chars          t | ||||||
|          message-kill-buffer-on-exit   t |          message-kill-buffer-on-exit   t | ||||||
| @ -1830,6 +1831,7 @@ configuration for the ~mu4e~ package itself. | |||||||
|   (add-hook 'mu4e-view-mode-hook (lambda () (setq truncate-lines nil))) |   (add-hook 'mu4e-view-mode-hook (lambda () (setq truncate-lines nil))) | ||||||
|   (add-hook 'mu4e-headers-mode-hook (lambda () (setq truncate-lines t))) |   (add-hook 'mu4e-headers-mode-hook (lambda () (setq truncate-lines t))) | ||||||
| 
 | 
 | ||||||
|  |   <<mu4e-ical-config>> | ||||||
|   <<mu4e-keybindings-undef>> |   <<mu4e-keybindings-undef>> | ||||||
|   <<mu4e-keybindings-view>> |   <<mu4e-keybindings-view>> | ||||||
|   <<mu4e-keybindings-view-no-prefix>> |   <<mu4e-keybindings-view-no-prefix>> | ||||||
| @ -1911,6 +1913,34 @@ StartupWMClass=Gnus | |||||||
| Keywords=Text;Editor; | Keywords=Text;Editor; | ||||||
| #+end_src | #+end_src | ||||||
| 
 | 
 | ||||||
|  | ***** Interact with iCalendar events | ||||||
|  | :PROPERTIES: | ||||||
|  | :CUSTOM_ID: PackagesConfigurationApplicationsEmailMu4eInteractwithiCalendarevents-dmsenkt0xuj0 | ||||||
|  | :END: | ||||||
|  | Something that has always bugged me was how to properly with iCalendar | ||||||
|  | events shared with me on my personal mailbox. The answer is actually | ||||||
|  | [[https://www.djcbsoftware.nl/code/mu/mu4e/iCalendar.html][dead simple]]. | ||||||
|  | #+name: mu4e-ical-setup | ||||||
|  | #+begin_src emacs-lisp | ||||||
|  | (require 'mu4e-icalendar) | ||||||
|  | (mu4e-icalendar-setup) | ||||||
|  | #+end_src | ||||||
|  | 
 | ||||||
|  | I’ll just configure a couple of things regarding these events, namely | ||||||
|  | converting them to Orgmode and add them to my =~/org/notes.org= file, | ||||||
|  | and delete the email once I answered to the event. | ||||||
|  | #+name: mu4e-ical-config | ||||||
|  | #+begin_src emacs-lisp | ||||||
|  | (setq mu4e-icalendar-trash-after-reply t) | ||||||
|  | #+end_src | ||||||
|  | 
 | ||||||
|  | #+name: mu4e-ical-init-config | ||||||
|  | #+begin_src emacs-lisp | ||||||
|  | (setq gnus-icalendar-org-capture-file "~/org/notes.org" | ||||||
|  |       gnus-icalendar-org-capture-headline '("Calendar")) | ||||||
|  | (gnus-icalendar-org-setup) | ||||||
|  | #+end_src | ||||||
|  | 
 | ||||||
| ***** Basic configuration | ***** Basic configuration | ||||||
| :PROPERTIES: | :PROPERTIES: | ||||||
| :CUSTOM_ID: Packages-Configuration-Applications-Email-Mu4e-Basic-configurationfxy0fl6184j0 | :CUSTOM_ID: Packages-Configuration-Applications-Email-Mu4e-Basic-configurationfxy0fl6184j0 | ||||||
| @ -5679,7 +5709,9 @@ The project is then defined like so: | |||||||
|   (phundrak/major-leader-key |   (phundrak/major-leader-key | ||||||
|    :keymaps 'org-mode-map |    :keymaps 'org-mode-map | ||||||
|    :pakages 'org-ref |    :pakages 'org-ref | ||||||
|    "ic" #'org-ref-insert-link)) |    "ic" #'org-ref-insert-link | ||||||
|  |    "ir" #'org-ref-insert-link-hydra/body | ||||||
|  |    "iB" #'org-ref-bibtex-hydra/body)) | ||||||
| #+end_src | #+end_src | ||||||
| 
 | 
 | ||||||
| #+begin_src emacs-lisp | #+begin_src emacs-lisp | ||||||
| @ -8348,6 +8380,11 @@ and builds a heatmap out of it. | |||||||
|   :config |   :config | ||||||
|   (setq mastodon-instance-url "https://emacs.ch" |   (setq mastodon-instance-url "https://emacs.ch" | ||||||
|         mastodon-active-user  "phundrak") |         mastodon-active-user  "phundrak") | ||||||
|  | 
 | ||||||
|  |   (defun me/mastodon-toot--send-language-if-none () | ||||||
|  |     (unless mastodon-toot--language | ||||||
|  |       (mastodon-toot--set-toot-language))) | ||||||
|  |   (advice-add #'me/mastodon-toot--send-language-if-none :before #'mastodon-toot--send) | ||||||
|   :general |   :general | ||||||
|   (phundrak/evil |   (phundrak/evil | ||||||
|     :packages '(mastodon) |     :packages '(mastodon) | ||||||
|  | |||||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user