path: root/content-org/cool-emacs.org

#+TITLE: Cool Emacs @ mms site
#+AUTHOR: Michał Sapka
#+URL: https://michal.sapka.me
#+STARTUP: show2levels indent logdone

#+HUGO_BASE_DIR: ~/ghq/vcs.sapka.me/michal-sapka-me/
#+HUGO_WEIGHT: auto
#+HUGO_SECTION: cool-emacs

* CE                                                    :@emacs:
:PROPERTIES:
:EXPORT_HUGO_CUSTOM_FRONT_MATTER: :image_dir "cool-emacs" :image_max_width 480
:EXPORT_HUGO_PAIRED_SHORTCODES: image tableofcontent menu
:END:

** DONE Cool Emacs
CLOSED: [2024-06-15 Sat 21:52]
:PROPERTIES:
:EXPORT_FILE_NAME: _index
:EXPORT_HUGO_CUSTOM_FRONT_MATTER+: :primary_menu emacs
:EXPORT_HUGO_CUSTOM_FRONT_MATTER+: :shortname Cool usages of Emacs
:EXPORT_HUGO_MENU: :menu emacs :post "Emacs usage that is not text editing"
:END:

#+attr_shortcode: :file cool-macs.png
#+attr_shortcode: :alt An Emacs logo in cool glassess doing a skateboard flip
#+attr_shortcode: :class right no-border
#+attr_shortcode: :forced_width 350
#+begin_image
noop
#+end_image

#+begin_quote
/Let me tell you: Emacs is not a text editor./

-- Emerald McS., PhD
#+end_quote

Even though most of what Emacs is known for is /editing text/, it can do so much more.
It's the most flexible application out there, so when you start to adjust the basics for yourself, you want to use it everywhere.
Here, I will present /Emacs/ as a general purpose interface.


*** Cool ways to use Emacs

#+attr_shortcode: "cool-emacs-ways"
#+begin_menu
Dune
#+end_menu

*** Appendix

#+attr_shortcode: "cool-emacs-appendix"
#+begin_menu
Dune
#+end_menu

*** Coolmacs

The mascot, Coolmacs, was drawn by [[https://drewsh.com/][Drew]].
** Ways
:PROPERTIES:
:EXPORT_HUGO_MENU: :menu cool-emacs-ways
:EXPORT_HUGO_CUSTOM_FRONT_MATTER+: :primary_menu cool-emacs-ways
:END:

*** DONE Read RSS with Elfeed
CLOSED: [2023-05-19 Wed 23:00]
:PROPERTIES:
:EXPORT_FILE_NAME: reading-rss-elfeed
:EXPORT_HUGO_CUSTOM_FRONT_MATTER+: :abstract Setting up config inside an org file
:EXPORT_HUGO_CUSTOM_FRONT_MATTER+: :aliases '(/2023/moving-my-rss-reading-to-emacs-with-elfeed/ /emacs/moving-my-rss-reading-to-emacs-with-elfeed/ /emacs/elfeed-literate-config/)
:END:

Since Emacs became my shell of choice[fn:1], I am abandoning more and more dedicated applications in favor of different packages.
As it turns out, Emacs packages are very feature rich.
This time: I moved my RSS reading from newsboat[fn:2] to elfeed[fn:3].

Elfeed has very simple keybindings:
- g will refresh the items list
- G will refresh the items list and fetch new items
- r will mark currently selected item is read (remove unread tag)[^4]
- b will open item in the browser


One huge upside of elfeed compared to newsboat is image support.
Emacs is a GUI application, so all images are present in their glory!

#+attr_shortcode: :file elfeed-list.png
#+attr_shortcode: :alt An Emacs screenshot showing a list using a dark mode
#+attr_shortcode: :class centered
#+begin_image
List of articles
#+end_image

#+attr_shortcode: :file elfeed-details.png
#+attr_shortcode: :alt An Emacs screenshot showing Elfeed in a dark mode with a vintage PC case in the middle
#+attr_shortcode: :class centered
#+begin_image
Images!
#+end_image

My setup is near stock.
I have a few dozen feeds that are auto-tagged.
Three essential tags are "important", "news", and "company".
I want to read each "important", then I want to see all normal, and finally I can just skim "news" and "company".
Adding auto-tagging is very simple: just define the tag when defining the RSS feed list:

#+BEGIN_SRC emacs-lisp
("https://rubenerd.com/feed/" blog important)
("https://www.pine64.org/feed/" company)
#+END_SRC
Now, each new article will be tagged with matching tags.
Elfeed allows to define of custom faces that will be applied to items matching tag[fn:6]:

#+BEGIN_SRC emacs-lisp
(defface important-elfeed-entry
  '((t :foreground "#f77"))
  "Marks an important Elfeed entry."
  :group 'elfeed)
  
(defface nonimportant-elfeed-entry
  '((t :foreground "#C0C0C0"))
  "Marks an nonimportant Elfeed entry."
  :group 'elfeed)

(push '(important important-elfeed-entry)
       elfeed-search-face-alist)
(push '(company nonimportant-elfeed-entry)
      elfeed-search-face-alist)
(push '(news nonimportant-elfeed-entry)
      elfeed-search-face-alist)
#+END_SRC
      

Now important items will be dark red, while company & news will be dark gray

#+attr_shortcode: "elfeed-list.png"
#+begin_img-c
No important things to read at this moment.
#+end_img-c

Elfeed has a few packages expanding its functionality, but I found the default behavior to be exactly right.

[fn:1] [[/2023/emacs-as-a-shell/][Emacs as a Shell]]
[fn:2] [[https://newsboat.org/][Newsboat homepage]]
[fn:3] [[https://github.com/skeeto/elfeed][Elfeed repository on Github]]
[fn:4] The "r" key messes with my muscle memory, as notmuch[^5] uses "ku" for the same action while "r" will start composing a reply.
[fn:5] [[https://d-s.sh/tags/notmuch][Posts tagged about notmuch]]
[fn:6] my elisp-fu not good

**** Elfeed-org

One of the packages expanding capabilities of elfeed is elfeed-org[fn:elf-org].
It allows configuring the list of feeds with a standard org tree.
Since my config is now also an org file, nothing stops me from adding the list as an org-tree inside my config org-file! I set it up via:

{{<highlight lisp "linenos=table,linenostart=199,hl_lines=7">}}
#+BEGIN_SRC org
  ,*** elfeed-org

  ,#+BEGIN_SRC emacs-lisp
  (use-package elfeed-org
    :ensure t
    :config
    (setq rmh-elfeed-org-files (list "~/.emacs.d/config.org"))
    (elfeed-org))
  ,#+END_SRC
#+END_SRC

Therefore, I am now pointing at the same file to become the data source for elfeed-org as the rest of my config.
Just a few lines down, I start to define my list of subscriptions:

#+BEGIN_SRC org
  ,*** Feeds :elfeed:

  ,**** Blogs

  ,***** https://gideonwolfe.com/index.xml      :important:
  ,***** https://fabiensanglard.net/rss.xml.    :important:

  ,**** Emacs

  ,***** https://protesilaos.com/master.xml     :important:
#+END_SRC
Much more readable! Elfeed-org will ignore the entire outer tree and extract the feeds from leaves under the =:elfeed:= tag.
[fn:elf-org] https://github.com/remyhonig/elfeed-org

*** DONE Read email with Notmuch
CLOSED: [2023-07-03 Wed 23:00]
:PROPERTIES:
:EXPORT_FILE_NAME: read-email-notmuch
:EXPORT_HUGO_CUSTOM_FRONT_MATTER: :abstract My email based workflow for GitHub Pull Review Requests
:EXPORT_HUGO_MENU_OVERRIDE:  :name "Reading and automating email using Notmuch"
:EXPORT_HUGO_CUSTOM_FRONT_MATTER+: :aliases '(/2023/notmuch/ /emacs/notmuch/)
:END:
Web email interfaces have taken over the world a long time ago.
Except for Outlook users, only a few people even consider using an actual application for it.
This is one of the primary reasons for our low opinion of electronic mail today, since with limited tools, you get limited capabilities.
While there are options for automatic filtering, tagging, or folding with most clients, those capabilities are barebones. 

Luckily there are still compelling alternatives.

**** Managing email locally
Back in the day of POP, this was the standard: your computer downloaded new messages from the server, and you had local copies from this point.
Then IMAP came, and after it, Exchange.
Now you have a fast and convenient option to sync all changes with other clients and not bother with hard drive space.
But this also puts us at the mercy of email providers.
If a given service doesn't support tags, folders, or saved searches, you cannot use it.
I tried to reverse this direction and never looked back.
I want all my email to be on my machine, available at all times, and accessible instantly.

Mbsync(1)[fn:mbs] is a popular application to populate local ~/Mail folder with remote messages fetched via IMAP.
The config is quite simple. For Gmail[fn:gmail][fn:frosty]:


#+BEGIN_SRC shell -r -n
  MaildirStore gmail-local (ref:local-start)
  Path ~/Mail/gmail/
  Inbox ~/Mail/gmail/INBOX
  Subfolders Verbatim (ref:local-end)

  IMAPStore gmail-remote (ref:remote-start)
  Host imap.gmail.com
  SSLType IMAPS
  AuthMechs LOGIN
  User <username>
  PassCmd <password> (ref:remote-end)

  Channel gmail (ref:chan)
  Far :gmail-remote:
  Near :gmail-local:
  Create Both
  Expunge
  Patterns * !"[Gmail]/All Mail" !"[Gmail]/Important" !"[Gmail]/Starred" !"[Gmail]/Bin"
  SyncState *
#+END_SRC

Then type =mbsybc -a=, wait for a few (hundred? depending on the mailbox size) minutes, and voila.
Your =

~/Mail/gmail/= is now populated with all your messages. Let's break down the config.

Mbsync(1) assumes two stores exist: local (on your computer) and remote (the IMAP server).
A store is a place where mail exists.
We have then configured in lines [[(local-start)]]-[[(local-end)]] and [[(remote-start)]]-[[(remote-end)]].  

The remote one is self-explanatory.
One thing to remember: some providers will require you to use an app-specific password and reject auth attempts with the normal one.
Our password in line 11 can be either a string with the password or an arbitrary command (think =cat ~/my-secret-password= or a CLI password manager).

The local store is just a definition of local folders to use.
It can be anywhere, but =~/Mail= is the standard, anxd many mail clients will assume that you store your email there.

On line [[(chan)]], we start to define a channel, which is how mbsync(1) works.
One store is =far= (remote), while the other is =near= (on your machine).
The rest of the config defines behavior.
Refer to the manual, but in my case:
- it will create non-matching mailboxes
- it will delete messages in a store if a message was deleted on the other
- it will sync all messages except a few matching the pattern.
- it will store the synchronization state file in the Mail dir.

One last thing to add is a simple cron rule.
You can force mail fetching manually, but I opted for the automatic option.
Therefore, my crontab(1) has:

#+BEGIN_SRC cron
1/5 * * * * killall mbsync &>/dev/null; <msync_dir>/mbsync -a -V 2>&1 > ~/.mbsync_log
#+END_SRC

We will now fetch new messages every 5 minutes.

[fn:mbs] [[https://isync.sourceforge.io/mbsync.html][mbsync on sourceforge]]
[fn:gmail] I have my gripes with Gmail, but it is still the standard.
While this article assumes Gmail, you can easily use mbsync(1) with any IMAP service.
[fn:frosty] Originally I took the config from [[https://frostyx.cz/posts/synchronize-your-2fa-gmail-with-mbsync][Frosty]]

**** Local clients

Now we need to choose a local email client to use.
There is a lot to choose from! Thunderbird[fn:thunderbrid] seems to be the most popular option for GUI users.
For terminal users, we have Mutt(1)[fn:mutt], its successor Neomutt(1)[fn:neomutt], and many, many more.
I used Neomutt(1)[fn:luke] for a while, and it was a pleasure compared to web clients.

However, ever since I started to use Emacs more, I wanted to move my Email inside Emacs.
And to little surprise, we also have a lot to choose from.
By default, Emacs comes with Gnus[fn:gnus], a newsgroups reader with an email client capability.
However, the two most popular packages are Mu4e[fn:mu4e] and notmuch(1)[fn:notmuch]

The last two are based on fast email indexing and searching but assume different workflows.
Mu4e is based on filtering, while notmuch around tagging. 

A friend[fn:alex] recommended Notmuch(1) to me.
I have never tried mu4e as notmuch fully satisfies my needs.

[fn:thunderbrid] [[https://www.thunderbird.net/][Thunderbird website]]
[fn:mutt] [[https://www.mutt.org/][Mutt website]]
[fn:neomutt] [[https://neomutt.org/][Neomutt website]]
[fn:luke] Luke Smith has a few excellent vlogs about Mutt/NeoMutt like [[https://www.youtube.com/watch?v=2jMInHnpNfQ&t=683s)"][Email on the terminal with mutt]]
[fn:gnus] [[https://www.gnu.org/software/emacs/manual/html_node/gnus/][Gnus on gnu.org]]
[fn:mu4e] [[https://www.djcbsoftware.nl/code/mu/][mu4e website]]
[fn:notmuch] [[https://notmuchmail.org/][notmuch website]]
[fn:alex] Thanks, [[https://se30.xyz/][Alex]]

**** Setting up notmuch(1)

Notmuch(1) is not a client but an indexer.
It indexes and tags existing email and allows one to search messages.
It should be present on most systems package management, so install it.
They run =notmuch=, answer a few questions, and you've got yourself a ready notmuch.

Whenever a new mail arrives, it won't be known to notmuch before indexing.
You can manually run =notmuch new= or make a cron definition for it.

One killer feature of notmuch is its sheer speed.
The name comes from the fact that it can work on gigantic mailboxes very swiftly - oh, you have one million messages? That's not much!

Let's try a simple search:

#+BEGIN_SRC shell
$ notmuch search 'from:*@github.com'
#+END_SRC

You can search based on sender, receiver, dates, attachments, contents, titles, etc.
Refer to man pages for =notmuch-search-terms(7)=.
However, to get the most out of notmuch, we need to learn about tags.

Let's add a "gh" tag for messages from Git Hub.

#+BEGIN_SRC shell
$ notmuch search 'from:*@github.com'
$ notmuch tag "+gh" -- "from:@github.com"
#+END_SRC

Now, we can search for such messages

#+BEGIN_SRC shell
$ notmuch search "tag:gh"
#+END_SRC

We can also join multiple search criteria with "and", "or" and other boolean operators.
We now have a fully working local email reader - however we can not send email.
I will not discuss sending email here as it's a separate subject. Notmuch(1) is not for sending email.

Using CLI for reading email is far from pleasant.
All those commands will come in handy, but first, let's add a user interface.

**** Notmuch(1) in Emacs(1)

Notmuch(1) can be used with different UIs, like Mutt(1).
However, it comes with an Emacs(1) package, so let's enable it.

#+BEGIN_SRC emacs-lisp
(use-package notmuch
  :commands notmuch-hello
  :bind (("C-c m" . notmuch-hello)))
#+END_SRC

The key binding "C-c m" is very popular, but you can use whatever you want.

After running =notmuch-hello=, we are not greeted with a list of messages but with a search interface.
You've got access to saved searches, recent searches, and a list of tags.
This tells us that we are dealing with a completely different beast than webmail, and the user needs to think of new workflows.

The way we are thought of thinking of email is a list of messages.
Some clients can mark messages that are more important, favorite, tag them, move them into folders, etc.
But everywhere I know, the primary interface is just a list - unread email on top, read on the bottom.
The behavior I always expect is to open (or mark as read) all incoming messages and then ignore most of them.
If you spent some time on configuration, maybe you have automatic rules - like moving all newsletters to a "newsletter" folder and removing them from your inbox.
Hey[^hey] is even based on separating all incoming messages into three tiers: important mail, newsletters, and paper trial. 
[^hey]: [Hey email website](https://www.hey.com/). It's the best email service I know, but it doesn't allow any external clients, and the pricing is unacceptable for me.

But back to notmuch.
Look at saved searches - we will use them later.
Open "unread," and we see a semi-normal list of messages.
Use "n" and "p" to select email, enter to open it, and so on - standard Emacs stuff.
One thing to remember is that by default, reading an email will not mark it as read.
You need to manually remove the tag via =k u= - either one by one, or on all messages in a selected region (C-spc, it's still a buffer, after all).
"Unread" here is just another tag.
We can be much smarter with marking actionable items.

**** Automatic Github Pull Review workflow

What we've seen before is nothing more than a normal email client with extra steps.
We read emails in Emacs(1), which is great, but we don't get anything extra.
It's time for a real-world example.

I am a software engineer forced to work with GitHub.
One thing I do is to review pull requests.
The primary problem here is knowing that someone wants me to review something.
The review itself is the easy part :-)

I rely solely on email for this information, ostensibly ignoring all nudges on Slack[^slack].
[^slack]: Back when Slack was first sold, it was proposed not only as a chat tool but also as a single place for all information.
We see it now: we connect Slack to everything - GitHub, jira, Data Dog, or pager duty.
The general idea is great, but Slack is a pretty mediocre application.
The only way to manage what you receive is to leave a channel.
But then you lose all other messages sent there, so the price may be high. 

First of all, we need to enable email notifications from GitHub.
Remember to mark that you want to get emails about your own actions.

Now, let's think about what we want to achieve.
For me it is "I want to know about all the pull requests I should look at without opening browser[fn:gh-cli]".
This means I want to see all the review requests I was assigned (personally or by being part of a team) that I have not yet reviewed.
And it can achieve the same.
However, let's ignore it for now, as the same model of email-based dashboards can be expanded to many other things.

Luckily, GitHub allows us to get that from email:
1. When you are first assigned a review, you get a dedicated email
2. When you approve or reject a PR, you get an email
3. When someone asks you to re-review an email, you get the same email as it was the first request for this PR.

We now know that we can use Notmuch(1).
There are two ways: we can use =notmuch-hooks(5)= and place a shell script in =~/Mail/.notmuch/hooks/post-new, but it never worked reliably for me.
Instead, I have a cron job that runs a script:

#+BEGIN_SRC shell -n
#!/usr/bin/env sh

notmuch tag +gh -unread -- '(from:notifications@github.com)'

# Mark new review requests
for thread in $(notmuch search --sort=oldest-first --output=threads -- "\"requested your review on\" and tag:gh and -tag:gh-pr-done"); do
    for msg in $(notmuch search --sort=oldest-first --output=messages -- "$thread"); do
	txt=$(notmuch show "$msg")

	(echo "$txt" | grep "requested your review on") && notmuch tag +gh-pr-todo -- "$thread"
	(echo "$txt" | grep "@michalsapka approved this pull request") && notmuch tag -gh-pr-todo -- "$thread"
	(echo "$txt" | grep "@michalsapka requested changes on this pull request") && notmuch tag -gh-pr-todo -- "$thread"
	(echo "$txt" | grep "Merged.*into") && notmuch tag -gh-pr-todo +gh-pr-done -- "$thread"
    done
done
#+END_SRC

Let's break it down:
1. First, we add a "gh" tag to all notification emails from GitHub and remove the "unread" tag.
   I don't need to be notified about all such emails, but I can still look at the "gh" tag if needed.
2. Then we search for threads where an email informs me about a review request.
   I limit the search to emails from GitHub via the tag from #1 and those without "gh-pr-done" tag. More on the second one in a moment
3. Then I search for all messages in such threads.
   I force order as oldest-first to make it possible to reason about.
   In normal PR, all actions happen with a significant delay between them, so this should be enough not to get lost in the timeframe.
   If I ask for a change in review, the re-request will not happen instantly.
   Note that I get the email body as a variable on line 8.
4. Then comes the meat.
   I will tag the entire thread multiple times based on the body of the message.
   When a request comes, a "gh-pr-todo" is added.
   I need to look at it.
   When I approve or reject a PR, the tag is removed.
   If someone asks for a review, logic from line 10 will be triggered, and the tag will be added again.
   This means that I want to handle all email threads with the "gh-pr-todo" tag.
6. Lastly, when a PR is merged, I ensure that the "gh-pr-todo" tag is removed, and I add the "gh-pr-done" tag so this thread will not be found in step 2 in the future.

There are other ways to tag, like afew(1)[fn:afew], but keeping it to simple shell script working with notmuch(1) directly gives us the greatest amount of freedom and made it easier for me to tell this story.
[fn:afew] [[https://github.com/afewmail/afew][Afew on Github]]
[fn:gh-cli] There is the GitHub CLI which is amazing by itself - one of the best things that GitHub has done in the last few years.

**** Making it more visible

This alone would be a challenge to manage.
An email with a tag would be easily missed.
Notmuch has us covered yet again! My emacs config has a few dedicated lines:

#+BEGIN_SRC emacs-lisp -n
(setq notmuch-search-line-faces
     '(("gh-pr-todo" . ((t :foreground "#f77"))))
     notmuch-saved-searches
     ;; other saved searches omitted
     ( :name "GitHub[reviews]"
       :query "tag:gh-pr-todo"
       :sort-order newest-first))
#+END_SRC

This makes two changes.

1. Firstly, all messages with "gh-pr-todo" will be shown in red in any email list.
   All red items are actionable since we remove this tag in the workflow.
2. Secondly, amongst other saved searches, I have one dedicated to PRs.

With those two things, every time I enter =notmuch-hello= screen, I get instant information about the work I need to do.

**** Making it extra visible

But we can go one step further.
Prot's[fn:prot] excellent notmuch-indicator[fn: not-ind] allows us to add saved searches to the mode line.
After installing it, the configuration is straightforward:

#+BEGIN_SRC emacs-lisp
(notmuch-indicator-mode 1)
(setq notmuch-indicator-refresh-count 60
      notmuch-indicator-hide-empty-counters t
      notmuch-indicator-args
      '((:terms "tag:gh-pr-todo":label "pr:")))
#+END_SRC

This adds a "pr:<count>" to the mode line.
The count is the number of messages, not threads, but frankly, I want it to be 0.
The counter will be refreshed every 60 seconds.
And lastly, if the count is 0, the label will not be added to the mode line.

[fn:prot] [Prot's website](https://protesilaos.com/)
[fn:not-ind] [notmuch-indicator repository](https://git.sr.ht/~protesilaos/notmuch-indicator)

**** The downsides

Notmuch comes with one significant downside: lack of multi-device support.
It's 2023, and most of us have more than one computer and those pesky mobile phones. 

As for the mobile - I have no solution.
The read statuses will sync via mbsync(1), but not much else.
I try to purge myself from phone addiction, so maybe that's a plus?

As for the other computers, we have muchsync(1)[fn:muchsync].
It's an external application designed to sync entire mailboxes and tags between devices over ssh.
I have not tried it yet[fn:boundries], but it looks promising. 

[fn:muchsync] [[https://www.muchsync.org/][Muchsync homepage]]
[fn:boundries] my work computer gets all work messages, and my private one gets all private ones—complete separation. When I get a second personal machine, I will set it up, but for now, there is no use case for me.

**** Summary

With local email and tools like notmuch(1), we are not at the mercy of external tools for even sophisticated workflows. If you get transactional emails, you can extract actionable data. It can be JIRA tickets, Pager Duty alerts, heck - even Amazon deliveries. Here I have demonstrated how easy it is to leverage notmuch(1), simple shell script, and emacs(1) to have a  fully automated notification setup. It does not try to hijack your attention (like mobile notifications do) and is not hidden on some webpage (like GitHub notification), but it still gives actionable results. And all that without leaving the comfort of Emacs. 

One cool thing I plan to apply soon is integrating notmuch(1) with Org-mode with the ol-notmich[oln] package. But for now, I am in the process of moving as many external services to a similar workflow as possible.
[^oln]: [ol-notmuch on sourcehut](https://git.sr.ht/~tarsius/ol-notmuch)

*** DONE Watch YouTube with Yeetube and mpv
CLOSED: [2024-02-23 Fri 16:16]
:PROPERTIES:
:EXPORT_FILE_NAME: watch-youtube
:EXPORT_HUGO_CUSTOM_FRONT_MATTER+: :abstract Let's use YouTube from the comfort of Emacs
:EXPORT_HUGO_CUSTOM_FRONT_MATTER+: :aliases '(/emacs/watching-youtube-with-emacs/)
:END:


I may hate YouTube as a service, but I even I can't deny the quality of vlogs there.
Even though I would strongly prefer to follow folks on PeerTube or Odysee, this will not happen anytime soon for most of the channels.
Luckily, with the popularity of YouTube comes quite a few ways to use it in a better way

**** Yeetube

/Yeetube/[fn:yeetube] is an Emacs wrapper around searching and viewing videos on Youtube.
The watching part happens via =mpv=[fn:mpv].
You simply pass the video link (not the page) in the shell and =mpv= will handle the rest.
/Yeetube/ handles everything /before/ we have the actual file, and running =mpv=.

First, let's install it:

#+begin_src emacs-lisp
  (use-package yeetube)
#+end_src

And, assuming =mpv= is already installed, you are ready to go.
Run =yeetube-search=, type in whatever you want and press enter.
A table with top results will show up.
Now, select the one that interests you, run =yeetube-play=, wait a few seconds and mpv window will show.


#+attr_shortcode: :file emacs-yeetube-search.png
#+attr_shortcode: :alt An Emacs screenshot showing a list using a dark mode
#+attr_shortcode: :class centered
#+begin_image
Yeetube search for Emacs Elements
#+end_image

#+attr_shortcode: :file emacs-yeetube-play.png
#+attr_shortcode: :alt A screenshot of a DWM windows manager. Left of the screen is ocupied by MPV, the right one with Emacs.
#+attr_shortcode: :class centered
#+begin_image
mpv playing a movie next to Emacs with Yeetube search.
#+end_image
/Yeetube/ also supports downloading videos via =yt-dl= and saving videos for future reference.

My full config, with evil keybindings looks like:

#+begin_src emacs-lisp
  (use-package yeetube
    :general
    (:states 'normal
             :keymaps 'yeetube-mode-map
             "RET" 'yeetube-play
             "d" 'yeetube-download-video
             "b" 'yeetube-play-saved-video
             "B" 'yeetube-save-video
             "x" 'yeetube-remove-saved-video
             "/" 'yeetube-search
             "0" 'yeetube-toggle-video
             ))
#+end_src

Note that this comes with no ads, and less tracking, but also less revenue to the creator.
Being a patron is a good way to feel better about it.


[fn:yeetube] [[https://thanosapollo.org/post/yeetube/]["yeetube | Emacs Front-End for YouTube"]] blog post from the author
[fn:mpv] [[https://mpv.io/][mpv official website]]

**** Link handler

This is nice, but we can make it /extra-nice/.
I subscribe to quite a few YouTube channels via RSS[fn:ytrss] and want to use /Yeetube/ fast.
We can write a very simple /elisp/ function:

#+begin_src emacs-lisp
  (defun mms-open-yt-under-point ()
    (interactive)
    (setq url (thing-at-point 'url))
    (string-match "youtube.com" url)
#+end_src

Now, move the pointer on a YT[fn:providers] link and call this function.
/Yeetube/ interface will open, so just play the top result.

My (current) full function in use is:

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

So it will use =eww= for anything that is not a YT link, and I can expand it further whenever I want.

Then, just add a simple keyboard navigation, and you're done

#+begin_src emacs-lisp
  (mms-leader-keys
    "RET RET" '(lambda () (interactive) (mms-open-link-under-point) :wk "follow link"))
#+end_src

**** Errata

2024-02-26: Dave pointed me that using =let= inside custom method is preferable to =setq=

[fn:ytrss] The secret URL: =https://www.youtube.com/feeds/videos.xml?channel_id=<channel_id>=. 
You can find the channel ID using different online services, as it is not as straight forward as it should be.
[fn:providers] Only if the package registers itself as a provider for =thing-at-point=.
In Elfeed it will for main item URL, but not for items embedded in the body.
We need to use =eww= to open the page and we can get the URL from there.


*** DONE Play Interactive Fiction with Malyon
CLOSED: [2024-06-20 Thu 22:38]
:PROPERTIES:
:EXPORT_FILE_NAME: interactive-fiction-malyon
:EXPORT_HUGO_CUSTOM_FRONT_MATTER+: :abstract Play classic text adventures with Emacs
:END:

#+begin_quote
The IFTF defines interactive fiction—IF, for short—as a kind of video game where the player’s interactions primarily involve text.
Under this broad definition, we can find decades of IF work taking many interesting and innovative forms.

Parser-based IF, also known as the “text adventure” genre, represents one of the oldest and best-known forms of interactive fiction.
Some early examples are digital games from the 70s and 80s like Zork and Enchanter.
In a parser game, players type natural-language commands into a simulated world, and the game interprets them as actions for the story’s main character to carry out.
Parser games often involve puzzles that the player must solve to move forward in the story.

-- [[https://iftechfoundation.org/frequently-asked-questions/][Interactive Fiction Technology Foundation]]
#+end_quote

Games?
With text?
And thinking?
Sounds like a great match for Emacs!
Text and your favorite color scheme and keybindings.

**** Z-machine

Interactive Fiction (aka /IF/) is overengineered since it's inception.
/Infocom/, the company behind Zork, created a virtual machine (/Z/), just to make it easier to port their games to different architectures.
The machine is stil alive today, with vibrant community pushing new titles all the time.
It was also ported to Emacs, with the /malyon/ package. 

#+attr_shortcode: :file malyon-zork.png
#+attr_shortcode: :alt An Emacs screenshot showing first few moves in Zork games
#+attr_shortcode: :class centered
#+begin_image
Zork in Emacs
#+end_image

Intallation is very straight forward, just

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

And we're ready to play!

Call =malyon= to open a games, =malyon-restore-file= to restore a previously saved game, and =malyon-quit= if the package breaks.
=malyon-restore= will activate buffer with game in progress.
You can save the gamy any time issuing the =save= command to the interpreter - that is in /the game/, not in =M-x=.


**** Formats

Malon supports Z-machine based games only, and only three versions (z3, z5, z8).
You can determine version of Z-machine of a game, as the extension will match the version.

The extremey popular =gblorb=, which supports things like embedded graphics, unfortunatelly is not supported.

**** Getting games

You can a lot (over 8,5k) Interactive Fiction titles on [[https://ifdb.org/][Interactive Fiction Database]].
Be sure to check compatibility!

**** Other resources

- [[http://www.brasslantern.org/beginners/index.html][Beginner Resources]] on Brass Lantern. Great place to start.
- [[https://archive.org/details/getlamp-interviews][Get Lamp]] on Internet Archive. An amazing documetary on the early days of IF.



** Appendix
:PROPERTIES:
:EXPORT_HUGO_MENU: :menu cool-emacs-appendix
:EXPORT_HUGO_CUSTOM_FRONT_MATTER+: :primary_menu cool-emacs-appendix
:END:

*** DONE Emacs as a Shell
CLOSED: [2023-04-13 Wed 23:00]
:PROPERTIES:
:EXPORT_FILE_NAME: emacs-as-a-shell
:EXPORT_HUGO_CUSTOM_FRONT_MATTER+: :abstract My current understanding of Emacs
:EXPORT_HUGO_CUSTOM_FRONT_MATTER+: :aliases '(/2023/emacs-as-a-shell/ /emacs/emacs-as-a-shell/)
:END:

Pavel Korytov writes in his [[https://sqrtminusone.xyz/posts/2023-04-13-emacs/][recent post]];

#+BEGIN_QUOTE
So over time, Emacs has become my programming environment, email client, window manager, knowledge base, and a lot more. I think I ended up using Emacs for almost as many things as possible;
#+END_QUOTE

This is where I want to be in the near future.
So far I've moved my development environment and email to Emacs.
Next up are notes, RSS reading, and music listening. 

What I love about Emacs is the consistency between modes/packages.
They accomplish widely different things, but the general control scheme is the same.
It's great since all TUI programs I use tend to support Vim's way of doing things.
Having it all inside Emacs changes the dynamic.
I'm trying to think of Emacs as a shell rather than an editor. 

What Emacs really is, is a virtual machine running LISP code.
Some say that Emacs violates Linux philosophy.
I don't see it this way.
Does shell violate it?
It's also a way to run different programs.
Emacs is an abstraction over real shell which adds some calm to it.
It's a way to have an interactive layer over OS... which also does text editing.

So, when you look at it this way, Emacs makes a lot of sense:
- It runs programs.
  Bigger packages, like Magit, are nothing short of real programs.
- It's scriptable.
  Elisp all the way!
- It allows for interoperability between programs. 
- It runs above basic OS.
  You can replace your window manager with Emacs, but you need some sort of kernel.
- You can live entirely inside Emacs, just like you can live entirely inside a terminal. 


*** DONE Multiprocess Emacs environment
CLOSED: [2024-06-17 Mon 17:46]
:PROPERTIES:
:EXPORT_FILE_NAME: multi-process-emacs
:EXPORT_HUGO_CUSTOM_FRONT_MATTER+: :abstract Running dedicated Emacs processes
:END:

The more you move into Emacs, the happier you may become.
But at the same time, Emacs is not a *real* shell, but a text editor.
This means there is no real way to manage functionality similarly one would manage applications.
It's all a buffer - the file you opened, each IRC channel, email list, and so on.
There are ways to manage it, like dedicated "workspace" plugins[fn:perspective] or simple tabs.
But all those don't fit my mental model.
I am "Editing a file" or "chatting" or "writing a web page".
Those are separate concerns, so I want to have dedicated spaces for them.

At the same time I want them in Emacs, as it gives me a unified interface.
I don't need to think how to change IRC channel, how to spell check, or how to actually write in my selected keybindings.

**** Dedicated Emacs instances

This led me to use multiple, dedicated Emacs instances.
This way, I've a got a dedicated IRC client, Code editor, Notepad, Email client, and so on.
I have unified interface, but at the same time it's still akin to dedicated programs.

This has the added benefit of fault protection.
Tramp session hanging entire Emacs doesn't disconnect me from IRC, as those are separate processes.

Therefore, I have functions which I call /ultimate modes/[fn:music] to configure Emacs for given use case.

A simple ultimate mode for IRC would look like:

#+begin_src emacs-lisp
  (defun mms-irc-mode()
    "use this instance of Emacs for IRC"
    (interactive)

    (load-theme 'ef-bio)

    (erc-tls :server "irc.tilde.chat" :port "6697"
             :nick "mms" :full-name "https://michal.sapka.me")
    (erc-tls :server "irc.libera.chat" :port "6697"
         :nick "mms" :full-name "https://michal.sapka.me")
    )
#+end_src


This simple function:
- Loads a dedicated theme, so I won't get lost. IRC is a happy place, therefore green.
- Connects me to my servers

ERC is configured elsewhere, so all auto-joins are there, just redacted, but nothing limits the number of things the ultimate mode setup up.
Want to defer loading of bigger package?
Want to reconfigure Ispell language?
Or maybe you want to load parts of Emacs configurations only when they make sense?
Shy is the limit!

Now, I can either run =Emacs= and call =mms-irc-mode= or have a dedicated OS level key binding to run Emacs in this mode via:

#+begin_src shell
emacs --eval='(mms-irc-mode)'
#+end_src

This method could easily be expanded to run dedicated =emacs servers= and connected clients, but I wanted a simpler way.

[fn:perspective] Like [[https://github.com/nex3/perspective-el][perspective.el]]
[fn:music] Yes, it breaks the musical theory naming scheme.
I could have used "tonic" there to run the =erc= and pla play with the wordplay, but I decided against it.
Dammit Jim, I'm an engineer, not a musician!
Also, diatonic modes don't fit the "larger than major" mode.