Move tab-bar specific apps to under <TAB> key
Unclear which apps opened a new tab-bar workspace, and which ones didn't, so they are now under the TAB key.
This commit is contained in:
Howard Abrams
parent
02fb306fbe
commit
4920226270
6 changed files with 37 additions and 11 deletions
|
|
@ -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 "<tab> 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 "<tab> 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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
"<tab> N" `("notmuch mail" .
|
||||
,(lambda () (interactive)
|
||||
(ha-tab-bar-new "mail" #'notmuch))))
|
||||
#+end_src
|
||||
* Configuration
|
||||
Do I want to sign messages by default? Nope.
|
||||
|
|
|
|||
|
|
@ -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 "<tab> 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!
|
||||
|
|
|
|||
|
|
@ -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 "<tab> I" `("irc" . ,(lambda () (interactive)
|
||||
(ha-tab-bar-new "irc" #'ha-erc))))
|
||||
#+end_src
|
||||
|
||||
And a quick shortcuts to call it:
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in a new issue