247 lines
10 KiB
Org Mode
247 lines
10 KiB
Org Mode
#+title: Auxillary and Optional Applications
|
||
#+author: Howard X. Abrams
|
||
#+date: 2021-11-18
|
||
#+tags: emacs
|
||
|
||
A literate programming file for helper apps in Emacs.
|
||
|
||
#+begin_src emacs-lisp :exports none
|
||
;;; ha-aux-apps --- Configuring helper apps in Emacs. -*- lexical-binding: t; -*-
|
||
;;
|
||
;; © 2021-2023 Howard X. Abrams
|
||
;; Licensed under a Creative Commons Attribution 4.0 International License.
|
||
;; See http://creativecommons.org/licenses/by/4.0/
|
||
;;
|
||
;; Author: Howard X. Abrams <http://gitlab.com/howardabrams>
|
||
;; Maintainer: Howard X. Abrams
|
||
;; Created: November 18, 2021
|
||
;;
|
||
;; This file is not part of GNU Emacs.
|
||
;;
|
||
;; *NB:* Do not edit this file. Instead, edit the original literate file at:
|
||
;; ~/src/hamacs/ha-aux-apps.org
|
||
;; And tangle the file to recreate this one.
|
||
;;
|
||
;;; Code:
|
||
#+end_src
|
||
* Introduction
|
||
The following applications are not needed. I alternate between trying to /stay in Emacs/ taking advantage of the consistent interface, and using a stand-alone app on my Workday computer.
|
||
* Federation
|
||
** Mastodon
|
||
Glad to see the 2FA feature is working on the [[https://codeberg.org/martianh/mastodon.el][mastodon.el]] project, and even more glad to see the great birdland diaspora arrive in the land of the toots.
|
||
#+begin_src emacs-lisp
|
||
(use-package mastodon
|
||
:straight (:host codeberg :repo "martianh/mastodon.el")
|
||
:init
|
||
(setq mastodon-instance-url "https://pdx.sh"
|
||
mastodon-active-user "howard"))
|
||
#+end_src
|
||
|
||
I would like a dedicate perspective to Mastodon, and I would like a leader key sequence that /expands/ will all options, once Mastodon is running in its own perspective:
|
||
#+begin_src emacs-lisp
|
||
(use-package mastodon
|
||
:config
|
||
(ha-leader "a m" `("mastodon" . ,(ha-app-perspective "mastodon" #'mastodon)))
|
||
|
||
(defun ha-mastodon-scroll-or-more ()
|
||
"Scroll a window, and at the end, get more entries in timeline."
|
||
(interactive)
|
||
(condition-case nil
|
||
(scroll-up-command)
|
||
(end-of-buffer
|
||
(mastodon-tl--more))))
|
||
|
||
(use-package major-mode-hydra
|
||
:config
|
||
(major-mode-hydra-define mastodon-mode nil
|
||
("Timelines"
|
||
(("u" mastodon-tl--update "update")
|
||
("F" mastodon-tl--get-federated-timeline "Federated")
|
||
("H" mastodon-tl--get-home-timeline "Home")
|
||
("L" mastodon-tl--get-local-timeline "Local")
|
||
("T" mastodon-tl--get-tag-timeline "Hashtag"))
|
||
"Specials"
|
||
(("M" mastodon-notifications--get-mentions "Mentions")
|
||
("N" mastodon-notifications-get "Notifications")
|
||
("A" mastodon-tl--followed-tags-timeline "All Tags")
|
||
("S" mastodon-profile--view-bookmarks "Saved bookmarks")
|
||
("O" mastodon-profile--my-profile "My Profile"))
|
||
"Post"
|
||
(("c" mastodon-toot "Compose toot")
|
||
("e" mastodon-toot--edit-toot-at-point "Edit toot")
|
||
("t" mastodon-tl--thread "Read thread")
|
||
("r" mastodon-toot--reply "Reply")
|
||
("m" mastodon-tl--dm-user "Direct Msg")
|
||
("d" mastodon-toot--delete-toot "Delete"))
|
||
"Toot"
|
||
(("f" mastodon-toot--toggle-favourite "Favorite")
|
||
("b" mastodon-toot--toggle-boost "Boost")
|
||
("s" mastodon-toot--toggle-bookmark "Save")
|
||
("y" mastodon-toot--copy-toot-url "Copy URL")
|
||
("Y" mastodon-toot--copy-toot-text "Copy text"))
|
||
"Navigation"
|
||
(("n" mastodon-tl--next-tab-item "next" :color pink)
|
||
("p" mastodon-tl--previous-tab-item "previous" :color pink)
|
||
("," ha-mastodon-scroll-or-more "...more" :color pink))))))
|
||
#+end_src
|
||
|
||
Let’s turn on non-fixed-width fonts to make everything easier to read:
|
||
#+begin_src emacs-lisp
|
||
(use-package mastodon
|
||
:hook (mastodon-mode . mixed-pitch-mode))
|
||
#+end_src
|
||
#+end_src
|
||
** Matrix/Element
|
||
Yet another encrypted chat/VoIP client-server, but unlike Signal and Telegram, [[matrix.org][Matrix]] is act ually open source. In other words, a project for nerds. We’ll be using Alphapapa’s latest [[https://github.com/alphapapa/ement.el][ement]] project.
|
||
#+begin_src emacs-lisp
|
||
(use-package ement
|
||
:straight (:host github :repo "alphapapa/ement.el")
|
||
:config
|
||
(defun ha-ement-connect ()
|
||
(interactive)
|
||
(let* ((auth-results (auth-source-search :host "howardism-matrix"))
|
||
(auth-first (first auth-results))
|
||
(username (plist-get auth-first :user))
|
||
(password (funcall (plist-get auth-first :secret))))
|
||
(ement-connect :user-id username
|
||
:password password
|
||
:uri-prefix "https://howardism.org"))
|
||
|
||
(ha-leader
|
||
"a x S" '("send" . ement-send-direct-message)
|
||
"a x s" '("send" . ement-room-send-message)
|
||
"a x c" '("compose" . ement-room-compose-message)
|
||
"a x r" '("room" . ement-view-room)))
|
||
|
||
(ha-leader
|
||
"a x" '(:ignore t :which-key "matrix")
|
||
"a x x" '("connect" . ha-ement-connect)
|
||
"a x s" '("send" . ement-send-direct-message)))
|
||
#+end_src
|
||
|
||
Perhaps we can make it more attractive:
|
||
#+begin_src emacs-lisp
|
||
(use-package ement
|
||
:hook (ement-room-mode . ha-textual-litagures)
|
||
:custom-face
|
||
(ement-room-self-message ((t (:inherit variable-pitch :height 1.0))))
|
||
(ement-room-message-text ((t (:inherit variable-pitch :height 1.1 :foreground "#f08c60"))))
|
||
:init
|
||
(setq ement-save-sessions t
|
||
ement-room-avatars nil
|
||
ement-room-timestamp-format ""
|
||
ement-room-send-message-filter 'ement-room-send-org-filter))
|
||
#+end_src
|
||
* Other
|
||
** Twitter
|
||
The venerable [[https://github.com/hayamiz/twittering-mode/tree/master][twittering-mode]] allows me to follow all the twits.
|
||
#+begin_src emacs-lisp :tangle no
|
||
(use-package twittering-mode
|
||
:init
|
||
(setq twittering-use-master-password t
|
||
epa-pinentry-mode 'loopback)
|
||
:config
|
||
(defalias 'epa--decode-coding-string 'decode-coding-string)
|
||
(ha-leader "a t" '("twitter" . twit)))
|
||
#+end_src
|
||
And we are no longer using this package.
|
||
** Telega
|
||
I'm thinking the [[https://zevlg.github.io/telega.el/][Telega package]] would be better than Bitlbee for Telegram communication.
|
||
#+begin_src emacs-lisp
|
||
(use-package telega
|
||
:config
|
||
(setq telega-user-use-avatars nil
|
||
telega-use-tracking-for nil ; '(any pin unread)
|
||
;; Use org formatting for normal messages.
|
||
;; Want to send the org markup without formatting?
|
||
;; The `nil' sets that with `C-u' then Return:
|
||
telega-chat-input-markups '("org" nil)
|
||
telega-emoji-use-images t
|
||
; telega-completing-read-function #'ivy-completing-read
|
||
telega-msg-rainbow-title nil)
|
||
|
||
(when (fboundp 'evil-insert-state)
|
||
(add-hook 'telega-chat-mode-hook 'evil-insert-state))
|
||
|
||
(ha-leader "a t" `("telega" . ,(ha-app-perspective "telega" #'telega))))
|
||
#+end_src
|
||
For some reason, you need [[https://github.com/Fanael/rainbow-identifiers][rainbow-identifiers]] to work, oh, I guess the docs state this.
|
||
|
||
In the Telega chat’s, let’s turn on non-fixed-width fonts:
|
||
#+begin_src emacs-lisp
|
||
(use-package telega
|
||
:hook (telega-chat-mode . mixed-pitch-mode))
|
||
#+end_src
|
||
* RPG DM
|
||
Been working on my [[https://gitlab.com/howardabrams/emacs-rpgdm][RPG DM project]] for getting Emacs helping as a /Dungeon Master's Assistant/. The idea is to be able to roll dice and whatnot. What I find most useful is the [[https://gitlab.com/howardabrams/emacs-rpgdm/-/blob/main/rpgdm-tables.el][random tables]].
|
||
#+begin_src emacs-lisp
|
||
(when (f-directory? "~/src/emacs-rpgdm")
|
||
(use-package rpgdm
|
||
:straight (:local-repo "~/src/emacs-rpgdm")
|
||
:commands (rpgdm-mode rpgdm-tables-load)
|
||
:init (setq rpgdm-base (expand-file-name "~/src/emacs-rpgdm"))
|
||
:config (ha-leader "t D" '("rpg dm" . rpgdm-mode))))
|
||
#+end_src
|
||
|
||
Working on my new replacement of my DM code:
|
||
#+begin_src emacs-lisp
|
||
(when (f-directory? "~/src/emacs-rpgtk")
|
||
(use-package rpgtk
|
||
:straight (:local-repo "~/src/emacs-rpgtk")
|
||
:after hydra
|
||
;; :commands (rpgtk-mode rpgtk-tables-load rpgtk-dice rpgtk-message)
|
||
:custom
|
||
(rpgtk-tables-directory (expand-file-name "~/src/emacs-rpgtk/tables"))
|
||
|
||
:config
|
||
(ha-leader
|
||
"t D" '("rpg dm" . rpgtk-mode)
|
||
"a d" '("rpg dm" . hydra-rpgtk/body))))
|
||
#+end_src
|
||
|
||
|
||
And my [[https://gitlab.com/howardabrams/emacs-ironsworn][new Ironsworn project]] expands on it, giving me both the Oracles and the Moves. With an Org file, I can easily play Solo:
|
||
#+begin_src emacs-lisp
|
||
(when (f-directory? "~/src/emacs-ironsworn")
|
||
(use-package rpgdm-ironsworn
|
||
:after rpgdm
|
||
:straight (:local-repo "~/src/emacs-ironsworn")
|
||
:init
|
||
(setq rpgdm-ironsworn-project (expand-file-name "~/src/emacs-ironsworn")
|
||
;; Ignore org links that call my RPG functions:
|
||
org-link-elisp-skip-confirm-regexp (rx string-start (optional "(") "rpgdm-"
|
||
(or "tables-" "ironsworn-")
|
||
(one-or-more any)))))
|
||
#+end_src
|
||
The project is interesting, and I should record a tutorial how to use it.
|
||
* Playing Music
|
||
Why not? Let’s see if the [[https://github.com/isamert/empv.el][empv]] project is sufficient. First install =mpv=, as in:
|
||
#+begin_src sh
|
||
brew install mpv
|
||
#+end_src
|
||
What else?
|
||
#+begin_src emacs-lisp
|
||
(use-package empv
|
||
:straight (:host github :repo "isamert/empv.el")
|
||
:general (ha-leader
|
||
"a p" '(empv-map :wk "play music")))
|
||
#+end_src
|
||
|
||
* Technical Artifacts :noexport:
|
||
Let's =provide= a name so we can =require= this file:
|
||
|
||
#+begin_src emacs-lisp :exports none
|
||
(provide 'ha-aux-apps)
|
||
;;; ha-aux-apps.el ends here
|
||
#+end_src
|
||
|
||
#+description: A literate programming file for helper apps in Emacs.
|
||
|
||
#+property: header-args:sh :tangle no
|
||
#+property: header-args:emacs-lisp :tangle yes
|
||
#+property: header-args :results none :eval no-export :comments no mkdirp yes
|
||
|
||
#+options: num:nil toc:t todo:nil tasks:nil tags:nil date:nil
|
||
#+options: skip:nil author:nil email:nil creator:nil timestamp:nil
|
||
#+infojs_opt: view:nil toc:t ltoc:t mouse:underline buttons:0 path:http://orgmode.org/org-info.js
|