#+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-tree-result-format
          '(("date" . "%12s  ")
            ("authors" . "%-20s  ")
            ((("tree" . "%s")
              ("subject" . "%s"))
             . " %-80s  ")
            ("tags" . "(%s)")))
      (setq
       notmuch-hello-auto-refresh t
       notmuch-search-oldest-first nil
       notmuch-search-line-faces '(("gh-pr-todo" . ((t :foreground "#f77"))))) )
#+END_SRC

#+RESULTS:
: [nil 26381 35704 951650 nil elpaca-process-queues nil nil 443000 nil]

** 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

* Jabber

I self-host an XMPP server for my family.
Of course I want to have it inside Emacs!

#+begin_src emacs-lisp
  (use-package fsm
    :ensure t)

  (use-package srv
    :ensure t)

  (use-package jabber
    :after '(fsm srv)
    :ensure t)
#+end_src

* Demos


#+begin_src emacs-lisp
  (use-package demo-it
    :ensure t)
#+end_src


* Open links

First, let's be able to run Youtube inside emacs
#+begin_src emacs-lisp
  (use-package yeetube
    :ensure t)
#+end_src

Then, let's create linkhandler to pass the link to the correct handler.

#+begin_src emacs-lisp
  (defun mms-open-link-under-point ()
    (interactive)
    (let (url)
      (setq url (thing-at-point 'url))
      (cond
       ((string-match "youtube.com" url) (yeetube-search url))
       (t (eww url)))
      )
    )
#+end_src


* Music player

** Listen

Listen.el is a new package for music playback.

#+begin_src emacs-lisp
  (use-package listen
  :ensure t)
#+end_src

#+RESULTS:
: [nil 26173 8423 527702 nil elpaca-process-queues nil nil 696999 nil]

#+begin_src emacs-lisp
  ;; (use-package ready-player
  ;; :
  ;; ensure t)
#+end_src
* Gaming

** Malyon

#+begin_src emacs-lisp
  (use-package malyon
  :ensure t)
#+end_src