Add more apps to my "a" key

This commit is contained in:
Howard Abrams 2022-03-03 15:08:09 -08:00
parent 2472e40358
commit a05a473093
4 changed files with 93 additions and 72 deletions

View file

@ -198,16 +198,16 @@ The following loads the rest of my org-mode literate files. I add them as they a
"ha-remoting.org" "ha-remoting.org"
"ha-programming.org" "ha-programming.org"
"ha-programming-python.org" "ha-programming-python.org"
,(unless (ha-emacs-for-work?) ,(if (ha-emacs-for-work?)
'("ha-org-sprint.org" "ha-work.org")
;; Personal Editor
'("ha-org-journaling.org" '("ha-org-journaling.org"
"ha-irc.org" "ha-irc.org"
"ha-org-publishing.org" "ha-org-publishing.org"
"ha-email.org" "ha-email.org"
"ha-programming-scheme.org"
"ha-aux-apps.org" "ha-aux-apps.org"
"ha-feed-reader.org")) "ha-feed-reader.org"))))
,(when (ha-emacs-for-work?)
'("ha-org-sprint.org"
"ha-work.org"))))
"List of org files that complete the hamacs project.") "List of org files that complete the hamacs project.")
#+END_SRC #+END_SRC

View file

@ -26,13 +26,15 @@ A literate programming file for helper apps in Emacs.
The following applications are not really needed. I alternate between trying to /stay in Emacs/ taking advantage of the consistent interface, and simply using a stand-alone app on my Workday computer. The following applications are not really needed. I alternate between trying to /stay in Emacs/ taking advantage of the consistent interface, and simply using a stand-alone app on my Workday computer.
* Twitter * Twitter
The venerable [[https://github.com/hayamiz/twittering-mode/tree/master][twittering-mode]] allows me to follow all the twits. The venerable [[https://github.com/hayamiz/twittering-mode/tree/master][twittering-mode]] allows me to follow all the twits.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package twittering-mode (use-package twittering-mode
:init :init
(setq twittering-use-master-password t (setq twittering-use-master-password t
epa-pinentry-mode 'loopback) epa-pinentry-mode 'loopback)
:config :config
(defalias 'epa--decode-coding-string 'decode-coding-string)) (defalias 'epa--decode-coding-string 'decode-coding-string)
(ha-leader "a t" '("twitter" . twit)))
#+END_SRC #+END_SRC
* Telega * Telega
I'm thinking the [[https://zevlg.github.io/telega.el/][Telega package]] would be better than Bitlbee for Telegram communication. Seems to have a bug on the Melpa version, so I'm keeping this to the =HEAD=, but only if I've cloned it. I'm thinking the [[https://zevlg.github.io/telega.el/][Telega package]] would be better than Bitlbee for Telegram communication. Seems to have a bug on the Melpa version, so I'm keeping this to the =HEAD=, but only if I've cloned it.
@ -45,7 +47,7 @@ I'm thinking the [[https://zevlg.github.io/telega.el/][Telega package]] would be
:init :init
(setq telega-use-images nil) (setq telega-use-images nil)
:config :config
(ha-leader "a t" 'telega))) (ha-leader "a T" '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.
* RPG DM * RPG DM

View file

@ -646,6 +646,7 @@ _l_: right _v_: v-split _o_: choose by number (also 1-9)
("k" evil-window-down) ("k" evil-window-down)
("h" evil-window-left) ("h" evil-window-left)
("l" evil-window-right) ("l" evil-window-right)
("o" other-window)
("s" evil-window-split) ("s" evil-window-split)
("v" evil-window-vsplit) ("v" evil-window-vsplit)

View file

@ -71,9 +71,27 @@ According to Ben Maughan and [[http://pragmaticemacs.com/emacs/to-eww-or-not-to-
(define-key elfeed-show-mode-map (kbd "B") 'elfeed-show-visit-gui) (define-key elfeed-show-mode-map (kbd "B") 'elfeed-show-visit-gui)
#+END_SRC #+END_SRC
Finally, we can add it to the =apps= menu:
Quick way to start and jump to my world of feeds.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(ha-leader "a f" 'elfeed) (defun ha-elfeed-persp-start ()
"Create an ELFEED workspace and start my ELFEED client."
(interactive)
(persp-switch "feeds")
(elfeed))
(defun ha-elfeed-persp-switch ()
"Switch to the ELFEED workspace and load the next buffer."
(interactive)
(persp-switch "feeds"))
#+END_SRC
And some global keys to display them in the =apps= menu:
#+BEGIN_SRC emacs-lisp
(ha-leader
"a f" '("elfeed switch" . ha-elfeed-persp-switch)
"a F" '("elfeed start" . ha-elfeed-persp-start))
#+END_SRC #+END_SRC
* The Feeds :elfeed: * The Feeds :elfeed:
** Personal :personal: ** Personal :personal: