diff --git a/ha-aux-apps.org b/ha-aux-apps.org index 717424c..f4bcfdf 100644 --- a/ha-aux-apps.org +++ b/ha-aux-apps.org @@ -41,7 +41,7 @@ I would like a dedicate perspective to Mastodon, and I would like a leader key s #+begin_src emacs-lisp (use-package mastodon :config - (ha-leader "a m" `("mastodon" . ,(lambda () (interactive) (ha-tab-bar-new "mastodon" #'mastodon)))) + (ha-leader " M" `("mastodon" . ,(lambda () (interactive) (ha-tab-bar-new "mastodon" #'mastodon)))) (defun ha-mastodon-scroll-or-more () "Scroll a window, and at the end, get more entries in timeline." @@ -162,7 +162,9 @@ I'm thinking the [[https://zevlg.github.io/telega.el/][Telega package]] would be (when (fboundp 'evil-insert-state) (add-hook 'telega-chat-mode-hook 'evil-insert-state)) - (ha-leader "a t" `("telega" . ,(lambda () (interactive) (ha-tab-bar-new "telega" #'telega))))) + (ha-leader " T" `("telega" . + ,(lambda () (interactive) + (ha-tab-bar-new "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. @@ -215,12 +217,26 @@ And my [[https://gitlab.com/howardabrams/emacs-ironsworn][new Ironsworn project] The project is interesting, and I should record a tutorial how to use it. * Playing Music After building a NAS out of a Raspberry Pi to hold my /ripped/ CD collection, let’s control my playlists from Emacs. -A more /rich/ experience than the [[https://github.com/isamert/empv.el][empv]] project is ⁨Álvaro’s [[https://github.com/xenodium/ready-player][ready-player]]. First install [[https://mpv.io/][mpv]]: + +A more /rich/ experience than the [[https://github.com/isamert/empv.el][empv]] project is [[https://github.com/xenodium/ready-player][ready-player]]. First install [[https://mpv.io/][mpv]]: #+BEGIN_SRC sh brew install mpv #+END_SRC +The =mpv= executable comes on my Linux, but I need to installed the requisite apps in order to mount my library: + +#+BEGIN_SRC sh + sudo apt install cifs-utils -y +#+END_SRC + +And create the mount points: + +And update our [[/sudo:/etc/fstab][/etc/fstab]] file with: +#+BEGIN_SRC conf + //myserver/myshare /mnt/smbshare cifs credentials=/root/.smbcredentials,iocharset=utf8,file_mode=0777,dir_mode=0777 0 0 +#+END_SRC + And make sure we can play it: #+BEGIN_SRC sh diff --git a/ha-config.org b/ha-config.org index c8664cf..08100a0 100644 --- a/ha-config.org +++ b/ha-config.org @@ -1281,7 +1281,8 @@ Also, as [[https://www.bytedude.com/gpg-in-emacs/][bytedude]] mentions, I need t (auth-source-cache-expiry nil) :config - (setenv "GPG_AGENT_INFO" nil) + ;; Set this to nil if you are not running gpg-agent service + ;; (setenv "GPG_AGENT_INFO" nil) (ignore-error (epa-file-enable))) #+end_src diff --git a/ha-email.org b/ha-email.org index 9410517..6017038 100644 --- a/ha-email.org +++ b/ha-email.org @@ -132,8 +132,11 @@ Also, let's do some basic configuration of Emacs' mail system: #+end_src Create a special mail perspective: -#+begin_src emacs-lisp :tangle no - (ha-leader "a M" `("mail" . ,(ha-tab-bar-new "mail" #'notmuch))) +#+begin_src emacs-lisp + (ha-leader + " N" `("notmuch mail" . + ,(lambda () (interactive) + (ha-tab-bar-new "mail" #'notmuch)))) #+end_src * Configuration Do I want to sign messages by default? Nope. diff --git a/ha-feed-reader.org b/ha-feed-reader.org index d267d48..7237d92 100644 --- a/ha-feed-reader.org +++ b/ha-feed-reader.org @@ -87,7 +87,9 @@ According to Ben Maughan and [[http://pragmaticemacs.com/emacs/to-eww-or-not-to- And some global keys to display them in the =apps= menu: #+begin_src emacs-lisp - (ha-leader "a f" `("feed reader" . ,(ha-tab-bar-new "elfeed" #'elfeed))) + (ha-leader " F" `("feed reader" . + ,(lambda () (interactive) + (ha-tab-bar-new "feeds" #'elfeed)))) #+end_src * The Feeds :elfeed: The [[https://github.com/remyhonig/elfeed-org][elfeed-org]] project configures =elfeed= to read the RSS feeds from an Org file … like this one! diff --git a/ha-irc.org b/ha-irc.org index 0ea7fb9..af66aca 100644 --- a/ha-irc.org +++ b/ha-irc.org @@ -102,7 +102,8 @@ Quick way to start and jump to my IRC world. And some global keys to display them: #+begin_src emacs-lisp - (ha-leader "a i" `("irc" . ,(ha-tab-bar-new "irc" #'ha-erc))) + (ha-leader " I" `("irc" . ,(lambda () (interactive) + (ha-tab-bar-new "irc" #'ha-erc)))) #+end_src And a quick shortcuts to call it: diff --git a/laptop_keyboard.kbd b/laptop_keyboard.kbd index 38e0c25..cba1a31 100644 --- a/laptop_keyboard.kbd +++ b/laptop_keyboard.kbd @@ -15,6 +15,9 @@ ;; ;; Running: ;; sudo kanata --cfg ~/src/hamacs/laptop_keyboard.kbd +;; Or: +;; sudo ~/.local/bin/kanata --cfg ~/src/hamacs/laptop_keyboard.kbd + (deflocalkeys-macos ì 13) @@ -24,8 +27,8 @@ ;; have to modify the code in the `defcfg' section below. (defcfg - ;; linux-dev-names-include ("Apple Internal Keyboard / Trackpad") - macos-dev-names-include ("Apple Internal Keyboard / Trackpad")) + ;; macos-dev-names-include ("Apple Internal Keyboard / Trackpad") + linux-dev-names-include ("Apple Inc. Apple Internal Keyboard / Trackpad")) ;; What keys are we re-defining? This is my Macbook Pro layouts, as ;; both laptops are this hardware. @@ -39,7 +42,7 @@ tab q w e r t y u i o p [ ] \ caps a s d f g h j k l ; ' ret lsft z x c v b n m , . / rsft - fn lctl lalt lmet spc rmet ralt) + menu lctl lalt lmet spc rmet ralt) (defvar tap-time 200