Added GPG creditial management to ERC

emacs/.emacs.d/README.org

@@ -506,6 +506,18 @@ Select project from list of projectile projects to invalidate.
     (projectile-invalidate-cache t))
 #+END_SRC
 
+** User Pass Tupple
+
+#+BEGIN_SRC emacs-lisp :tangle yes
+  (defun wolfe/get-user-pass ()
+    (split-string
+     (car (last (split-string
+                 (shell-command-to-string (concat "gpg --output - --decrypt "
+                                                  (expand-file-name "~")
+                                                  "/.authinfo.gpg"))
+                 "[|\n]" t "[ 	\n]"))) " "))
+#+END_SRC
+
 * Org Mode
 ** General
 
@@ -773,7 +785,9 @@ Customizable popup menus.
 
     (:states 'normal
              "C-z"  'wolfe/controlz
-             :prefix "g"
+             "C-l"  'evil-ex-nohighlight)
+
+    (:states 'normal :prefix "g"
              "a" (lambda (beginning end)
                    (interactive "r")
                    (if (use-region-p)
@@ -969,12 +983,13 @@ Project management
 #+END_SRC
 
 * Utility
-** Restclient
-
-Postman inside of emacs.
+** Ranger
 
 #+BEGIN_SRC emacs-lisp :tangle yes
-  (use-package restclient)
+  (use-package ranger
+    :config
+    (setq ranger-cleanup-on-disable t)
+    (ranger-override-dired-mode t))
 #+END_SRC
 
 ** Iedit
@@ -987,22 +1002,12 @@ Edit all instances of a string
     (setq iedit-toggle-key-default nil))
 #+END_SRC
 
-** Delight
+** Restclient
+
+Postman inside of emacs.
 
 #+BEGIN_SRC emacs-lisp :tangle yes
-  (use-package delight
-    :config
-    (delight '((emacs-lisp-mode       "ξ" :major)
-               (lisp-interaction-mode "λ" :major)
-               (python-mode           "π" :major)
-               (org-mode              "Ø" :major)
-               (company-mode          " C" company)
-               (ivy-mode              " ι" ivy)
-               (projectile-mode       " ρ" projectile)
-               (eldoc-mode            " ε" eldoc)
-               (flycheck-mode         " ƒ" flycheck)
-               (undo-tree-mode        ""   undo-tree)
-               (auto-revert-mode      ""   autorevert))))
+  (use-package restclient)
 #+END_SRC
 
 ** Help Fns+
@@ -1019,17 +1024,48 @@ Edit all instances of a string
     (setq jiralib-url "https://indigoca.atlassian.net"))
 #+END_SRC
 
-** Circe
+** IRC
+
+#+BEGIN_SRC emacs-lisp :tangle yes
+  (use-package erc
+    :ensure nil
+    :config
+    (add-hook 'window-configuration-change-hook
+              '(lambda ()
+                 (setq erc-fill-column (- (window-width) 2))))
+
+    (setq erc-rename-buffers t
+          erc-interpret-mirc-color t
+          erc-lurker-hide-list '("JOIN" "PART" "QUIT"))
+
+    (defun wolfe/irc ()
+      (interactive)
+      (let* ((tupple (wolfe/get-user-pass))
+             (user (car tupple))
+             (pass (cadr tupple)))
+        (erc
+         :server "irc.freenode.net"
+         :port 6667
+         :nick user
+         :password pass))))
+#+END_SRC
+
+** Delight
 
 #+BEGIN_SRC emacs-lisp :tangle yes
-  (use-package circe
+  (use-package delight
     :config
-    (setq circe-network-options
-          '(("Freenode"
-             :tls t
-             :nick "interior"
-             :channels ("#emacs")
-             ))))
+    (delight '((emacs-lisp-mode       "ξ" :major)
+               (lisp-interaction-mode "λ" :major)
+               (python-mode           "π" :major)
+               (org-mode              "Ø" :major)
+               (company-mode          " C" company)
+               (ivy-mode              " ι" ivy)
+               (projectile-mode       " ρ" projectile)
+               (eldoc-mode            " ε" eldoc)
+               (flycheck-mode         " ƒ" flycheck)
+               (undo-tree-mode        ""   undo-tree)
+               (auto-revert-mode      ""   autorevert))))
 #+END_SRC
 
 * Completion