feat: cool emacs, pub preview

1 files changed, 641 insertions, 8 deletions

diff --git a/content-org/cool-emacs.org b/content-org/cool-emacs.org
index 3e786dd..fac7002 100644
--- a/content-org/cool-emacs.org
+++ b/content-org/cool-emacs.org
@@ -9,22 +9,655 @@
 
 * CE                                                    :@emacs:
 :PROPERTIES:
-:EXPORT_HUGO_CUSTOM_FRONT_MATTER+: :image_dir "cool-emacs" :image_max_width 480
-:EXPORT_HUGO_PAIRED_SHORTCODES: image tableofcontent
+:EXPORT_HUGO_CUSTOM_FRONT_MATTER: :image_dir "cool-emacs" :image_max_width 480
+:EXPORT_HUGO_PAIRED_SHORTCODES: image tableofcontent menu
 :END:
+
 ** Cool Emacs
 :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: :emacs
+:EXPORT_HUGO_MENU: :menu emacs :post "Emacs usage that is not text editing"
+:END:
+
+#+begin_quote
+Let me tell you: Emacs is not a text editor<br>
+
+-- 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
+
+** Ways
+:PROPERTIES:
+:EXPORT_HUGO_MENU: :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 artucles
+#+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:
 
-#+begin_export hugo
-{{ .TableOfContents }}
-#+end_export
 
+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.
+
+** Appendix
+:PROPERTIES:
+:EXPORT_HUGO_MENU: :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.
 
-aaa  ;
-*** Instance management 
+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.