#+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
  (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