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:
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
|
#+begin_src emacs-lisp
|
||||||
(use-package mastodon
|
(use-package mastodon
|
||||||
:config
|
: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 ()
|
(defun ha-mastodon-scroll-or-more ()
|
||||||
"Scroll a window, and at the end, get more entries in timeline."
|
"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)
|
(when (fboundp 'evil-insert-state)
|
||||||
(add-hook 'telega-chat-mode-hook '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
|
#+end_src
|
||||||
For some reason, you need [[https://github.com/Fanael/rainbow-identifiers][rainbow-identifiers]] to work, oh, I guess the docs state this.
|
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.
|
The project is interesting, and I should record a tutorial how to use it.
|
||||||
* Playing Music
|
* Playing Music
|
||||||
After building a NAS out of a Raspberry Pi to hold my /ripped/ CD collection, let’s control my playlists from Emacs.
|
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
|
#+BEGIN_SRC sh
|
||||||
brew install mpv
|
brew install mpv
|
||||||
#+END_SRC
|
#+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:
|
And make sure we can play it:
|
||||||
|
|
||||||
#+BEGIN_SRC sh
|
#+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)
|
(auth-source-cache-expiry nil)
|
||||||
|
|
||||||
:config
|
: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)))
|
(ignore-error (epa-file-enable)))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -132,8 +132,11 @@ Also, let's do some basic configuration of Emacs' mail system:
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
Create a special mail perspective:
|
Create a special mail perspective:
|
||||||
#+begin_src emacs-lisp :tangle no
|
#+begin_src emacs-lisp
|
||||||
(ha-leader "a M" `("mail" . ,(ha-tab-bar-new "mail" #'notmuch)))
|
(ha-leader
|
||||||
|
"<tab> N" `("notmuch mail" .
|
||||||
|
,(lambda () (interactive)
|
||||||
|
(ha-tab-bar-new "mail" #'notmuch))))
|
||||||
#+end_src
|
#+end_src
|
||||||
* Configuration
|
* Configuration
|
||||||
Do I want to sign messages by default? Nope.
|
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:
|
And some global keys to display them in the =apps= menu:
|
||||||
#+begin_src emacs-lisp
|
#+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
|
#+end_src
|
||||||
* The Feeds :elfeed:
|
* 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!
|
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:
|
And some global keys to display them:
|
||||||
#+begin_src emacs-lisp
|
#+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
|
#+end_src
|
||||||
|
|
||||||
And a quick shortcuts to call it:
|
And a quick shortcuts to call it:
|
||||||
|
|
|
||||||
|
|
@ -15,6 +15,9 @@
|
||||||
;;
|
;;
|
||||||
;; Running:
|
;; Running:
|
||||||
;; sudo kanata --cfg ~/src/hamacs/laptop_keyboard.kbd
|
;; sudo kanata --cfg ~/src/hamacs/laptop_keyboard.kbd
|
||||||
|
;; Or:
|
||||||
|
;; sudo ~/.local/bin/kanata --cfg ~/src/hamacs/laptop_keyboard.kbd
|
||||||
|
|
||||||
|
|
||||||
(deflocalkeys-macos
|
(deflocalkeys-macos
|
||||||
ì 13)
|
ì 13)
|
||||||
|
|
@ -24,8 +27,8 @@
|
||||||
;; have to modify the code in the `defcfg' section below.
|
;; have to modify the code in the `defcfg' section below.
|
||||||
|
|
||||||
(defcfg
|
(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
|
;; What keys are we re-defining? This is my Macbook Pro layouts, as
|
||||||
;; both laptops are this hardware.
|
;; both laptops are this hardware.
|
||||||
|
|
@ -39,7 +42,7 @@
|
||||||
tab q w e r t y u i o p [ ] \
|
tab q w e r t y u i o p [ ] \
|
||||||
caps a s d f g h j k l ; ' ret
|
caps a s d f g h j k l ; ' ret
|
||||||
lsft z x c v b n m , . / rsft
|
lsft z x c v b n m , . / rsft
|
||||||
fn lctl lalt lmet spc rmet ralt)
|
menu lctl lalt lmet spc rmet ralt)
|
||||||
|
|
||||||
(defvar
|
(defvar
|
||||||
tap-time 200
|
tap-time 200
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue