JosephFerano/dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Emacs: Check if mu4e is available to run email stuff, fix Welcome image link

Browse Source
This commit is contained in:
Joseph Ferano 2024-06-06 10:42:51 +07:00
parent a7ae3d1df8
commit 7271263df1
2 changed files with 80 additions and 78 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.config/emacs/elisp/welcome.el
View File

@ -70,7 +70,7 @@
(goto-char (point-min)) (goto-char (point-min))
(let ((bmarks (read (current-buffer)))) (let ((bmarks (read (current-buffer))))
(mapcar (lambda (bm) (cons (car bm) (cdr (nth 1 bm)))) bmarks))) (mapcar (lambda (bm) (cons (car bm) (cdr (nth 1 bm)))) bmarks)))
(list '("No Bookmark Fls"))))) (list '("No Bookmarks")))))
(defun welcome--load-projects () (defun welcome--load-projects ()
(with-temp-buffer (with-temp-buffer
@ -101,7 +101,7 @@
(buffer-size) (buffer-size)
(erase-buffer) (erase-buffer)
(goto-char (point-min)) (goto-char (point-min))
(insert-image (create-image "/home/joe/.config/emacs/elisp/Emacs@256.png")) (insert-image (create-image "/home/joe/.config/emacs/Emacs@256.png"))
(insert "\n\n\n") (insert "\n\n\n")
(insert "Welcome to Emacs!\n\n") (insert "Welcome to Emacs!\n\n")
;; (dashboard-insert-center "testing this thing out\n\n") ;; (dashboard-insert-center "testing this thing out\n\n")

6
.config/emacs/init.org
View File

@ -1828,6 +1828,7 @@ odd looking ~'(t .t)~ is for specifying a default for all other actions.
#+end_src #+end_src
** Email ** Email
#+begin_src emacs-lisp #+begin_src emacs-lisp
(when (file-exists-p "/usr/share/emacs/site-lisp/mu4e/")
(add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e/") (add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e/")
(require 'mu4e) (require 'mu4e)
@ -1916,7 +1917,7 @@ odd looking ~'(t .t)~ is for specifying a default for all other actions.
(:maildir "/gmail/[Gmail]/All Mail" :key ?g))) (:maildir "/gmail/[Gmail]/All Mail" :key ?g)))
(mu4e 't) (mu4e 't)
(add-hook 'after-init-hook #'mu4e-alert-enable-mode-line-display) (add-hook 'after-init-hook #'mu4e-alert-enable-mode-line-display))
;; (:name "Ferano.io Unread" :query "m:/ferano.io/Inbox AND g:unread" :key ?u))) ;; (:name "Ferano.io Unread" :query "m:/ferano.io/Inbox AND g:unread" :key ?u)))
#+end_src #+end_src
@ -1926,13 +1927,14 @@ be kept here commented out in case we want to try it again.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(when (file-exists-p "/usr/share/emacs/site-lisp/mu4e/")
(load-file "/home/joe/Dotfiles/.config/emacs/elisp/mu4e-fast-folding.el") (load-file "/home/joe/Dotfiles/.config/emacs/elisp/mu4e-fast-folding.el")
(evil-define-key 'normal mu4e-headers-mode-map (kbd "TAB") (evil-define-key 'normal mu4e-headers-mode-map (kbd "TAB")
#'mu4e-fast-folding-thread-toggle) #'mu4e-fast-folding-thread-toggle)
(evil-define-key 'normal mu4e-headers-mode-map (kbd "<backtab>") (evil-define-key 'normal mu4e-headers-mode-map (kbd "<backtab>")
#'mu4e-fast-folding-thread-toggle-all) #'mu4e-fast-folding-thread-toggle-all))
;; (load-file "/home/joe/Dotfiles/.config/emacs/elisp/mu4e-thread-folding.el") ;; (load-file "/home/joe/Dotfiles/.config/emacs/elisp/mu4e-thread-folding.el")
;; (require 'mu4e-fast-folding) ;; (require 'mu4e-fast-folding)