Add more apps to my "a" key
This commit is contained in:
		
							parent
							
								
									2472e40358
								
							
						
					
					
						commit
						a05a473093
					
				
					 4 changed files with 93 additions and 72 deletions
				
			
		| 
						 | 
					@ -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
 | 
				
			||||||
 | 
					
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -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
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -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)
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -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:
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in a new issue