blob: 2b8ebe738e68eb2c992ced9fa23bed1ea7568d16 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
#+TITLE: mms Emacs Config - Misc
#+AUTHOR: Michał Sapka (https://michal.sapka.me)
#+STARTUP: showall indent logdone
#+HUGO_BASE_DIR: ~/ghq/vcs.sapka.me/michal-sapka-me/
#+HUGO_WEIGHT: 400
#+HUGO_SECTION: emacs/config
#+HUGO_CATEGORIES: emacs emacs-config
#+HUGO_MENU :menu "emacs-config" :name "Miscellaneous"
#+HUGO_CUSTOM_FRONT_MATTER: :abstract "My emacs config - miscellaneous onfig"
#+HUGO_CUSTOM_FRONT_MATTER: :menu-abstract "mastodon and email"
#+EXPORT_FILE_NAME: misc
* Intro
Why not do some other cool things inside Emacs?
Those configs here are very rudementaty, and a work-in-progress.
* Mastodon
I use mastodon (use can find me on [[https://emacs.ch/@mms][emacs.ch]]).
Why not use it in Emacs?
I need to add dedicated config for keybindings.
#+begin_src emacs-lisp
(use-package mastodon
:ensure t
:config
(setq mastodon-instance-url "https://emacs.ch"
mastodon-active-user "mms")
)
#+end_src
* Email
Oh email, how I love you!
** Reading
I use notmuch as my MUA.
You can find my guide on my [[https://michal.sapka.me/emacs/notmuch/][emacs site]].
#+BEGIN_SRC emacs-lisp
(use-package notmuch
:commands notmuch-hello
:config
(setq notmuch-search-oldest-first nil
notmuch-search-line-faces '(("gh-pr-todo" . ((t :foreground "#f77"))))) )
#+END_SRC
#+begin_src emacs-lisp
(mms-leader-keys
"m m" '(lambda () (interactive) (notmuch-hello) :wk "Notmuch hello"))
#+end_src
** composing
I use =msmtp= for email sendout.
In near future I'll move to =mstmtp-queue=, but for now I need basic setup.
I set up =mms-email-address= in my config_local.el, as it changes between machines and is private
#+begin_src emacs-lisp
(setq send-mail-function 'sendmail-send-it
user-mail-address mms-email-address
sendmail-program "/usr/local/bin/msmtp"
mail-specify-envelope-from t
message-sendmail-envelope-from 'header
mail-envelope-from 'header)
#+end_src
#+begin_src emacs-lisp
(setq mail-default-headers
(concat "BCC: " mms-email-address))
#+end_src
#+begin_src emacs-lisp
(mms-leader-keys
"m c" '(lambda () (interactive) (compose-mail) :wk "compose email"))
#+end_src
* Demos
#+begin_src emacs-lisp
(use-package demo-it
:ensure t)
#+end_src
|
