4 files changed, 177 insertions, 71 deletions

@@ -10,18 +10,18 @@
 - [X] and =▬▬▬▬▬▬▬▋ Ò╭╮Ó=
 - [X] Clean up code and package it properly
 
-*** TODO FIX the damn thing Ò╭╮Ó
+*** DONE FIX the damn thing Ò╭╮Ó
 
 I just have to make sure it's loading correctly in my own config… bleh
 
 - and add:
-  - [ ] =ヽ(°〇°)ﾉ=
-  - [ ] =୧((#Φ益Φ#))୨=
-  - [ ]  =(╥﹏╥)=
-  - [ ] =Σ ◕ ◡ ◕=
-  - [ ] =╭∩╮（︶_︶）╭∩╮=
-  - [ ] =(งツ)ว=
-  - [ ] =ʕ ᴖᴥᴖʔ= 
+  - [X] =ヽ(°〇°)ﾉ=
+  - [X] =୧((#Φ益Φ#))୨=
+  - [X]  =(╥﹏╥)=
+  - [X] =Σ ◕ ◡ ◕=
+  - [X] =╭∩╮（︶_︶）╭∩╮=
+  - [X] =(งツ)ว=
+  - [X] =ʕ ᴖᴥᴖʔ= 
 
 ** TODO =append-scratch= mode or something
 
@@ -54,7 +54,7 @@ allow more configuration of where the mouse goes:
 
 * Configuring
 
-** TODO Install =el-patch=?
+** DONE Install =el-patch=?
 
 ** DONE Look at [[https://gitlab.com/ideasman42/emacs-mode-line-idle][ideasman42 / emacs-mode-line-idle]]
 
@@ -66,11 +66,11 @@ from karthink (and prot)
 
 ** TODO [[https://github.com/ahungry/md4rd][md4rd]]
 
-** TODO [[https://github.com/gRastello/ytel][ytel]]
+** DONE [[https://github.com/gRastello/ytel][ytel]]
 
 ** TODO [[https://passionsplay.com/blog/create-minimal-emacs-environments-with-a-shell-script/][Create Minimal Emacs Environments with a Shell Script]]
 
-** TODO Twitch IRC
+** DONE Twitch IRC
 
 - [[https://gist.github.com/hunterbridges/ab095066d40f2e1a243e][How to connect to Twitch with an IRC client (As of Oct 2015) · GitHub]]
 - irc.twitch.tv
@@ -99,25 +99,41 @@ e.g., “A gold watch” title-cases to “A gold Watch”
 *** Inspo: From wsinatra
 
 #+begin_src emacs-lisp
-  ;; Custom capture templates (setq org-capture-templates '(("t" "Todo" entry
-  (file org-default-notes-file) "* TODO %?\n%u\n%a\n" :clock-in t :clock-resume
-  t) ("e" "Event" entry (file org-default-notes-file) "* EVENT %? :EVENT:\n%t"
-  :clock-in t :clock-resume t) ("i" "Idea" entry (file org-default-notes-file)
-  "* %? :IDEA: \n%t" :clock-in t :clock-resume t) ("p" "Project" entry (file
-  org-default-notes-file) "* PROJ %?\n%u\n%a\n" :clock-in t :clock-resume t)
-  ("n" "Next Task" entry (file+headline org-default-notes-file "Tasks") "**
-  NEXT %? \nDEADLINE: %t"))) #+end_src
+  ;; Custom capture templates
+  (setq org-capture-templates
+        '(("t" "Todo" entry (file org-default-notes-file)
+           "* TODO %?\n%u\n%a\n"
+           :clock-in t :clock-resume t)
+          ("e" "Event" entry (file org-default-notes-file)
+           "* EVENT %? :EVENT:\n%t"
+           :clock-in t :clock-resume t)
+          ("i" "Idea" entry (file org-default-notes-file)
+           "* %? :IDEA: \n%t"
+           :clock-in t :clock-resume t)
+          ("p" "Project"
+           entry (file org-default-notes-file)
+           "* PROJ %?\n%u\n%a\n"
+           :clock-in t :clock-resume t)
+          ("n" "Next Task"
+           entry (file+headline org-default-notes-file "Tasks")
+           "** NEXT %? \nDEADLINE: %t")))
+ #+end_src
 
 *** Also cf. [[https://blog.jethro.dev/posts/org_mode_workflow_preview/][Org-mode Workflow: A Preview · Jethro Kuan]]
 
 * Buffer display stuff
 
 #+begin_src emacs-lisp
-  ;; from alphapapa (cl-defun ap/display-buffer-in-side-window (&optional
-  (buffer (current-buffer))) "Display BUFFER in dedicated side window."
-  (interactive) (let ((display-buffer-mark-dedicated t))
-  (display-buffer-in-side-window buffer '((side . right) (window-parameters
-  (no-delete-other-windows . t)))))) #+end_src
+  ;; from alphapapa
+  (cl-defun ap/display-buffer-in-side-window (&optional (buffer (current-buffer)))
+    "Display BUFFER in dedicated side window."
+    (interactive)
+    (let ((display-buffer-mark-dedicated t))
+      (display-buffer-in-side-window buffer
+                                     '((side . right)
+                                       (window-parameters
+                                        (no-delete-other-windows . t))))))
+ #+end_src
 
 - [[https://old.reddit.com/r/emacs/comments/pka1sm/my_first_package_aside_for_easier_configuration/][My first package: Aside, for easier configuration and use of side windows :
   emacs]]
@@ -137,30 +153,44 @@ e.g., “A gold watch” title-cases to “A gold Watch”
 ** A way to map over buffers
 
 #+begin_src emacs-lisp
-  (dolist (buf (mapcan (lambda (buf) (with-current-buffer buf
-                         (circe-server-chat-buffers))) (circe-server-buffers)))
-                         (with-current-buffer buf ;; whatever u wanna do on
-                         each buffer goes here (lui-set-prompt (concat
-                         (propertize (acdw-irc/margin-format (buffer-name) ""
-                         ">") 'face 'circe-prompt-face 'read-only t 'intangible
-                         t 'cursor-intangible t) " ")) (setq-local
-                         fringes-outside-margins t right-margin-width 5
-                         scroll-margin 0 word-wrap t wrap-prefix (repeat-string
-                         acdw-irc/left-margin " ") line-number-mode nil)))
-                         #+end_src
+  (dolist (buf (mapcan
+                (lambda (buf)
+                  (with-current-buffer buf
+                    (circe-server-chat-buffers)))
+                (circe-server-buffers)))
+    (with-current-buffer buf ;; whatever u wanna do on each buffer goes here
+      (lui-set-prompt (concat
+                       (propertize
+                        (acdw-irc/margin-format (buffer-name)
+                                                ""
+                                                ">")
+                        'face 'circe-prompt-face
+                        'read-only t
+                        'intangible t
+                        'cursor-intangible t)
+                       " "))
+      (setq-local fringes-outside-margins t
+                  right-margin-width 5
+                  scroll-margin 0
+                  word-wrap t
+                  wrap-prefix (repeat-string acdw-irc/left-margin " ")
+                  line-number-mode nil)))
+#+end_src
 
 ** ZNC Connecting (from #systemcrafters)
 
 #+begin_quote
 daviwil | minikN: I connect to the hostname/port of my ZNC server, but the
-            trick is that the username is the nick you want to use on the
-            server and the password is your znc username and password joined
-            with a colon, like daviwil:b4dp4ssw0rd minikN | so you don't
-            specify the network in your password? like user/network:password?
-            benoitj | daviwil: nice password you have there daviwil | minikN:
-            nope, I only have one network anyway
--    acdw > daviwil: I just see *******
-  benoitj | I use two networks #+end_quote
+          trick is that the username is the nick you want to use on the
+          server and the password is your znc username and password joined
+          with a colon, like daviwil:b4dp4ssw0rd 
+ minikN | so you don't specify the network in your password? like 
+          user/network:password?
+benoitj | daviwil: nice password you have there 
+daviwil | minikN: nope, I only have one network anyway
+-  acdw > daviwil: I just see *******
+benoitj | I use two networks
+#+end_quote
 
 ** Teach =link-hint= about =lui-buttons=
 
@@ -87,7 +87,7 @@
   (:also-load acdw-compat
               acdw-lisp
               acdw-reading)
-  (acdw/require-private)
+  (require 'acdw-private (acdw/sync-dir "private.el") :noerror)
 
   (:option user-full-name "Case Duckworth"
            user-mail-address (rot13-string "npqj@npqj.arg"))
@@ -579,13 +579,21 @@ specific to most general, they are these:
 - `flymake-inhibit-major-modes': a list of major-modes in which
   to inhibit `flymake-mode'.  Really only useful if you want to
   generally add `flymake-mode' to `prog-mode-hook'."
-    (unless (or (bound-and-true-p flymake-inhibit) ; file-local variable
-                (list-string-match-p (buffer-name)
-                                     flymake-inhibit-buffer-name-regexps)
-                (list-string-match-p (buffer-file-name)
-                                     flymake-inhibit-file-name-regexps)
-                (apply #'derived-mode-p flymake-inhibit-major-modes))
-      (flymake-mode-on)))
+    ;; The name of this hook tells you pretty much everything you need to know
+    ;; for this little thing right here.
+    (add-hook 'hack-local-variables-hook
+              (defun flymake-unless@hack-local-variables ()
+                (unless (or (cdr (assoc 'flymake-inhibit
+                                        file-local-variables-alist))
+                            (list-string-match-p
+                             (buffer-name)
+                             flymake-inhibit-buffer-name-regexps)
+                            (list-string-match-p
+                             (buffer-file-name)
+                             flymake-inhibit-file-name-regexps)
+                            (apply #'derived-mode-p
+                                   flymake-inhibit-major-modes))
+                  (flymake-mode-on)))))
 
   (add-hook 'prog-mode-hook #'flymake-unless)
   
@@ -714,20 +722,57 @@ specific to most general, they are these:
 
 (setup mu4e
   (:load-from "/usr/share/emacs/site-lisp/mu4e")
-  (:option mu4e-change-filenames-when-moving t
-           mu4e-update-interval (* 10 60)
+  (:autoload (mu4e :interactive t)
+                 make-mu4e-context)
+  (:option message-kill-buffer-on-exit t
+           message-send-mail-function #'smtpmail-send-it
+           mu4e-change-filenames-when-moving t
+           mu4e-contexts
+           (list
+            ;; Work
+            (make-mu4e-context
+             :name "Work"
+             :match-func (lambda (msg)
+                           (when msg
+                             (string-prefix-p
+                              work-mail-dir
+                              (mu4e-message-field msg :maildir))))
+             :vars `((user-mail-address . ,work-email)
+                     (smtpmail-smtp-server . ,work-smtp-server)
+                     (mu4e-compose-format-flowed . nil)
+                     (mu4e-drafts-folder
+                      . ,(concat work-mail-dir "/[Gmail]/Drafts"))
+                     (mu4e-sent-folder
+                      . ,(concat work-mail-dir "/[Gmail]/Sent Mail"))
+                     (mu4e-refile-dir
+                      . ,(concat work-mail-dir "/[Gmail]/All Mail"))
+                     (mu4e-trash-folder
+                      . ,(concat work-mail-dir "/[Gmail]/Trash"))))
+            ;; Home
+            (make-mu4e-context
+             :name "Home"
+             :match-func (lambda (msg)
+                           (when msg
+                             (string-prefix-p
+                              home-mail-dir
+                              (mu4e-message-field msg :maildir))))
+             :vars `((user-mail-address . ,home-email)
+                     (smtpmail-smtp-server . ,home-smtp-server)
+                     (mu4e-compose-format-flowed . nil)
+                     (mu4e-drafts-folder
+                      . ,(concat home-mail-dir "/Drafts"))
+                     (mu4e-sent-folder
+                      . ,(concat home-mail-dir "/Sent"))
+                     (mu4e-refile-folder
+                      . ,(concat home-mail-dir "/Archive"))
+                     (mu4e-trash-folder
+                      . ,(concat home-mail-dir "/Trash")))))
            mu4e-get-mail-command "mbsync -a"
-           mu4e-maildir "~/mail/clickhere")
-  (:option mu4e-drafts-folder "/[Gmail]/Drafts"
-           mu4e-sent-folder "/[Gmail]/Sent Mail"
-           mu4e-refile-folder "/[Gmail]/All Mail"
-           mu4e-trash-folder "/[Gmail]/Trash"
-           mu4e-maildir-shortcuts
-           `((:maildir "/Inbox" :key ?i)
-             (:maildir ,mu4e-drafts-folder :key ?d)
-             (:maildir ,mu4e-sent-folder :key ?s)
-             (:maildir ,mu4e-refile-folder :key ?a)
-             (:maildir ,mu4e-trash-folder :key ?t))))
+           mu4e-maildir "~/mail"
+           mu4e-update-interval (* 10 60)
+           send-mail-function #'smtpmail-send-it
+           smtpmail-smtp-service 465
+           smtpmail-stream-type 'ssl))
 
 (setup page
   (:option page-delimiter
@@ -2437,7 +2482,7 @@ the default is \"/\"."
               (list
                (propertize " "
                            'display
-                           '((space
+                           `((space
                               :align-to 
                               ,(unless
                                    (bound-and-true-p visual-fill-column-mode)
@@ -471,6 +471,43 @@ probably abandon it at some point for a better solution (see:
       (org-narrow-to-subtree))))
 
 
+;;; Hide everything but the current headline
+;; https://stackoverflow.com/questions/25161792/
+
+(defun acdw-org/show-next-heading-tidily ()
+  "Show next entry, keeping other entries closed."
+  (interactive)
+  (if (save-excursion (end-of-line) (outline-invisible-p))
+      (progn (org-show-entry) (outline-show-children))
+    (outline-next-heading)
+    (unless (and (bolp) (org-at-heading-p))
+      (org-up-heading-safe)
+      (outline-hide-subtree)
+      (error "Boundary reached"))
+    (org-overview)
+    (org-reveal t)
+    (org-show-entry)
+    (recenter-top-bottom)
+    (outline-show-children)
+    (recenter-top-bottom)))
+
+(defun acdw-org/show-previous-heading-tidily ()
+  "Show previous entry, keeping other entries closed."
+  (interactive)
+  (let ((pos (point)))
+    (outline-previous-heading)
+    (unless (and (< (point) pos) (bolp) (org-at-heading-p))
+      (goto-char pos)
+      (outline-hide-subtree)
+      (error "Boundary reached"))
+    (org-overview)
+    (org-reveal t)
+    (org-show-entry)
+    (recenter-top-bottom)
+    (outline-show-children)
+    (recenter-top-bottom)))
+
+
 (provide 'acdw-org)
 ;;; acdw-org.el ends here
 
@@ -665,12 +665,6 @@ ARGS."
   (custom-set-faces '(fringe
                       ((t (:foreground "dim gray"))))))
 
-(defun acdw/require-private ()
-  "Load \"~/.emacs.d/private.el\".
-It's called 'require-private' for historical reasons."
-  (load (expand-file-name "private.el" user-emacs-directory)
-        :noerror :nomessage))
-
 
 ;;; Recentf renaming with dired
 ;; from ... somewhere.  'rjs', apparently?