digfiles/.emacs-easyrestore

;; so this is Digit's main emacs config file.  if you're not Digit, this will be of no interest to you.  move along.

;; for supercollider audio tracker
;;(require 'sclang)
;; but not doing that on this stable (old) system, because it wants :
;; 250 upgraded, 60 newly installed, 401 to remove and 1597 not upgraded.
;;Need to get 395 MB of archives.
;;After this operation, 2,853 MB disk space will be freed.
;;Do you want to continue? [Y/n] ^C⏎
;;  no, i dont.  n_n

;;;;;;; before proceeding with the emacs config...
;;;;;;; some notes on health (kept here for now so i dont lose them. lol)
;;;;;;; cannabis saves my life.  trying to figure out what in it does that.
;;;;;;; best i've worked out so far:
;;;;;;; 
;;;;;;; CBD:THC at about 15-30:1, and over 1.2g CBD daily.
;;;;;;; the THC there, meaning d9-thc-c5, but i know d8-THC-c5's greatly needed too, foremost for asthma.
;;;;;;; the CBD's for widespread help with my >25 ailments, notably for candida, which is a precursor for most.
;;;;;;; also for candida, thinking i really need to get the following terpenes (preliminary/guesswork):
;;;;;;; 
;;;;;;; ocimene, beta-ocimene, terpinolene, alpha-bisbolol, caryophyllene, thymol, eugenol, alpha-pinene, beta-pinene, fenchol, ... and i'll find more later.  get a load of these in me, n i might manage to kill of candida, and restore myself to health, ridding myself of anxiety, anal bleeding, depression, brainfog and more.
;;;;;;; 

;; orly? https://emacs.stackexchange.com/questions/822/how-to-setup-default-windows-at-startup
;; n this will save my windows n buffers layout ?
;;(desktop-save-mode 1)

;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(package-initialize)

;;(load-file "~/.emacs.d/t-mouse.el")

;;specialfiles i want open all the time from the start.
;;(find-file "/path/to/your/file")
;;;;as advised @ http://stackoverflow.com/questions/999708/how-to-open-files-automatically-when-starting-emacs

;; what, and why, did i add this line?   ....   O_O
;;((((((((((((((((((((((((((((((((((((((((((((((()))))))))))))))))))))))))))))))))))))))))))))))
;;cos it's pretty when uncommented, no?

;;                    ;;
;;;;;;org-journal;;;;;;;
;;                    ;;
;; https://github.com/bastibe/org-journal
;; adding on whim.  20190314
;;(add-to-list 'load-path "/home/digit/gittings/org-journal/")
;;(require 'org-journal)

;;                    ;;
;;                    ;;
;;                    ;;

;; added this following a video tute
(defun my/insert-line-before (times)
  "Inserts newline(s) preceding cursor line"
  (interactive "p")    ; Called from -Mx
  (save-excursion      ; store position
    (move-beginning-of-line 1)
    (newline times ))) ; insert line before current

;; same tute still, this is how to add keybinds, yay
(global-set-key (kbd "C-S-o")
		'my/insert-line-before)

;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;matrix;;;;;;;;;;

(add-to-list 'load-path "/home/digit/.emacs.d/matrix-client")
;;why does this complain saying, "no such file or directory, request"?
;;(require 'matrix-client)

;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;tryin this...
;;(setq erc-scrolltobottom-enable) ;; do i need this?  .... no... it errors.
(setq-default erc-scrolltobottom-enable) ;; will either line work at all?

;;;;;;;;;;;;;;;;;;;;
;; Erc Button URL ;;  as taken from https://www.emacswiki.org/emacs/ErcConfiguration  (so the I/i there isnt me).
;;;;;;;;;;;;;;;;;;;;
;; Sometimes people often type URL’s like:
;;
;; <nick> Try foo.org!
;;
;;I want my emacs to be able to buttonize that url (even though it doesn’t contain a www or http, and launch my galeon if i middle-click. I also want emacs to be very strict about the last letter and realize that ! is not part of the url. Finally, I don’t care too much about false positives, but false negatives are a pain. So, here’s the tweak I use:
(setq erc-button-url-regexp "\\([-a-zA-Z0-9_=!?#$@~`%&*+\\/:;,]+\\.\\)+[-a-zA-Z0-9_=!?#$@~`%&*+\\/:;,]*[-a-zA-Z0-9\\/]")

;;;;;;;;;;;;;;;;;;
;; nick colours ;;
;;;;;;;;;;;;;;;;;;
;; as seen @ https://www.emacswiki.org/emacs/ErcNickColors
;; option 1
;; Oiriginal Pool of colors to use when coloring IRC nicks.
;;(setq erc-colors-list '("green" "blue" "red"
;;			"dark gray" "dark orange"
;;			"dark magenta" "maroon"
;;			"indian red" "black" "forest green"
;;			"midnight blue" "dark violet"))


;; this next bit says my pref, but, it's not really... i need make better.  i need make rainbow nicks, where each character's a colour, ideally even gradients from first to last character.

;;my pref colours.
(setq erc-colors-list '(;;"#e3b" "#d4c" "#c5d" ;; fakin purps1 
			"#dcb" "#cba" "#ba9" ;; mild orange light
			"#a98" "#987" "#876" ;; mild orange mid
			"#ecb" "#dba" "#ca9" ;; mild rust light
			"#b98" "#a87" "#976" ;; mild rust mid
;;;			"#787" "#676" "#565" ;; mild greens mid
;;;			"#a9a" "#bab" "#cbc" ;; mild greens light
;;			"#989" "#878" "#767" ;; mild purp mid
;;			"#656" "#545" "#434" ;; mild purp dark
;;			"#667" "#778" "#99a" ;; mild blue mid
;;			"#abb" "#baa" "#cdd" ;; mild blue light
			"#dd9" "#cc8" "#bb7" ;; mild yellow light
			"#bb6" "#aa5" "#994" ;; mild yellow dark
;;			"#865" "#754" "#643" ;; mild rust dark
;;			"#673" "#784" "#895" ;; mild lime dark
			"#9a6" "#ab7" "#bc8" ;; mild lime mid
;;;			"#cd9" "#dea" "#efb" ;; mild lime bright
;;			"#678" "#567" "#456" ;; mild stone dark
;;			"#789" "#89a" "#9ab" ;; mild stone mid
;;			"#d55" "#d37" "#d73" ;; extension1
;;;;			"#5d5" "#3d7" "#7d3" ;; extension2
;;			"#55d" "#37d" "#73d" ;; extension3
;;			"#c66" "#c48" "#c84" ;; extension4
;;;;			"#6c6" "#4c8" "#8c4" ;; extension5
;;			"#66c" "#48c" "#84c" ;; extension6
;;			"#b77" "#b59" "#b95" ;; extension7
;;;;			"#7b7" "#5b9" "#9b5" ;; extension8
;;			"#77b" "#59b" "#95b" ;; extension9
;;			"#a88" "#a6a" "#aa6" ;; extension10
;;			"#8a8" "#6aa" "#a5a" ;; extension10
;;			"#88a" "#7aa" "#a4a" ;; extension10
                        "#878" "#978" "#a78" "#b78" ;; fakin purps2 
                        "#989" "#98a" "#a89" "#b89" ;; fakin purps3
			"#a9a" "#b9a" "#c9a" ;; fakin purps4
			"#aaa" "#baa" "#bab" "#bac" ;; fakin purps5
			"#cab" "#dab" "#eab" ;; fakin purps6
			"#cbc" "#dbc" "#ebc" "#cbd" ;; fakin purps7
			"#edc" "#dcb" "#cba" ;; mild rust light remix1
			"#edb" "#dca" "#cb9" ;; mild rust light remix2
			"#eda" "#dc9" "#cb8" ;; mild rust light remix3
			"#dbb" "#caa" "#b99" ;; mild rust light remix4
			"#777" "#888" "#999")) ;;greys

;;;; Digit's Nice Language-inator
;;;;(defun erc-nice-language
  ;;;; "Makes naughty words acceptable for kids"
;;;;;;;;NOPE  gonna have to ask for help in getting more than one to work.

(add-hook 'erc-send-pre-hook
  (lambda (s1)
    (setq str
	  (replace-regexp-in-string
	   "facebook"
	   "fascbook"
	   s1))))

;; ^ ok, so how do i do multiple ones... just repeat that add-hook expression?
;; wanna s|https://www.youtube.com/watch?v=|https://www.invidio.us/watch?v=|

;;(add-hook 'erc-send-pre-hook
;;  (lambda (s1)
;;    (setq str
;;	  (replace-regexp-in-string
;;	   "shit"
;;	   "scat"
;;	   s1))))

;;(add-hook 'erc-send-pre-hook
;;  (lambda (s1)
;;    (setq str
;;	  (replace-regexp-in-string
;;	   "cunt"
;;	   "foofoo"
;;	   s1))))

;;(add-hook 'erc-send-pre-hook
;;  (lambda (s1)
;;    (setq str
;;	  (replace-regexp-in-string
;;	   "bastard"
;;	   "fathersans"
;;	   s1))))
;;)

;;;; special colors for some people
(setq erc-nick-color-alist '(("lo9rd" . "white")
			     ("Tago" . "red")
			     ))

(defun erc-get-color-for-nick (nick)
  "Gets a color for NICK. If NICK is in erc-nick-color-alist, use that color, else hash the nick and use a random color from the pool"
  (or (cdr (assoc nick erc-nick-color-alist))
      (nth
       (mod (string-to-number
	     (substring (md5 (downcase nick)) 0 6) 16)
	    (length erc-colors-list))
       erc-colors-list)))

(defun erc-put-color-on-nick ()
  "Modifies the color of nicks according to erc-get-color-for-nick"
  (save-excursion
    (goto-char (point-min))
    (if (looking-at "<\\([^>]*\\)>")
	(let ((nick (match-string 1)))
	  (put-text-property (match-beginning 1) (match-end 1) 'face
			     (cons 'foreground-color
				   (erc-get-color-for-nick nick)))))))

(add-hook 'erc-insert-modify-hook 'erc-put-color-on-nick)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;here's my attempt to restore erc chat logging configury.;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; all this came from:
;; https://www.emacswiki.org/emacs/ErcLogging


;;where the logs get saved
;;(setq erc-log-channels-directory "~/.erc/logs/")

;; for some reason, i cant get that location to work.  !!  ???  !!!  wtf
(setq erc-log-channels-directory "~/log/") 

;; likewise didnt work
;;(setq erc-log-channels-directory "~/smeg/") 

;;Calling the function ‘erc-save-buffer-in-logs’ in an ERC-mode buffer will save a log.

;;saves buffers on quit buffer or part
(setq erc-save-buffer-on-part t)

;; omigosh, could this restore my logging?
(setq erc-log-write-after-insert t)
(setq erc-log-write-after-send t)

;;If you want timestamps in the logs but not shown while you chat, set this, too:
;;    (setq erc-hide-timestamps t)

;; unsure how this would react with logged-unshown timestamps thing above, but,
;; this doozey will let you toggle timestamps showing, with a keybind!
;; to do (remember to come back n add mention here of whether when they're toggled off they still show in logs)
;;(add-hook 'erc-mode
;;          (lambda () (define-key erc-mode-map [kbd "C-t"] #'erc-toggle-timestamps)))
;; fuckit, that wasnt getting transpose-chars out of the way (no matter my mess of edits n websearches).
;;  lets try adding an unset too.


;;;; THIS ONE WORKS... return to it upon failure of refinements, or for reference during refinements.
;;(add-hook 'erc-mode
;;	  (global-unset-key (kbd "C-t"))
;;	  ;;          (lambda () (set-local-key (kbd "C-t") #'erc-toggle-timestamps)))
;;          '(set-local-key (kbd "C-t") 'erc-toggle-timestamps))
;;(global-set-key (kbd "C-t") 'erc-toggle-timestamps)
;;

;;;; THIS ONE... lets see...
;; yep, well, it's shorter, and cleaner looking.  but indeed, the one above is at least some ways closer to doing it properly.
;; i never used transpose anyway.  ;D  this is better.
(global-unset-key (kbd "C-t"))
(global-set-key (kbd "C-t") 'erc-toggle-timestamps)

;; here begins actual work on toggling show/hide JOIN/PART/QUIT messages.  !!! yes.  :)
;; so, we'll have something like above
;; not working code yet, just a pseudo-code copy-pasta parody
;;(global-unset-key (kbd "C-j"))
;;(global-set-key (kbd "C-j") 'erc-toggle-joinpartquit)
;; but of course, we need to make erc-toggle-joinpartquit
;; and that's what we're here for.
;;
;; and again, this is not yet working tested code, just copy-pasta crudest editing
;; of, this time, erc-stamp.el's erc-toggle-timestams
;;
;;(defun erc-toggle-joinpartquit ()
;;  "Hide or show JOIN, PART, QUIT messages in ERC buffers.
;;
;;Note that JOIN/PART/QUIT messages can only be shown for a message using this
;;function if `erc-joinpartquit-format' was set and joinpartquit was
;;enabled when the message was inserted."
;;  (interactive)
;;  (if erc-hide-joinpartquit
;;      (setq erc-hide-joinpartquit nil)
;;    (setq erc-hide-joinpartquit t))
;;  (mapc (lambda (buffer)
;;          (with-current-buffer buffer
;;            (erc-munge-invisibility-spec)))
;;        (erc-buffer-list)))

;;This variable actually defaults to on. If you don’t like query / channel windows to be filled with the previous correspondance when you next open them, eval the following code:
;; there may be issues with this.  
(setq erc-log-insert-log-on-open nil)

;; erc-log-all-but-server-buffers (defined in erc-log.el) has side effects




;; ;;; Original version in the Emacs sources:
;; (defun erc-log-all-but-server-buffers (buffer)
;;   "Returns t if logging should be enabled in BUFFER.
;; Returns nil if `erc-server-buffer-p' returns t."
;;   (save-excursion
;;     (save-window-excursion
;;       (set-buffer buffer)
;;       (not (erc-server-buffer-p)))))

;; My (who?) version:
(defun erc-log-all-but-server-buffers (buffer)
  (with-current-buffer buffer
    (not (erc-server-buffer-p))))
;;
;; ;;; Anyway, a more direct modification also works fine:
;; (defun erc-log-all-but-server-buffers (buffer)
;;  (set-buffer buffer)
;;  (not (erc-server-buffer-p)))


;; more Auto-saving log files on emacs exit
;; Normally when exiting emacs with log files on, you will be prompted to save each buffer in turn. This can be quite frustrating if you need to exit in a hurry (“You ever need to leave emacs?” some might ask ;-)). Here’s a lisp snippit which will save all erc buffers to logs when exiting.
(defadvice save-buffers-kill-emacs (before save-logs (arg) activate)
(save-some-buffers t (lambda () (when (eq major-mode 'erc-mode) t))))

;; it was found replacing the when line above with this avoids trying to save server buffers etc with no associated file:
;;(when (and (eq major-mode 'erc-mode)
;;      (not (null buffer-file-name))))

;;Auto-saving log files on channel activity

;;Only tested with ERC 5.3:

(setq erc-save-buffer-on-part nil ;;was nil try t?
      erc-save-queries-on-quit nil ;; was nil try t?
      erc-log-write-after-send t
      erc-log-write-after-insert t)


;;Check your version of ERC (C-h v erc-version-string RET) before reading on, as this (above) is probably the solution you want.

;; (These settings clearly post-date most of the discussion below)

;;see https://www.emacswiki.org/emacs/ErcLogging from delYsid's advice
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;that's the end of the erc logging restoration configury.;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; adding for Sauron's sake (preventing pm from changing sauron)
;; found here https://www.reddit.com/r/emacs/comments/1xfeuw/how_do_i_pin_windows_in_place/
;; if you find this behaviour inadequate, try CodyChan's solution with sticky mode.
;; Locked mode
(global-set-key (kbd "C-c C-l") 'locked-buffer-mode)
(define-minor-mode locked-buffer-mode
  "Make the current window always display this buffer."
  nil " locked" nil
  (set-window-dedicated-p (selected-window) locked-buffer-mode))
;; yeah, that didnt work... or so it seemed when that guy spammed me, filling up sauron.  :/

;;methinks rainbow delimiters shud work with these 2-- 3(?) lines now.
;; now that they're in the right order!  lol
;;(load-file "~/gittings/rainbow-delimiters/rainbow-delimiters.elc")
;;(add-hook 'prog-mode-hook 'rainbow-delimiters-mode)
;;(require 'rainbow-delimiters)

;; mouse cursor colour fix 
(set-mouse-color "dark orange")

;;windmove http://emacswiki.org/emacs/WindMove
(when (fboundp 'windmove-default-keybindings)
  (windmove-default-keybindings))
;;;orrr leave windmove-default-keybindings off (uncomment the 2 lines above), n it should allow shift selection of chars.
;; remains to be seen.

;;(global-set-key (kbd "C-c <left>")  'windmove-left)
;;(global-set-key (kbd "C-c <right>") 'windmove-right)
;;(global-set-key (kbd "C-c <up>")    'windmove-up)
;;(global-set-key (kbd "C-c <down>")  'windmove-down)
;;or
;;(global-set-key (kbd "C-c h")  'windmove-left)
;;(global-set-key (kbd "C-c l") 'windmove-right)
;;(global-set-key (kbd "C-c j")    'windmove-up)
;;(global-set-key (kbd "C-c k")  'windmove-down)
;;or shift arrow... which seems to work.  o_O

;; or... so they say
;;(global-set-key [M-left] 'windmove-left)          ; move to left window
;;(global-set-key [M-right] 'windmove-right)        ; move to right window
;;(global-set-key [M-up] 'windmove-up)              ; move to upper window
;;(global-set-key [M-down] 'windmove-down)          ; move to lower window
;;totally gonna fix those for desired behaviour

;;tho i suppose i want to switch buffers, not move window focus...
;;arg.  how do i get those keys working (in terminal(?)), my precious back n forward keys...   perfect for buffer cycling... if only i could find the character
;;(global-set-key (kbd "<XF86Forward>") 'next-buffer) ;; thisema time


;;(global-set-key [xf86forward] 'next-buffer)
;;(global-set-key [Back] 'previous-buffer)
;; gah^ buffer switching like that no work in terminal emacs

;;and for those of us on keyboards without fancy keys like xf86forward and back on our keyboards:
;;(global-set-key (kbd "M-<right>") 'next-buffer)
;;(global-set-key (kbd "M-<left>") 'previous-buffer)
;;or
(global-set-key (kbd "M-]") 'next-buffer)
(global-set-key (kbd "M-[") 'previous-buffer)
(global-set-key (kbd "C-<mouse-8>") 'next-buffer)
(global-set-key (kbd "C-<mouse-9>") 'previous-buffer)

;; now how to get a bind to cycle only erc
;; and a bind to cycle any but erc

;;;;;;;;;;;;;;;;;;;;;;;;
;;;; el-feed stuff
;;;;;;;;;;;;;;;;;;;;;;;;

;; add the Elfeed package directory to your load-path
(setq load-path (cons "~/gittings/elfeed/" load-path))

;; It is recommended that you make a global binding for elfeed.
(global-set-key (kbd "C-x w") 'elfeed)

;;Running the interactive function elfeed will pop up the *elfeed-search* buffer, which will display feed items.
;;
;;    g: refresh view of the feed listing
;;    G: fetch feed updates from the servers
;;    s: update the search filter (see tags)
;;
;;This buffer will be empty until you add your feeds to the elfeed-feeds list and initiate an update with M-x elfeed-update (or G in the Elfeed buffer). This will populate the Elfeed database with entries.

;; Somewhere in your .emacs file
(setq elfeed-feeds
      '(;;"http://nullprogram.com/feed/"
;;        "http://planet.emacsen.org/atom.xml"
;;	"http://ks392457.kimsufi.com/dnb/rss.xml"
;;	"http://ks392457.kimsufi.com/dnb/rss.atom"	
;;	"http://ks392457.kimsufi.com/dhb/rss.xml"
;;	"http://ks392457.kimsufi.com/dhb/rss.atom"	
;;	"http://ks392457.kimsufi.com/dob/rss.xml"
;;	"http://ks392457.kimsufi.com/dob/rss.atom"	
;;	"https://theintercept.com/podcasts/"
;;	"https://www.rt.com/rss/"
	"https://stallman.org/rss/rss.xml"))


;;;;;;;;;;;;;;;;;;;;;;;;
;;;; diaspora-el stuff
;;;;;;;;;;;;;;;;;;;;;;;;
;; FIXME
;; cannot find some of its deps when it tries to launch
;;(setq load-path (cons "~/gittings/diaspora.el/" load-path))
;;(require 'diaspora)



;;;;;;;;;;;;;;;;;;;;;;;;
;;;; calendar stuff
;;;;;;;;;;;;;;;;;;;;;;;;
;; i like to know what time it is back home

(setq calendar-latitude 58.98)
(setq calendar-longitude 2.96)
(setq calendar-location-name "Orkney")
;;     (setq calendar-time-zone -360)
;;     (setq calendar-standard-time-zone-name "CST")
;;     (setq calendar-daylight-time-zone-name "CDT")

;; window navigation (did this when insomniac awaked ~ sleepy, check it)
(define-key global-map (read-kbd-macro "M-<up>") 'windmove-up)
(define-key global-map (read-kbd-macro "M-<down>") 'windmove-down)
(define-key global-map (read-kbd-macro "M-<left>") 'windmove-left)
(define-key global-map (read-kbd-macro "M-<right>") 'windmove-right)
;; and make selections work now too.  move shift-direction back to selecting text, not switching window...


;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; multimedia stuff
;;;;;;;;;;;;;;;;;;;;;;;;;;
;; FIXME nope, this buggered up launch too
;;(add-to-list 'load-path "/home/digit/gittings/emms-player-mpv")
;;(require 'emms-player-mpv)
;;(add-to-list 'emms-player-list 'emms-player-mpv)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; resize fonts...   ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ok, lets define what i want first... and then get wrestling once i know the goal.
;; C-- and C-=, incrementaly font size in the buffer.
;; C-M-- and C-M-=, incrementaly font size in all buffers and special places (modebar, etc).


;;easy resize fonts
(global-set-key (kbd "C-M-=") 'text-scale-increase)
(global-set-key (kbd "C-M--") 'text-scale-decrease)
(global-set-key (kbd "C-<mouse-4>") 'text-scale-increase)
(global-set-key (kbd "C-<mouse-5>") 'text-scale-decrease)

;; resize fonts, as seen:
;;https://www.emacswiki.org/emacs/CycleFontSizes

;; Firefox-like zooming of fonts.
(setq default-font-zoom-index 2)
(setq font-zoom-index default-font-zoom-index)

;;font face resize scale shenanigans
					;
;;(setq font-zoom-list
;;      (list "-*-fixed-*-*-*-*-6-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-10-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-13-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-17-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-18-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-24-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-36-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-48-*-*-*-*-*-*-*"))

;;(setq font-zoom-list
;;      (list "-*-bf-*-*-*-*-3-*-*-*-*-*-*-*"
;;	    "-*-qnub-*-*-*-*-4-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-5-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-6-*-*-*-*-*-*-*"
;;	    "-*-tydals-*-*-*-*-7-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-8-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-9-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-10-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-11-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-12-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-16-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-22-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-28-*-*-*-*-*-*-*"
;;	    "-*-fixed-*-*-*-*-32-*-*-*-*-*-*-*"))

					;
;;(setq font-zoom-list
;;      (list "-*-bf-*-*-*-*-4-*-*-*-*-*-*-*" ;; otb, but keeping anyways!
;;;;	    "-*-qnub-*-*-*-*-5-*-*-*-*-*-*-*" ;;doesnt get picked up
;;;;	    "-*-mnky-*-*-*-*-6-*-*-*-*-*-*-*" ;;blocks
;;	    "-*-djfl-*-*-*-*-7-*-*-*-*-*-*-*" ;; nice, but uncertain.  works well at 72
;;;;	    "-*-kob-*-*-*-*-8-*-*-*-*-*-*-*" ;; just silly/scribbly
;;	    "-*-rmnd-*-*-*-*-9-*-*-*-*-*-*-*" ;; otb gets picked up over ttf
;;;;	    "-*-tidyr-*-*-*-*-10-*-*-*-*-*-*-*"  ;; uhh
;;;;	    "-*-tidyra-*-*-*-*-11-*-*-*-*-*-*-*" ;; ""
;;;;	    "-*-tidyrb-*-*-*-*-12-*-*-*-*-*-*-*" ;; ""
;;	    "-*-tydls-*-*-*-*-8-*-*-*-*-*-*-*" ;; tydls "tidals"/"tiddles" an old fave... but otb.
;;	    "-*-wastage-*-*-*-*-16-*-*-*-*-*-*-*"
;;	    "-*-wastest-*-*-*-*-22-*-*-*-*-*-*-*"
;;	    "-*-bf-*-*-*-*-28-*-*-*-*-*-*-*"
;;	    ;; more fonts: 
;;	    ;; mimia ;; incomplete.
;;	    ;; nzt ;; noice!
;;	    ;; yti.  nice, narrow, but needs bigger size number than you'd think.  88 n its crisp.
;;	    ;; ytia, as above
;;	    ;; yz, crisp at 49
;;	    ;; zem, crisp at 87
;;	    ;; clso, looks crisp at ... oh, any.  seems otb pickup
;;	    "-*-clso-*-*-*-*-32-*-*-*-*-*-*-*"))

;;(setq font-zoom-list
;;      (list "((t (:height 42 :family merg)))"
;;	    "((t (:height 49 :family yz)))"
;;	    "((t (:height 87 :family "zem")))"
;;	    "((t (:height 88 :family "yti")))"
;;	    "((t (:height 145 : family 'merg')))"
;;	    ))

;; tried setting it like this again, with n without quotes.  why that way no work anymore?
;;(setq font-zoom-list
;;      (list ((t (:height 49 :family "yz")))
;;	    ((t (:height 57-63 :family "jjfhlo"))) ;; jffhlo better than jffh
;;	    "((t (:height 145 : family "merg")))"
;;	    "((t (:height 290 : family "merg")))"
;;	    "((t (:height 580 : family "merg")))"
;;	    "((t (:height 570 : family "merg")))"
;;	    "((t (:height 190 : family "merg")))"
;;	    "((t (:height 157 : family "merg")))"       
;;       ))

;;bring back yz somewhere in the mix.  yz is nice.  no?
(setq font-zoom-list
      (list "-*-merg-*-*-*-*-16-*-*-*-*-*-*-*" ;;CONFIRMEDFONT
	    ;; how do i get this, the default, slipped in here? (:inherit nil :stipple nil :background "#221321" :foreground "#ffbb55" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 146 :width normal :foundry "PfEd" :family "merg")... i will try...
   	    "-*-merg-*-*-*-*-20-*-*-*-*-*-*-*" ;;testing default-font default-face back in place...  ... y'know, i think that worked.  20=146 :)  first time guess.  :)
	    "-*-merg-*-*-*-*-24-*-*-*-*-*-*-*" ;;testing~fence
	    "-*-merg-*-*-*-*-32-*-*-*-*-*-*-*" ;;CONFIRMEDFONT
	    ;;	    "-*-yz-*-*-*-*-5-*-*-*-*-*-*-*" ;;prior list faves, but broken
	    "-*-fixed-*-*-*-*-10-*-*-*-*-*-*-*"
	    "-*-mnky-*-*-*-*-6-*-*-*-*-*-*-*" ;;blocks
;;	    "-*-djfl-*-*-*-*-7-*-*-*-*-*-*-*" ;; nice, but uncertain.  works well at 72
;;	    "-*-rmnd-*-*-*-*-9-*-*-*-*-*-*-*" ;; otb gets picked up over ttf
	    "-*-tydls-*-*-*-*-8-*-*-*-*-*-*-*" ;; tydls "tidals"/"tiddles" an old fave... but otb.
            "-*-bf-*-*-*-*-4-*-*-*-*-*-*-*" ;; the smallest
;;            "-*-'qnub-test'-*-*-*-*-4-*-*-*-*-*-*-*" ;; quantum sized
            "-*-tydls-*-*-*-*-6-*-*-*-*-*-*-*" ;;
            "-*-nztt-*-*-*-*-6-*-*-*-*-*-*-*" ;;"((t (:height 42 :family "nzt")))"
	    "-*-brf-*-*-*-*-5-*-*-*-*-*-*-*" ;; tight club
	    "-*-zfr-*-*-*-*-5-*-*-*-*-*-*-*" ;; tight club
	    "-*-referal-*-*-*-*-5-*-*-*-*-*-*-*" ;; another fave, tight club
	    "-*-pen-*-*-*-*-5-*-*-*-*-*-*-*" ;; tight club
	    "-*-tydls-*-*-*-*-5-*-*-*-*-*-*-*" ;; remake of classic tidyr, tight club
;;	    "-*-nztt-*-*-*-*-5.5-*-*-*-*-*-*-*" ;; rar
	    "-*-nztt-*-*-*-*-6-*-*-*-*-*-*-*" ;; my fave (scalable)
;; nice, but off for flow	    "-*-yz-*-*-*-*-7-*-*-*-*-*-*-*"  ;;"((t (:height 49 :family "yz")))"
;; nice, but off for flow	    "-*-tiptoe-*-*-*-*-6-*-*-*-*-*-*-*"
;;    	    "-*-jffhlo-*-*-*-*-6-*-*-*-*-*-*-*" why was this one not on?
	    "-*-djsl-*-*-*-*-7-*-*-*-*-*-*-*" ;; my old fave (non-scalable)
;;    	    "-*-jffhlo-*-*-*-*-7-*-*-*-*-*-*-*" 
;;	    ;;	    "-*-zia-*-*-*-*-8-*-*-*-*-*-*-*"  ;;"((t (:height ?? :family "zia")))"    ;;  why does this not work in my devuan?
	    "-*-mnky-*-*-*-*-12-*-*-*-*-*-*-*" ;;testing
	    "-*-merg-*-*-*-*-16-*-*-*-*-*-*-*" ;;CONFIRMEDFONT
	    "-*-merg-*-*-*-*-32-*-*-*-*-*-*-*" ;;
	    "-*-carpy-*-*-*-*-10-*-*-*-*-*-*-*" ;;testing, anti-dyslexia
	    "-*-nztt-*-*-*-*-6-*-*-*-*-*-*-*" ;; my fave (scalable)
;;  	    "-*-jffhlo-*-*-*-*-8-*-*-*-*-*-*-*" ;;retesting
  	    "-*-jffhle-*-*-*-*-8-*-*-*-*-*-*-*" ;;retesting	    
	    "-*-nztt-*-*-*-*-12-*-*-*-*-*-*-*" ;; my fave (scalable)
;;	    "-*-jffhlo-*-*-*-*-12-*-*-*-*-*-*-*" ;;retesting
;;	    "-*-jffhlo-*-*-*-*-16-*-*-*-*-*-*-*" ;;retesting
	    "-*-jffhle-*-*-*-*-12-*-*-*-*-*-*-*" ;;retesting
	    "-*-jffhle-*-*-*-*-16-*-*-*-*-*-*-*" ;;retesting
;;	    "-*-nztt-*-*-*-*-8-*-*-*-*-*-*-*" ;; my fave (scalable)
;;	    "-*-nztt-*-*-*-*-9-*-*-*-*-*-*-*" ;; my fave (scalable)
	    "-*-nztt-*-*-*-*-18-*-*-*-*-*-*-*" ;; my fave (scalable)
;;	    "-*-jffhlo-*-*-*-*-24-*-*-*-*-*-*-*" ;;retesting
	    "-*-jffhle-*-*-*-*-24-*-*-*-*-*-*-*" ;;retesting
	    "-*-nztt-*-*-*-*-24-*-*-*-*-*-*-*" ;; my fave (scalable)
	    "-*-merg-*-*-*-*-32-*-*-*-*-*-*-*" ;;	    
	    "-*-nztt-*-*-*-*-32-*-*-*-*-*-*-*" ;; my fave (scalable)
;;    	    "-*-jffhlo-*-*-*-*-32-*-*-*-*-*-*-*" ;;
    	    "-*-jffhle-*-*-*-*-32-*-*-*-*-*-*-*" ;;
	    "-*-merg-*-*-*-*-64-*-*-*-*-*-*-*" ;;CONFIRMEDFONT	    
	    "-*-nztt-*-*-*-*-64-*-*-*-*-*-*-*" ;; my fave (scalable)
;;    	    "-*-jffhlo-*-*-*-*-64-*-*-*-*-*-*-*" ;; jffhlor & jffhlu too, btw.  but the hle version has copyright and registered copyright too.  :3  progress.  :)
    	    "-*-jffhle-*-*-*-*-64-*-*-*-*-*-*-*" ;;
    	    "-*-merg-*-*-*-*-128-*-*-*-*-*-*-*" ;;CONFIRMEDFONT
	    ))

	    ;; TO DO: multiple chains of these.  n then modally nested, so can switch across to different chains of font increments... will be able to keep em all same then!  yay.   
;;(setq font-zoom-list
;;      (list ;;"-*-yz-*-*-*-*-5-*-*-*-*-*-*-*"
;;	    "-*-merg-*-*-*-*-16-*-*-*-*-*-*-*" ;;testing       
;;	    "-*-merg-*-*-*-*-16-*-*-*-*-*-*-*" ;;testing
;;;;	    "-*-merg-*-*-*-*-17-*-*-*-*-*-*-*" ;;testing
;;;;	    "-*-merg-*-*-*-*-18-*-*-*-*-*-*-*" ;;testing
;;;;	    "-*-merg-*-*-*-*-19-*-*-*-*-*-*-*" ;;testing	           
;;	    "-*-merg-*-*-*-*-20-*-*-*-*-*-*-*" ;;testing	           
;;	    "-*-merg-*-*-*-*-24-*-*-*-*-*-*-*" ;;testing
;;	    "-*-merg-*-*-*-*-32-*-*-*-*-*-*-*" ;;testing
;;            "-*-bf-*-*-*-*-4-*-*-*-*-*-*-*" ;;
;;;;            "-*-'qnub-test'-*-*-*-*-4-*-*-*-*-*-*-*" ;;
;;;;            "-*-tydls-*-*-*-*-6-*-*-*-*-*-*-*" ;;
;;	    ;;            "-*-nzt-*-*-*-*-6-*-*-*-*-*-*-*" ;;"((t (:height 42 :family "nzt")))"
;;	    "-*-brf-*-*-*-*-5-*-*-*-*-*-*-*"
;;	    "-*-zfr-*-*-*-*-5-*-*-*-*-*-*-*" 
;;	    "-*-referal-*-*-*-*-5-*-*-*-*-*-*-*" 
;;	    "-*-pen-*-*-*-*-5-*-*-*-*-*-*-*"
;;	    "-*-tydls-*-*-*-*-7-*-*-*-*-*-*-*"
;;	    "-*-nztt-*-*-*-*-6-*-*-*-*-*-*-*" ;; my fave (scalable)
;;	    "-*-yz-*-*-*-*-7-*-*-*-*-*-*-*"  ;;"((t (:height 49 :family "yz")))"
;;	    "-*-tiptoe-*-*-*-*-6-*-*-*-*-*-*-*"
;;;;    	    "-*-jffhlo-*-*-*-*-6-*-*-*-*-*-*-*" 
;;	    "-*-djsl-*-*-*-*-7-*-*-*-*-*-*-*" ;; my old fave (non-scalable)
;;;;    	    "-*-jffhlo-*-*-*-*-7-*-*-*-*-*-*-*" 
;;	    ;;	    "-*-zia-*-*-*-*-8-*-*-*-*-*-*-*"  ;;"((t (:height ?? :family "zia")))"    ;;  why does this not work in my devuan?
;;	    "-*-mnky-*-*-*-*-12-*-*-*-*-*-*-*" ;;testing
;;	    "-*-merg-*-*-*-*-15-*-*-*-*-*-*-*" ;;testing
;;	    "-*-merg-*-*-*-*-16-*-*-*-*-*-*-*" ;;testing
;;	    "-*-merg-*-*-*-*-17-*-*-*-*-*-*-*" ;;testing
;;	    "-*-merg-*-*-*-*-18-*-*-*-*-*-*-*" ;;testing
;;	    "-*-merg-*-*-*-*-19-*-*-*-*-*-*-*" ;;testing	    
;;	    ;;	    "-*-zem-*-*-*-*-12-*-*-*-*-*-*-*" ;;"((t (:height 87 :family "zem")))"
  ;;  	    "-*-jffhlo-*-*-*-*-8-*-*-*-*-*-*-*" ;;"((t (:height 57-63 :family "jjfh")))" ;; jffhlo better than jffh
;;	    "-*-carpy-*-*-*-*-10-*-*-*-*-*-*-*" ;;testing
  ;;  	    "-*-clso-*-*-*-*-12-*-*-*-*-*-*-*" ;;testing
;;	    "-*-bggf-*-*-*-*-9-*-*-*-*-*-*-*" ;;"((t (:height 64 :family "bggf")))"
;;	    "-*-djfl-*-*-*-*-12-*-*-*-*-*-*-*" ;;testing
  ;;  	    "-*-jffhlo-*-*-*-*-12-*-*-*-*-*-*-*" ;;"((t (:height 57-63 :family "jjfh")))" ;; jffhlo better than jffh
    ;; 	    "-*-wastest-*-*-*-*-16-*-*-*-*-*-*-*" ;;"((t (:height 120 :family "wastest")))"
    ;;	    "-*-jffhlo-*-*-*-*-16-*-*-*-*-*-*-*" ;;"((t (:height 57-63 :family "jjfh")))" ;; jffhlo better than jffh
;;    ;;	    "-*-hurpicat-*-*-*-*-25-*-*-*-*-*-*-*";;"((t (:height ??? :family "bggf")))"
;;	    "-*-merg-*-*-*-*-32-*-*-*-*-*-*-*" ;;testing
  ;;  	    "-*-bggf-*-*-*-*-19-*-*-*-*-*-*-*";;"((t (:height ??? :family "bggf")))"
;;	    "-*-djfl-*-*-*-*-22-*-*-*-*-*-*-*";;"((t (:height ??? :family "djfl")))"
  ;;  	    "-*-bggf-*-*-*-*-27-*-*-*-*-*-*-*";;"((t (:height ??? :family "bggf")))"
    ;;	    "-*-bggf-*-*-*-*-32-*-*-*-*-*-*-*";;"((t (:height ??? :family "bggf")))"
    ;;	    "-*-bggf-*-*-*-*-38-*-*-*-*-*-*-*";;"((t (:height ??? :family "bggf")))"
;;    	    "-*-nztt-*-*-*-*-57-*-*-*-*-*-*-*";;"((t (:height ??? :family "bggf")))"
  ;;  	    "-*-zia-*-*-*-*-62-*-*-*-*-*-*-*";;"((t (:height ??? :family "bggf")))"
;;;;"-*-yz-*-*-*-*-5-*-*-*-*-*-*-*"
;;            "-*-jffhlo-*-*-*-*-65-*-*-*-*-*-*-*" ;;
;;;;            "-*-'qnub-test'-*-*-*-*-4-*-*-*-*-*-*-*" ;;
;;;;            "-*-tydls-*-*-*-*-6-*-*-*-*-*-*-*" ;;
;;	    ;;            "-*-nzt-*-*-*-*-6-*-*-*-*-*-*-*" ;;"((t (:height 42 :family "nzt")))"
;;	    "-*-nztt-*-*-*-*-69-*-*-*-*-*-*-*" 
;;;;	    "-*-yz-*-*-*-*-7-*-*-*-*-*-*-*"  ;;"((t (:height 49 :family "yz")))"
;;	    "-*-zia-*-*-*-*-72-*-*-*-*-*-*-*"  ;;"((t (:height ?? :family "zia")))"
;;;	    "-*-mnky-*-*-*-*-12-*-*-*-*-*-*-*" ;;testing
;;	    ;;	    "-*-zem-*-*-*-*-12-*-*-*-*-*-*-*" ;;"((t (:height 87 :family "zem")))"
  ;;  	    "-*-jffhlo-*-*-*-*-75-*-*-*-*-*-*-*" ;;"((t (:height 57-63 :family "jjfh")))" ;; jffhlo better than jffh
;;	    "-*-bggf-*-*-*-*-80-*-*-*-*-*-*-*" ;;"((t (:height 64 :family "bggf")))"
;;	    "-*-djfl-*-*-*-*-88-*-*-*-*-*-*-*" ;;testing
  ;;   	    "-*-wastest-*-*-*-*-90-*-*-*-*-*-*-*" ;;"((t (:height 120 :family "wastest")))"
    ;;	    "-*-jffhlo-*-*-*-*-92-*-*-*-*-*-*-*" ;;"((t (:height 57-63 :family "jjfh")))" ;; jffhlo better than jffh
    ;;	    "-*-bggf-*-*-*-*-98-*-*-*-*-*-*-*";;"((t (:height ??? :family "bggf")))"
;;	    "-*-djfl-*-*-*-*-102-*-*-*-*-*-*-*";;"((t (:height ??? :family "djfl")))"
  ;;  	    "-*-bggf-*-*-*-*-104-*-*-*-*-*-*-*";;"((t (:height ??? :family "bggf")))"
    ;;	    "-*-bggf-*-*-*-*-120-*-*-*-*-*-*-*";;"((t (:height ??? :family "bggf")))"
    ;;	    "-*-nztt-*-*-*-*-130-*-*-*-*-*-*-*";;"((t (:height ??? :family "bggf")))"
    ;;	    "-*-zia-*-*-*-*-144-*-*-*-*-*-*-*";;"((t (:height ??? :family "bggf")))"
;;	    ))

;; ^ so that works great.  might wanna try adding https://www.emacswiki.org/emacs/stripes.el or something, to help with readability speed in those super-tight tiny fonts.
;; reminder of the old nice default:
;; '(default ((t (:inherit nil :stipple nil :background "#100a05" :foreground "#eec055" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 91 :width normal :foundry "unknown" :family "jffhlo"))))


;
(defun font-zoom-increase-font-size ()
  (interactive)
  (progn
    (setq font-zoom-index (min (- (length font-zoom-list) 1)
			       (+ font-zoom-index 1)))
    (set-frame-font (nth font-zoom-index font-zoom-list))))
					;
(defun font-zoom-decrease-font-size ()
  (interactive)
  (progn
    (setq font-zoom-index (max 0
			       (- font-zoom-index 1)))
    (set-frame-font (nth font-zoom-index font-zoom-list))))
					;


(defun font-zoom-reset-font-size ()
  (interactive)
  (progn
    (setq font-zoom-index default-font-zoom-index)
    (set-frame-font (nth font-zoom-index font-zoom-list))))
					;

(define-key global-map (read-kbd-macro "C--") 'font-zoom-decrease-font-size)
(define-key global-map (read-kbd-macro "C-=") 'font-zoom-increase-font-size)
(define-key global-map (read-kbd-macro "C-0") 'font-zoom-reset-font-size)
					;
    (set-frame-font (nth font-zoom-index font-zoom-list)) ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; funky start fonts ¯\_(ツ)_/¯ ; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;(setq fancy-startup-text ) 
;;wanted;;;;"There's no shame in the truth.")
;;wanted;;;;((t (:foreground "#988262" :family "grgi")))))
;;(setq fancy-about-text )
;;wanted;;;;"Their's know shaman, the truth.")
;;wanted;;;;((t (:foreground "#988262" :family "grgi")))))

;;(defface fancy-about-text-face '((t  ;;(:background "#029" :foreground "#f0f" :family "hurpicat")))
;;  "a face to highlight the start"
;;  :group 'faces)

;; adapted from https://ergoemacs.googlecode.com/svn/trunk/ergoemacs/init_version.el
;;(setq fancy-startup-text nil)
;;(setq fancy-startup-text nil)

(setq fancy-startup-text
;;  '((:face (variable-pitch (:background "#207" :foreground "#ff0" :height 55 :family "nzt"))
  '((:face (variable-pitch (:inherit default :height 72 :family "jffhlo"))
     "This is "
     :link ("DigitEmacs"
	    (lambda (button) (browse-url "http://www.gnu.org/software/emacs/")))
     ".\n\n"
     "and dont u forget it."
     ".\n\n")))

;;(setq fancy-about-text
;;  '(((lambda () (emacs-version))
;;     "\n\n"
;;     :face (variable-pitch (:inherit nil :stipple nil :background "#100a05" :foreground "#eec055" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 55 :width normal :foundry "unknown" :height 42 :family "nzt"))
;;     "\tEmacs contributors\n"
;;     :link ("GNU Emacs Authors"
;;  	    (lambda (button)
;;  	      (view-file (expand-file-name "AUTHORS" data-directory))
;;  	      (goto-char (point-min))))
;;          "\n"
;;     :face (variable-pitch (:slant oblique))
;;     "meep meep ABSOLUTELY NO WARRANTY\n"
;;     :face variable-pitch
;;     "\n"
;;     )))


;; menus!
;;
;;[2016-05-18 22:20:53] <n2o4> Basically you could write menus to any major/minor mode and use them.
;;[2016-05-18 22:21:51] <n2o4> Can't remember having toyed with them too much, but I think they're just named, sparse key-maps with some kind of menu-identifier.
;;[2016-05-18 22:22:03] * Digit doesnt remember if it was 2013 or 2010 he started emacsing
;;[2016-05-18 22:22:57] <n2o4> Ie. (define-key menumap [menu description] "Docstring" . function)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;haskell mode stuff, gawdamnit i want haskell-mode!  :>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; melpa first.

;; with or without proper haskell mode, can have tidal (with Dirt)
;;You will have to start dirt every time you want to run Tidal, otherwise there will be no sound.
;; from shell: cd ~/gittings/Dirt && ./dirt &
;;(add-to-list 'load-path "~/audiostuff/_tidal")
;;(add-to-list 'load-path "~/gittings/haskell-mode")
;;(require 'haskell-mode)
;;(require 'tidal)
;;;; ^ If tidal.el did not come with this document, you can grab it here: https://raw.github.com/yaxu/Tidal/master/tidal.el
;;;; n like, put it somewhere loadable.

;; testing autojoin on ident, rather than autojoin on connection.  so if things are bork next time i restart erc, that'll likely be why.

(require 'package)
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(browse-url-browser-display nil)
 '(elfeed-feeds (quote ("https://stallman.org/rss/rss.xml")) t)
 '(erc-accidental-paste-threshold-seconds 1)
 '(erc-autoaway-idle-seconds 802200)
 '(erc-autoaway-message
   "Digit (innactive for %i seconds)... probably flying a griffin through space")
 '(erc-autoaway-mode t)
 '(erc-autojoin-mode t)
 '(erc-autojoin-timing (quote ident))
 '(erc-button-buttonize-nicks t)
 '(erc-button-mode t)
 '(erc-fill-column 112)
 '(erc-fool-highlight-type (quote all))
 '(erc-fools
   (quote
    ("woodwose" "gullibleisland" "devfx11" "n01d" "DaemonFC" "rtn0" "Blukunfando" "blitzkraft" "sorcerer" "SUP3RN3T5" "cosmicblue" "mefisofeles" "drakken" "rabbitear" "rabbitear_g" "parrotlover" "deusexmachina" "NoImNotNineVolt" "CrystalMath" "moaz" "travis-ci" "irc-core" "void-" "xbps-builder" "DevTwo" "DevFour" "dfoolz" "forcer" "aidalgol" "theplic" "Gremble" "storge" "TheRedMoo*" "TheRedMood" "rHermes" "rrHermes" "darryl" "snubby" "snobby" "zebrapig" "Jovo" "(^dka)bot!" "(^luna)cat[1|2](^8)" "Weedykins" "irker*" "Anonymoose" "Anonymoooose" "fsbot" "Agent_K" "Mr_K" "apm1" "savior" "alazare619" "variegata" "eth0ghost" "merrigan" "gerritwk23" "jenkins-exherbo" "exherbo-commits" "Lorentz" "bobysdadda" "boboysdadda" "seonel97" "NixOS_GitHub" "Derpadong" "onetwo" "onetwo_" "ic2000" "geggam" "Myau" "Tipping_Fedora" "baotunggg" "c_smith" "ringo32" "TestingTe" "McClane2" "MatthewAllan93" "swift110" "vimuser" "calher" "-travis-ci-" "systemd" "punkjesus" "wigums" "phanes" "cpunches" "Jookia" "Halts" "Leah" "Tazy" "orbea" "BobPage" "RandIter" "_ohm" "bonsaikitten" "convexed_cave" "iamben" "The_Document" "noodlepie" "phizzy" "phizzy_" "egnuph" "dugz" "z6np" "beanandana" "Angélica" "QcMat" "Bacta" "drakonis" "fpbot" "hiya" "spacedust" "kstigs" "kreyren" "Angelica" "Sam_Hyde" "Anselmo" "khronosschoty")) nil nil "if you argue with fools...  but anyhoo, not all here are fools (e.g. some are bots), but still wise not argue with them.  best avoid such escalations (because convictions become identities and then challenges provoke fight (or flight, or freeze)).  dont let the trolls bait you into their tar pits.  no need for drama, egotism, hate n stinky shar-chi negative vibes.  - so this list is just to prevent my hot head escalating drama.  more readily keeps the peace.")
 '(erc-hide-list (quote ("JOIN" "PART" "QUIT")))
 '(erc-highlight-nicknames-mode t)
 '(erc-input-line-position -2)
 '(erc-irccontrols-mode t)
 '(erc-keep-place-mode t)
 '(erc-list-mode t)
 '(erc-log-mode t)
 '(erc-lurker-hide-list (quote ("JOIN" "PART" "QUIT")))
 '(erc-lurker-threshold-time 1950)
 '(erc-match-mode t)
 '(erc-max-buffer-size 190000)
 '(erc-menu-mode t)
 '(erc-modules
   (quote
    (autoaway autojoin button completion irccontrols list match menu move-to-prompt netsplit networks noncommands readonly ring scrolltobottom stamp track)))
 '(erc-move-to-prompt-mode t)
 '(erc-netsplit-mode t)
 '(erc-networks-mode t)
 '(erc-nick "Digit")
 '(erc-nick-uniquifier "Digitteknohippie")
 '(erc-noncommands-mode t)
 '(erc-notify-list
   (quote
    ("Rognvald" "ivylearog" "lo9rd" "jukilop0" "Stoffel" "valroadie")))
 '(erc-notify-mode t)
 '(erc-notify-signoff-hook (quote (erc-notify-signoff)))
 '(erc-notify-signon-hook (quote (erc-notify-signon)))
 '(erc-pal-highlight-type (quote nick))
 '(erc-part-reason (quote erc-part-reason-normal))
 '(erc-part-reason-various-alist (quote (("" "still here in spirit"))))
 '(erc-pcomplete-mode t)
 '(erc-prompt "ommmmmmmmm")
 '(erc-readonly-mode t)
 '(erc-ring-mode t)
 '(erc-server-flood-margin 10)
 '(erc-server-flood-penalty 3)
 '(erc-spelling-mode t)
 '(erc-stamp-mode t)
 '(erc-text-matched-hook (quote (erc-log-matches)))
 '(erc-timestamp-format "[%Y-%m-%e %H:%M:%S] ")
 '(erc-timestamp-format-left "[%Y-%m-%e %H:%M:%S] ")
 '(erc-timestamp-format-right nil)
 '(erc-timestamp-only-if-changed-flag nil)
 '(erc-track-minor-mode t)
 '(erc-track-mode t)
 '(erc-truncate-mode t)
 '(erc-user-full-name "Digit")
 '(fancy-splash-image
   "/home/digit/images/avatars/digitlogo2016dropfrominfinity.png")
 '(nil nil t)
 '(org-agenda-files (quote ("/home/digit/digit.org")))
 '(package-archives
   (quote
    (("gnu" . "http://elpa.gnu.org/packages/")
     ("melpa-stable" . "http://stable.melpa.org/packages/"))))
 '(package-selected-packages
   (quote
    (rainbow-mode fish-mode ghc-imported-from ghc ac-haskell-process)))
 '(scroll-bar-mode (quote right))
 '(shift-select-mode t))

;;https://github.com/haskell/haskell-mode
;; ^ haskell mode sorted from that.

;; now wud work better with contrib installed too, derp.  darcs get http://code.haskell.org/XMonadContrib


;;copy and pastes from old .emacs  ~ do i need to say that still? edited.

;; wrapping
(global-visual-line-mode 1)
;; line numbers
(global-linum-mode 0)
;; kill visual line
;; kill visual line stuff removed due to behaving ilogically
;; scrollbar on right
;; (set-scroll-bar-mode 'right)
;; no scrollbar
;;(scroll-bar-mode -1)
;; no menubar
(menu-bar-mode -1)
;; no toolbar
(tool-bar-mode -1)
;; you're a winner! (i forget why... what's winner mode?)
(when (fboundp 'winner-mode)
  (winner-mode 1))

;;i wanna bind mouse-8 to winner undo, and mouse-9 to winner undo undo.  global map?  i think so
;;(define-key global-map [mouse-8] 'winner-undo)
(global-set-key [mouse-8] 'winner-undo)
(global-set-key [mouse-9] 'winner-redo)

;;i think i wanna bind C mouse-8 to some "back" specific to pane(window) and C mouse-9 to forward equivalent.

;; SAURON STUFF ==== SAURON STUFF ==== SAURON STUFF 
;; sauron Sauron
;;(add-to-list 'load-path "/home/digit/gittings/sauron");; ok so how i add sauron-start-hidden?
;;(require 'sauron)
;;(setq
 ;; yeah, so this is happening.  :)  leet length in sauron.
;; sauron-max-line-length 1337
 ;; whadelseugot?
;; sauron-watchpatterns
;; '("\\bbedrock\\b" "brg" "witch" "sauron" "tydls" "nzt" "tidyr" "\\bdbtfc\\b")
 ;; ^ these no work.  sauron's not watching.  hrm.   erc keywords n highlights work.  but these escape sauron's gaze.
;;sauron-watch-nicks
;; '("lo9rd" "lo9rd1" "tuseau2" "slam" "wgreenhouse" "ambo")
;; ;; blocking events
;;(add-hook 'sauron-event-block-functions
;;  (lambda (origin prio msg &optional props)
;;    (or
;;      (string-match "has quit" msg) ;; ignore events that match 'foo'
;;      ;; other matchers
;;     )))
 ;; timeout duration to prevent swampings
 ;; sauron-nick-insensitivity 420
;; )
;;;; ^ see sauron's README.org for more tips.  it gooood. ~/gittings/sauron/README.org

;;;; as found in https://github.com/djcb/sauron#blocking-events-from-showing-up--sauron-event-block-functions
;;(add-hook 'sauron-event-block-functions
;;  (lambda (origin prio msg &optional props)
;;    (or
;;      (string-match "#haskell" msg) ;; ignore events that match '#haskell', hopefully letting my existence in haskell be pleasant.
      ;; other matchers
;;     )));; will wanna toggle this disabled for a while whenever wanting help in #haskell again for a while.
;; ok, lets see if adding this like this launches sauron in the background when emacs starts...
;;(sauron-start-hidden)


;; ERC STUFF    ====    ERC STUFF    ====    ERC STUFF
;; http://www.gnu.org/software/emacs/manual/html_mono/erc.html & emacs erc wiki



;; tls/ssl stuff for erc n stuff
;;<Oejet> Hi Digit, I'd like you to consider switching on TLS in your client. It's not too difficult in ERC:
;;[2016-04-25 17:52:29] <Oejet>     M-x erc-tls 
;;<Oejet>     IRC server: chat.freenode.net
;;<Oejet>     IRC port: 6697
;;[2016-04-25 18:22:38] <Digit> thanks!  you made that sound really simple.  i was about to M-x erc-tls, then i read https://www.emacswiki.org/emacs/ErcSSL and am back to intimidated.  ^_^  
;;[2016-04-25 18:24:05] <Oejet> I read that page first, and was highly confused.
;;[2016-04-25 18:25:44] <Oejet> It's not necessary at all.
;;[2016-04-25 18:26:36] <Oejet> Do you run ERC by typing: `M-x erc`?
;;[2016-04-25 18:42:59] <Digit> yup
;;^ Oejet says not necessary
;;(require 'tls)



;; lets you clear the buffers, lightening the load.
;; try /flush
;; see here for more info:
;; http://www.emacswiki.org/emacs/ErcTruncation
(defun erc-cmd-FLUSH (&rest ignore)
  "Erase the current buffer."
  (let ((inhibit-read-only t))
    (erase-buffer)
    (message "Flushed contents of channel")
    t))

;; see http://www.emacswiki.org/emacs/ErcScrollToBottom
;; set erc to keep the text entry line at the bottom of screen -nil, -1, -2
;; but supposedly this is only for carbon emacs...  see the next entry for the redisplay bugfix
(setq erc-input-line-position -2)

;; ErcScrollToBottom, redisplay bug fix (yes, it's long)

;;; Replacement functions to unbreak `erc-hide-list' for ERC 5.3

(defun erc-display-buffer-list (buffer)
  "Sanitize a 'buffer' name or list, and convert to a buffer-name list."
  (cond ((bufferp buffer) (list buffer))
	((listp buffer) buffer)
	((processp buffer) (list (process-buffer buffer)))
	((eq 'all buffer)
	 ;; Hmm, or all of the same session server?
	 (erc-buffer-list nil erc-server-process))
	((and (eq 'active buffer) (erc-active-buffer))
	 (list (erc-active-buffer)))
	((erc-server-buffer-live-p)
	 (list (process-buffer erc-server-process)))
	(t (list (current-buffer)))))

(defun erc-display-message (parsed type buffer msg &rest args)
    "Display MSG in BUFFER.                                                       
                                                                                
ARGS, PARSED, and TYPE are used to format MSG sensibly.                         
                                                                                
See also `erc-format-message' and `erc-display-line'."
    (let ((string (if (symbolp msg)
		      (apply 'erc-format-message msg args)
		    msg)))
      (setq string
	    (cond
	     ((null type)
	      string)
	     ((listp type)
	      (mapc (lambda (type)
		      (setq string
			    (erc-display-message-highlight type string)))
		    type)
	      string)
	     ((symbolp type)
	      (erc-display-message-highlight type string))))

      (if (not (erc-response-p parsed))
	  (erc-display-line string buffer)
	(erc-put-text-property 0 (length string) 'erc-parsed parsed string)
	(erc-put-text-property 0 (length string) 'rear-sticky t string)
	(dolist (buf (erc-display-buffer-list buffer))
	  (unless (member (erc-response.command parsed)
			  (with-current-buffer buf
			    erc-hide-list))
	    (erc-display-line string buffer))))))

;;move me to erc section
;;
;; may wanna add the other nicks of spacedust as they arise.  you'll likely be able to tell by how riled up you get
(setq erc-ignore-list '("Tazy" "dfoolz" "Tazy_" "rabbitear_g" "phizzy" "phizzynoodle" "noodlepie"))
;; ahhh, oops, i did have spacedust on ignore...  will add again next time i get riled up by em.

;;move me to erc section
;; foolery
;;[2020-11- 1 21:36:00] <wgreenhouse> Digit: when foolery reaches a higher level, I (add-hook 'erc-text-matched-hook 'erc-hide-fools) and customize erc-log-matches-types-alist to make a match buffer for fools
;;[2020-11- 1 21:36:26] <wgreenhouse> then they (or replies to them) never show up in the main channel, but I can refer to another buffer at leisure
;;[2020-11- 1 21:39:04] <wgreenhouse> you can skip the second step if the foolish content is likely discardable without even looking at the other buffer
;;(add-hook 'erc-text-matched-hook 'erc-hide-fools)

;; mark the line between read and unread
;; keeps possition rather than marking the line, unfortunately.
;;(erc-keep-place-mode 1)

;; lets sort this jumping to middle of the screen crap, once n for all.
;; https://www.gnu.org/software/emacs/manual/html_node/emacs/Auto-Scrolling.html#Auto-Scrolling

(setq scroll-margin 1
    scroll-conservatively 0
    ;; scroll-up-aggressively 0.01 ;; ? involved in the erroneous behavior of scrolling to top ?
    scroll-down-aggressively 0.01)
(setq-default scroll-down-aggressively 0.01)
;; (setq-default scroll-up-aggressively 0.01) ;; removed for testing


(setq scroll-step 1) ;; claimed to risk display lock-up in some cases... leaving on until that happens.
(setq scroll-conservatively 10000)
(setq auto-window-vscroll nil)

;;(setq auto-save-interval 9000) ;; lets see if that matters at all... ~~ it wont, but desperate.

;; ^ testing this out... hopefully that fixes the scroll issue.  found that help in https://www.emacswiki.org/emacs/SmoothScrolling
;; after reading the tips there, i'm starting to suspect my line wrap is involved in the times when it jumps.
;; however...
;; something i've added with these new lines has caused the jumps to go to the top of the screen, not the middle, when it does jump.  scroll-up-aggressively?

;;chans to autojoin
(setq erc-autojoin-channels-alist
      ;; minimal list:
      ;;'(("freenode.net" "#witchnix")
      ;; while testing erc fixes list:
      ;;'(("freenode.net" "#witchnix" "#cowtapult" "#erc" "#emacs-beginners")
;;prior full list:
      ;;'(("freenode.net"  "#witchlinux" "#witchnix" "#whichlinux" "#cowtapult" "#muhcows" "#dev-cowtapult" "#muhcows-factoids" "#bedrock" "##bedrock-chat" "#freepost" "#geekhack" "#uzbl" "##crunchbang" "#guix" "#emacs-beginners" "#erc" "#tidal" "#haskell-irc" "#yi" "#libertybsd" "#jackbang" "#pioneer" "#fsf-members" "#fsfe" "#dragora" "#devuan" "#gentoo-chat")

      ;; about
      ;; added caclulate
      ;;   for help getting net on laptop again.  ... which was probably just my cable loose.  try again back n forth between mate and spectrwm.
      ;; added 
      '(
	("irc.rizon.net" "#cloveros" "#computertech")
;;	("freenode.net" "#gentoo-reiki" "#freenode");;testing for fix
	;; https://geti2p.net/en/faq 
	;;("irc2p" "")

	("freenode.net" "#witchlinux" "#akashicwhatever" "#witchnix" "#peers" "#emacs-beginners" "#erc" "#vervis" "#muhcows" "##rms" "#cultivators" "#gentoo-weed" "#exherbo" "#carbs") ; should be sanely minimal while mending.
	;; trimming this again, while back-n-forth mending things.  keeping this to return to.
;;	("freenode.net" "#gnu-health" "#witchlinux" "#akashicwhatever" "#witchnix" "#bedrock" "##bedrock-chat" "#peers" "#geekhack" "#emacs-beginners" "#erc" "#fsf-members" "#fsf" "#vervis" "#libreplanet" "#muhcows" "#voidlinux" "##rms" "#spaceshipsforeverybody" "#soffmimuhod" "#cultivators" "#artix" "#exherbo" "#fish" "#carbslinux" "#i3" "#youtube-dl" "#gentoo-weed" "#clfswm") ; this was getting long again then i decided to add each distro i'm using with bedrock.... ok, some... ok, just #exherbo.  not gona have #artix, #devuan, #gentoo, etc.  #arya too?  you added it... do it without systemd?
;;	("freenode.net" "#gnu-health" "#witchlinux" "#akashicwhatever" "#witchnix" "#bedrock" "##bedrock-chat" "#peers" "#geekhack" "#emacs-beginners" "#erc" "#fsf-members" "#fsf" "##gentoo-reiki" "#vervis" "#libreplanet" "#muhcows" "#voidlinux" "##rms" "#spaceshipsforeverybody" "#techrights" "##boardsofcanada" "#soffmimuhod" "##gentoo-herb" "##bedrock-ganja" "#cultivators" "#tricorders" "#yi" "#vsido" "#gentoo-weed") ; this getting long again..
	;; that didnt quite take.  
	;; sad to see #gentoo-weed and #cultivators go.  thanks sorceror for starting this new chapter in my life for me.  might as well get rid of the funtoos too, n keep this trim.	
	;;;;;;;; as of 20200629, due to sorceror's unfathomnable vindictive hot headed wilful ignorance and lack of an educated mind.  just not safe. in #cultavators and #gentoo-weed anymore.  so i start a new chapter in my life now.
;;	("freenode.net" "#gnu-health" "#witchlinux" "#akashicwhatever" "#witchnix" "#whichlinux" "#dev-cowtapult" "#bedrock" "##bedrock-chat" "#peers" "#geekhack" "#emacs-beginners" "#erc" "#fsf-members" "#fsf" "#gentoo-weed" "##gentoo-reiki" "#gentoo-reiki" "##scandisquad" "#vikings" "#vervis" "#libreplanet" "#muhcows" "#voidlinux" "##rms" "#funtoo" "##funtoo" "#spaceshipsforeverybody" "##funtoo-herb" "#techrights" "#cultivators" "##boardsofcanada" "#soffmimuhod") ;; this is getting too long again (trying to prune).
;;	("freenode.net" "#gnu-health" "#witchlinux" "#akashicwhatever" "#witchnix" "#whichlinux" "#dev-cowtapult" "#bedrock" "##bedrock-chat" "#peers" "#geekhack" "#emacs-beginners" "#erc" "#fsf-members" "#fsf" "#gentoo-weed" "##gentoo-reiki" "#gentoo-reiki" "##scandisquad" "#vikings" "#vervis" "#libreplanet" "#muhcows" "#voidlinux" "##rms" "#funtoo" "##funtoo" "#spaceshipsforeverybody" "##funtoo-herb" "#techrights" "##boardsofcanada") ;; this is getting too long again (trying to prune).
;; 	("freenode.net" "#gnu-health" "#witchlinux" "#akashicwhatever" "#witchnix" "#whichlinux" "#dev-cowtapult" "#bedrock" "##bedrock-chat" "#peers" "#geekhack" "#emacs-beginners" "#erc" "#fsf-members" "#fsf" "#gentoo-weed" "##gentoo-reiki" "#gentoo-reiki" "##scandisquad" "#vikings" "#vervis" "#libreplanet" "#muhcows" "#voidlinux" "##rms" "#funtoo" "##funtoo" "#spaceshipsforeverybody" "##funtoo-herb" "#techrights") ;; this is getting too long again (saved in this comment as was). 	
	;;; and dont bother going back into ##autism.  Soni's feifdom there brooks no honest discussion.  XD
	;;; as mentioned in the chan as my parting messages after an abrupt warning without rational explanation:
	;;;;; woah, rly?  tell ye what... if you're gonna be running that kind of feifdom where positive suggestions and honest well intentioned discussion are taken in such a negative way...  i'm out.
        ;;; aw.  #funtoo died.  https://joindiaspora.com/posts/245d2f4031b0013819bf002590d8e506 long live ##funtoo  *shrug*
	;;logon join woes
;;	("freenode.net" "#akashicwhatever")
	;; also pruned "###bedrock-renegades" "#e" "#devuan"  "#guix" "#uzbl""#libertybsd"
	;; pruned some gentoos:  "#redcore" "#calculate" "#cloveros"
	;; someday: #littlesis #oligrapher
	;; fuck going back to ##cannabis, QcMat's too much a pillock. XD lmao.
	;; "#nimblypimbly"  "#pioneer"
	;; ##crunchbang #cannabidiol (ops)
	;; #racket
      ;; guff list: "#muhcows-factoids" "#muhcows" "#cowtapult" "#frlev"
      ;; banned from ##nutrition for 3 months for posting what i thought was an amusing a pro vegan image.
	;; <Digit> RandIter: are you on this diet? https://shorturl.at/dlEG2  :3 
;;[2018-01-12 13:14:46] <Nutrohelper[bot]> [ (R: joindiaspora.com) (image/jpeg) 54.8KB ]
;;[2018-01-12 13:17:06] <RandIter> Digit: btw, GOS prebiotic is far better than farty inulin
;;[2018-01-12 13:27:10] <Digit> ach, i'm probably getting more than enough through my diet really.  i just wanted something on hand to fill gaps.  thnx for the tip.
;;[2018-01-12 13:37:03] <arnthor> love me some insol fiber
;;[2018-01-12 13:38:03] <arnthor> I was on a low fodmap diet and I think it made me severely depressed
;;[2018-01-12 13:38:32] <arnthor> I, at least, felt so much better after introducing more veggies to my diet
;;[2018-01-12 13:45:38] * Digit giving himself a crash course basic overview of FOS, GOS, bGOS, bc+GOS, HMO, IMO, n aware of context of genetics/epigenetics n the rest of the diet and the rest of the gut biome, n likes how he's swung through among many other tabs not yet looked at, one where he searched for "ghee and butyrate" :)
;;[2018-01-12 13:48:37] <RandIter> Galactomune is a good GOS product but it can be a tad expensive.
;;[2018-01-12 14:03:24] <RandIter> Digit: that was an unacceptable link you posted in this channel.
;;[2018-01-12 14:03:45] <RandIter> Digit: the sentence is a 3 month ban.
;;[2018-01-12 14:04:24] *** You have been kicked off channel ##nutrition by RandIter (uid32215@gateway/web/irccloud.com/x-sbcugybhszgcochp): posting a shitty image
;;;;;;;;; and the pm exchange:

;;[2018-01-12 14:11:30] <Digit> no warning?  just straight to 3 month ban?   wow.
								       
;;[2018-01-12 14:14:14] <RandIter> keep in touch. In 3 months you will have a great prebiotic strategy in place 
;;[2018-01-12 14:14:28] <RandIter> Looking forward to your report
;;[2018-01-12 14:16:41] <Digit> currently taking ##nutrition off my auto-join list, and, tbh, not inclined to return if ops gonna dish out the ban hammer so suddenly without warning.  frankly, i thought that was a harmless satirical whimsical way to enquire about vegan/vegetarian diet.  thought i was keeping things light n friendly.
;;[2018-01-12 14:18:21] <Digit> i'd like to know how you interpreted that image, such that it warranted a ban.  is there some ~i dont know what~ that i'm missing?
;;[2018-01-12 14:19:20] <RandIter> I frankly don't know what to make of that image.
;;[2018-01-12 14:19:37] <RandIter> It didn't seem relevant to the channel.
;;[2018-01-12 14:19:52] <Digit> ....???? that makes the banhammer decision even less fathomnable, if you didnt know what to make of it.
;;[2018-01-12 14:20:30] <RandIter> It is still not relevant to the channel
;;[2018-01-12 14:20:40] <RandIter> Anyway
;;[2018-01-12 14:20:47] <RandIter> Bam reduced to 24h
;;[2018-01-12 14:20:50] <Digit> n because u cant see the relevance...
;;[2018-01-12 14:20:51] <RandIter> *ban
;;[2018-01-12 14:21:05] <RandIter> It served no educational purpose!
;;[2018-01-12 14:21:26] <RandIter> You can rejoin after 24h
;;[2018-01-12 14:22:31] <Digit> maybe after i've cooled down, i'll reconsider rejoining.  but that was a grotesquely souring misuse of power, from my perspective, does not make the place seem like a welcoming place to discuss nutrition anymore, knowing that's how it'll be.
;;[2018-01-12 14:22:59] <RandIter> lol your link was not one about discussing nutrition
;;[2018-01-12 14:23:37] <RandIter> you shouldn't cool down. you have a right to remain angry.
;;[2018-01-12 14:23:47] <Digit> you decided so, because you couldnt see it, n so, ban-hammer.  no warning.  no discussion.  .... you do see the problem with that approach, right?
;;[2018-01-12 14:23:58] <RandIter> i saw it
;;[2018-01-12 14:24:27] <RandIter> yes I couldn't see your pov
;;[2018-01-12 14:24:51] <RandIter> feel free to stay gone
;;[2018-01-12 14:24:57] <RandIter> have a nice day
;;[2018-01-12 14:25:17] <RandIter> 24h is nothing
;;[2018-01-12 14:25:27] <Digit> and... just to counter the claim it was not relevant:  whether one is vegan/vegetarian or not is relevant, not only to nutrition, but to the specific topic currently at play.
;;[2018-01-12 14:25:42] <Digit> sorry the whimsy was off the mark for you.
;;;;;;; i'll review this later when i've cooled down to see if i was being a dick, or RandIter, or both, or neither.   ... right now though, i'm fuming.  what a dick.  not inclined to return to RandIter's harsh feifdom.

;;emergency list	
;;      '(("freenode.net" "#somewhereoutoftheway")

	
;;biglist      '(("freenode.net"  "#witchlinux" "#witchnix" "#cowtapult" "#dev-cowtapult" "#muhcows" "#muhcows-factoids" "#bedrock" "##bedrock-chat" "#freepost" "#gogs" "#geekhack" "#xbps" "#voidlinux" "#uzbl" "##crunchbang" "#guix" "#emacs-beginners" "#erc" "#tidal" "#freeablo" "#haskell-irc" "#yi" "#bot-cowtapult" "#libertybsd" "#flare-rpg" "#freeablo")

;;shortlist      '(("freenode.net"  "#witchlinux" "#witchnix" "#cowtapult" "#bedrock" "#freepost" "#geekhack" "#uzbl" "##crunchbang" "#emacs-beginners" "#erc")
      
	;;      '(("freenode.net"  "#witchlinux" "#crunchbang" "#vsido" "##slackware" "#bedrock" "#emacs" "#linuxbbq" "#exherbo" "#muhcows" "#vsidofringe" "#delicate-linux" "#witchnix"  "#queertoo" "#fsf-member" "#exherbo" "#erc" "#guix" "#nixos" "#uzbl" "#funtoo" "#nouveau")
	;;emergency help	      '(("freenode.net" "#freenode")
	;; meh, efnet, thought about it, but old hobbled... meh.
	("efnet.port80.se" "#scottishgreens") ;; nah, shite server, empty chan
	;; fitting for home of a scottish greens chat.
	("irc.indymedia.org" "#scottishgreens") ;; better server, still empty chan
        ("oftc.net" "#vsido" "#fish" "#morpheus" "#suckless" "#gentard")
        ;;        ("fuge.it" "#7" "#subtlefuge" "#" "#thelovelydialect")        
        ;;        ("thegeekgroup.org" "#thegeekgroup") ;; joelama suggested
	("gimp.org" "#gimp")
        ("spotchat.org" "#nixtuts")
        ("quakenet.org" "#elite-dangerous")
        ("coldfront.net" "#mensa")
        ("undernet.org" "#mensa" "#erowid" "#GRANDCANYON")
        ("chat.serenia.net" "#sauk" "#lounge")
	("irc.mysociety.org" "#mschat"))) ;;ms, my society, not microsoft, dont worry.

;;;;;;;;;disabling this portion, got logging fix added at start of file.;;;;;;;;;;;;;;;;
;;;;logging
;;;;;; https://www.emacswiki.org/emacs/ErcLogging;;
;;;; logs location:
;;(setq erc-log-channels-directory "~/log/")
;;;; log on part
;;(setq erc-save-buffer-on-part t)
;;;;timestamps in the logs but not shown in chat.
;;;;    (setq erc-hide-timestamps t)
;;
;;;;autologging
;;;;  auto-saving log files on channel activity
;;(setq erc-save-buffer-on-part nil
;;      erc-save-queries-on-quit nil
;;      erc-log-write-after-send t
;;      erc-log-write-after-insert t)
;;;;^ (re(?))trying this method since pre5.3 seemed not to work.  also added allbuffer save method bellow (may be unecessary with autosaving, idk)

;;old pre 5.3 method
;;(add-hook 'erc-insert-post-hook 'erc-save-buffer-in-logs)
;;^ didnt work in initial test, leaving on to see if works once a fresh erc is started.   ... doubt it.  remove and return to https://www.emacswiki.org/emacs/ErcLogging for more methods to investigate

;;adding this from https://www.emacswiki.org/emacs/ErcLogging
;;(defadvice save-buffers-kill-emacs (before save-logs (arg) activate)
;;(save-some-buffers t (lambda () (when (eq major-mode 'erc-mode) t))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



;;nickilist
;; https://www.emacswiki.org/emacs/ErcNicklist
;; -dissabled this because it didnt work, no such file or directory...
;;(require 'erc-nicklist)

;;buddy list                                                                    
(setq erc-pals '("dizzie" "orbea" "weebea" "jony123" "jony321" "wgreenhouse" "VastOne" "dajjal" "lo9rd" "DarkSith" "JordanG" "bongcro" "moogle*" "tuseau2" "tuseau" "paradigm" "valroadie" "cibia" "wei2912" "stoffel" "jukilop0" "xskoulax" "morlog" "Rongvlad" "fr33domlover" "XanCeleste" "Tago" "ivylearog" "chede" "chade" "dfj" "bill-auger" "bill-auger_" "el3")) 
;; "cookiemon5ter" gets added, and taken away.  XD
;; had to take off "Him" until i suss how to escape chars to prevent unintended hilights.

;;
;;keyword highlights
;;(setq erc-keywords '("\\bwitch\\b" "\\berc\\b" "\\borkney\\b"))
(setq erc-keywords '(("\\bpoliticalcompass\\b" erc-keyword-face)
		     ("\\bwitch\\b" erc-keyword-face)
		     ("\\bwitchcraft\\b" erc-keyword-witchcraft-face)
		     ("\\bbedrock\\b" erc-keyword-bedrock-face)
		     ;;("\\bbot\\b" erc-keyword-bot-face)
		     ("\\bsavant\\b" erc-keyword-savant-face)
		     ("\\blunacat2\\b" erc-keyword-lunacat-face)
		     ;;("\\bgo_bot\\b"  erc-keyword-bot-face)
		     ("\\bzebrapig\\b" erc-keyword-bot-face)
		     ("\\bsoffmi\\b" erc-keyword-soffmi-face)
		     ("\\bplait\\b" erc-keyword-plait-face)
		     ("\\bplaiter\\b" erc-keyword-plait-face)
		     ("\\bremaster\\b" erc-keyword-remunter-face)
		     ("\\bbrc\\b" erc-keyword-bedrock-face) ;; brc ("BedRock Change local Context")
		     ("\\bbri\\b" erc-keyword-bedrock-face) ;; bri ("BedRock Information")
		     ("\\bbrl\\b" erc-keyword-bedrock-face) ;; brl ("BedRock aLl")
		     ("\\bbrsh\\b" erc-keyword-bedrock-face) ;; brsh ("BedRock SHell")
		     ("\\bbrw\\b" erc-keyword-bedrock-face) ;; brw ("Bedrock Where")
		     ("\\bbrp\\b" erc-keyword-bedrock-face) ;; brp ("BedRock Path")
		     ("\\bbrs\\b" erc-keyword-bedrock-face) ;; brs ("BedRock Setup")
		     ("\\bbru\\b" erc-keyword-bedrock-face) ;; bru ("BedRock Union")
		     ("\\bbrn\\b" erc-keyword-bedrock-face) ;; brn
		     ("\\bbrc\\b" erc-keyword-bedrock-face)))


(defface erc-keyword-lunacat-face '((t (:background "#223355" :foreground "#88ff33")))
  "ERC face to highlight occurances of the word lunacat"
  :group 'erc-faces)

(defface erc-keyword-witcraft-face '((t (:background "#990077")))
  "ERC face to highlight occurances of the word witchcraft"
  :group 'erc-faces)

(defface erc-keyword-bedrock-face '((t (:foreground "#55ff00" :background "#111111")))
  "ERC face to highlight occurances of the word bedrock"
  :group 'erc-faces)

(defface erc-keyword-savant-face '((t (:foreground "#608" :background "#ff0")))
  "ERC face to highlight occurances of the word savant"
  :group 'erc-faces)

(defface erc-keyword-bot-face '((t (:foreground "#8800ff")))
  "ERC face to highlight bots"
  :group 'erc-faces)

(defface erc-keyword-soffmi-face '((t (:background "#beeeef")))
  "ERC face to highlight soffmi"
  :group 'erc-faces)

(defface erc-keyword-plait-face '((t  (:background "#029" :foreground "#f0f" :family "hurpicat")))
  "ERC face to highlight plait"
  :group 'erc-faces)

(defface erc-keyword-remunter-face '((t  (:background "#b0f" :foreground "#f80" :family "hurpicat")))
  "ERC face to highlight remaster"
  :group 'erc-faces)

;; how many characters per line u want?

;; simply:
;; (setq erc-fill-column 88)

;; complexly:
;; adjusts per size of screen... new lines only, can look messy with stuff already on screen.
(add-hook 'window-configuration-change-hook
	  '(lambda ()
	     (setq erc-fill-column (- (window-width) 2))))


;; = simple erc audio notification =
;; http://www.emacswiki.org/emacs/ErcSound
;;    (add-hook 'erc-insert-post-hook
;;              (lambda () (goto-char (point-min))
;;                (when (re-search-forward
;;                       (regexp-quote  (erc-current-nick)) nil t) (ding))))

;; = fancy erc audio notification =
;; http://www.emacswiki.org/emacs/ErcSound
;;;;;;;;; commented out this while having sound problems.
;; (add-hook 'erc-text-matched-hook
;; 	  (lambda (match-type nickuserhost message)
;; 	    (cond
;; 	     ((eq match-type 'current-nick)
;; 	      (play-sound-file "~/sounds/digit.wav"))
;; 	     ((eq match-type 'keyword)
;; 	      (play-sound-file "~/sounds/ting.wav")))))

;; this should wrap chat the way you like.
(add-hook 'erc-mode-hook 'visual-line-mode)

;; this should nicks more distinct. nick colours nick faces auto
;;(load-file "~/.emacs.d/.ercnickcolorsdigitstyle")
;;(load-file "~/.emacs.d/.ercnickcolorsdigitstyle1") ;;shudnt need to load if i load all .emacs.d  ... do i do that?  :3

;; cont nick colors... "if u  run one emacs daemon to rule them all (including both terminal and X clients): "
(add-hook 'after-make-frame-functions '(lambda (frame) (erc-set-colors-list)))



;; n2o4's typing break tip
(setq type-break-demo-boring-stats t
          type-break-terse-messages t
          type-break-demo-functions '(type-break-demo-boring)
          type-break-mode-line-message-mode t
          type-break-query-mode t)
;;

;; thnx YoungFrog for hand holding, getting bug 16737 workaround
(setq x-select-enable-primary nil
      x-select-enable-clipboard nil
      save-interprogram-paste-before-kill nil)


;;thnx csed for helping my windows get smaller
(setq window-min-height 1)
;;  do a (setq mode-line-format nil) for no mode-line

;; you'll want to reimplement this, once addapted with your own bell audio file, rather than system beep (which is annoying).
;; got from that video, where batman got it from http://stackoverflow.com/questions/11679700/emacs-disable-beep-when-trying-to-move-beyond-the-end-of-the-document
;; if i typed it correctly.  lol.
;;(defun my-bell-function ())
;;(setq ring-bell-function 'my-bell-function)
;;(setq visible-bell nil)

;; A predicate for suppressing the bell at night
;;https://www.emacswiki.org/emacs/AlarmBell#toc9
    (defvar night-start 19
      "The hour that people go to sleep.")
    
    (defvar night-end 11
      "The hour that people wake up.")
    
    (defun nightp ()
      "Check if it is night."
      (let ((hr (nth 2 (decode-time (current-time)))))
        (unless (< hr night-end) (> hr night-start))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  testing

;;defaliasing some commands yo...
;;  no wait, how do i do this?  i fell asleep midway to finding out
;;(defalias f erc-add-fool "add fool to the list")


;;  end of testing
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;
;; ibuffer stuff
;; built with help from http://martinowen.net/blog/2010/02/03/tips-for-emacs-ibuffer.html
;; and with overwhelming confusion from https://www.emacswiki.org/emacs/IbufferMode

;;anti-freeze
(global-unset-key (kbd "C-z"))

;;might want this one on, might not...
(global-set-key (kbd "C-x C-b") 'ibuffer) ;; Use Ibuffer for Buffer List

(setq ibuffer-saved-filter-groups
      '(("home"
	 ("emacs-config" (or (filename . ".emacs.d")
			     (filename . ".emacs")))
	 ("Org" (or (mode . org-mode)
		    (filename . "OrgMode")))
	 ("fish" (mode . fish-mode))
         ("Haskell" (mode . haskell-mode))
	 ("ERC" (mode . erc-mode))
	 ("fyelz" (filename . ".fyelz"))	 
	 ("Help" (or (name . "\*Help\*")
		     (name . "\*Apropos\*")
		     (name . "\*info\*"))))))
;;went wrong?! (fmakunbound 'ibuffer-saved-filter-groups)(setq debug-on-error t)

(add-hook 'ibuffer-mode-hook
	  '(lambda ()
	     (ibuffer-switch-to-saved-filter-groups "home")))

;; less noisey clutter of empty groups
(setq ibuffer-show-empty-filter-groups nil)

;; auto update ibuffer
(add-hook 'ibuffer-mode-hook
	  '(lambda ()
	     (ibuffer-auto-mode 1)
	     (ibuffer-switch-to-saved-filter-groups "home")))

;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;

;; and meddling the background... in hunt of a 1 colour for gui, 1 for tui
(defun on-after-init ()
  (unless (display-graphic-p (selected-frame))
    (set-face-background 'default "unspecified-bg" (selected-frame))))

(add-hook 'window-setup-hook 'on-after-init)

;; backup of default font face background colour, before making it black again, to be compatible with my terminals.
;; '(default ((t (:inherit nil :stipple nil :background "#221321" :foreground "#ffbb55" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 146 :width normal :foundry "PfEd" :family "merg"))))

(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(default ((t (:inherit nil :stipple nil :background "#30192d" :foreground "#ffbb55" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :foundry "PfEd" :family "merg"))))
 '(custom-button ((t (:background "#332233" :foreground "#ffddaa" :box (:line-width 2 :style released-button)))))
 '(custom-button-mouse ((t (:background "#996633" :foreground "#ffcc00" :box (:line-width 2 :style released-button)))))
 '(custom-button-pressed ((t (:background "#fc0" :foreground "#963" :box (:line-width 2 :style pressed-button)))))
 '(erc-action-face ((t nil)))
 '(erc-button ((t (:underline "#cba"))))
 '(erc-command-indicator-face ((t (:underline "#119999"))))
 '(erc-current-nick-face ((t (:background "#420" :foreground "#cbd"))) nil "#cbd #420 dont change it trying to please the eye")
 '(erc-default-face ((t (:foreground "#CFA259"))))
 '(erc-fool-face ((t (:foreground "#666e6b"))))
 '(erc-header-line ((t (:foreground "#EEC055"))))
 '(erc-input-face ((t (:foreground "#a73"))))
 '(erc-keyword-face ((t (:foreground "pale green"))))
 '(erc-keyword-plait-face ((t (:background "#029" :foreground "#f0f" :family "pen"))))
 '(erc-my-nick-face ((t (:foreground "brown"))))
 '(erc-my-nick-prefix-face ((t (:inherit erc-nick-default-face))))
 '(erc-nick-default-face ((t (:underline "#654"))))
 '(erc-nick-msg-face ((t (:foreground "IndianRed"))))
 '(erc-nick-prefix-face ((t (:inherit erc-nick-default-face))))
 '(erc-notice-face ((t (:foreground "#86c"))))
 '(erc-pal-face ((t (:background "#552233"))))
 '(erc-prompt-face ((t (:background "#426" :foreground "#b85"))))
 '(erc-timestamp-face ((t (:foreground "#988262" :family "referal"))))
 '(error ((t (:foreground "Green"))))
 '(header-line ((t (:inherit mode-line :background "#3a281d" :foreground "#FFC27B" :box nil :overline "#352025"))))
 '(highlight ((t (:background "#080"))))
 '(linum ((t (:inherit (shadow default) :background "#060402" :foreground "#FFFFFF"))))
 '(mode-line ((t (:background "#60492f" :foreground "#ffdda5" :overline "#bb9977"))))
 '(mode-line-buffer-id ((t nil)))
 '(mode-line-emphasis ((t (:underline "#fff"))))
 '(mode-line-highlight ((t (:background "#554433" :box (:line-width -1 :color "#853") :overline "#ff6600" :weight light))))
 '(mode-line-inactive ((t (:inherit mode-line :background "#332233" :foreground "#a09080" :box (:line-width -1 :color "#302030") :overline "#809" :weight light))))
 '(org-level-1 ((t (:inherit nil :foreground "#7c0"))))
 '(org-level-2 ((t (:foreground "#bb0"))))
 '(org-level-3 ((t (:foreground "#9a7e55"))))
 '(org-level-4 ((t (:foreground "#a54"))))
 '(org-level-5 ((t (:foreground "#772f70"))))
 '(org-level-6 ((t (:foreground "#538"))))
 '(org-level-7 ((t (:foreground "#358"))))
 '(org-level-8 ((t (:foreground "#385"))))
 '(rainbow-delimiters-depth-1-face ((t (:foreground "#aee"))))
 '(rainbow-delimiters-depth-2-face ((t (:foreground "#fff"))))
 '(rainbow-delimiters-depth-3-face ((t (:foreground "#ffde00"))))
 '(rainbow-delimiters-depth-4-face ((t (:foreground "#ff8d00"))))
 '(rainbow-delimiters-depth-5-face ((t (:foreground "#d36"))))
 '(rainbow-delimiters-depth-6-face ((t (:foreground "#a1c"))))
 '(rainbow-delimiters-depth-7-face ((t (:foreground "#75b"))))
 '(rainbow-delimiters-depth-8-face ((t (:foreground "#88d"))))
 '(rainbow-delimiters-depth-9-face ((t (:foreground "#8bf"))))
 '(rainbow-delimiters-unmatched-face ((t (:foreground "#00ff00"))))
 '(region ((t (:background "#302730"))))
;; '(sauron-header-face ((t (:foreground "#6a4c38" :overline "black"))))
 '(scroll-bar ((t (:background "#321" :foreground "#963"))))
 '(stripe-highlight ((t (:background "#191517"))))
 '(tooltip ((t (:inherit variable-pitch :background "#3f2d2e" :foreground "#EEC055" :height 59))))
 '(variable-pitch ((t (:family "nztt")))))