digfiles/.emacs

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

;; add cua-mode on startup.  it doesnt actually clobber anything important, only activates such binds when there's selections.  ctrl-c, ctrl-x, ctrl-v!  :)
;; cua-mode
;; https://www.emacswiki.org/emacs/CuaMode
(cua-mode t)
;;idk if i need/want any of these . . .  leaving them on until discovering otherwise.
(setq cua-auto-tabify-rectangles nil) ;; Don't tabify after rectangle commands
(transient-mark-mode 1) ;; No region when it is not highlighted
(setq cua-keep-region-after-copy t) ;; Standard Windows behaviour

;; wanted... click images urls opens in feh

;; Dear Digit...
;;                 when you eventually get around to
;;                 rebuilding your ~/.emacs from scratch
;;                 concern yourself with careful attention
;;                 to catch when reintroducing these bugs:
;;
;;                 #1. erc's same chan different networks
;;                 same buffer.    (no "<2>" appending.)
;;                 #2. erc's repeating nick notification
;;                 once for every chan in. (pm nicks too)
;;                 #3. 

;; for bug #1.( as seen on https://debbugs.gnu.org/cgi/bugreport.cgi?bug=30639 found from https://www.emacswiki.org/emacs/ErcBugs#h5o-1 ) trying:
  (defun erc-generate-new-buffer-name (server port target)
    "Create a new buffer name based on the arguments."
    (when (numberp port) (setq port (number-to-string port)))
    (let ((buf-name (or target
                        (or (let ((name (concat server ":" port)))
                              (when (> (length name) 1)
                                name))
                            ;; This fallback should in fact never happen
                            "*erc-server-buffer*")))
          buffer-name)
      ;; Reuse existing buffers, but not if the buffer is a connected server
      ;; buffer and not if its associated with a different server than the
      ;; current ERC buffer.
      ;; if buf-name is taken by a different connection (or by something !erc)
      ;; then see if "buf-name/server" meets the same criteria
      (dolist (candidate (list buf-name (concat buf-name "/" server)))
        (if (and (not buffer-name)
                 erc-reuse-buffers
                 (or (not (get-buffer candidate))
                     (or target
                         (with-current-buffer (get-buffer candidate)
                           (and (erc-server-buffer-p)
                                (not (erc-server-process-alive)))))
                     (with-current-buffer (get-buffer candidate)
                       (and (string= erc-session-server server)
                            (erc-port-equal erc-session-port port)))))
            (setq buffer-name candidate)))
      ;; if buffer-name is unset, neither candidate worked out for us,
      ;; fallback to the old <N> uniquification method:
      (or buffer-name (generate-new-buffer-name (concat buf-name "/" server))) ))
;;;;;;;; & if that^ janks things... remove it.  at time of writing/saving, not tried this yet.   late night sleepy addition.

;;;; maybe add xdragon for easier click n drag of things?
;;;; https://old.reddit.com/r/emacs/comments/pb6w2z/weekly_tips_tricks_c_thread/haffax1/
;;(defun vz/dired-popup-xdragon ()
;;  "Open xdragon with the marked files or the file at point."
;;  (interactive)
;;  ;; xdragon rename is a nix thing, pretty sure.
;;  (make-process
;;   :name "xdragon"
;;   :command (append '("xdragon") (dired-get-marked-files))
;;   :noquery t))

;;;; foolishness insight
;; as noted in irc:
;; [2021-05-29 09:20:27] * Digit wakes up with a jolt of inspiration on how he can increment (/start) his erc-foolishness idea, in manageable step(s), at his level of understanding... 1 just make the faces, 2 populate erc-match manually,;; 3s make lists, reference list in erc-match,; 4 make function to move/sedit nicks between list.  all starts with just pulling faces
;; as (1&2) originally noted on post-it-note:
;; erc match
;; make faces for foolishness levels
;; populate manually in erc-match for now.
;;
;; progress on foolishness so far...
;; see erc-keyword-foolishness1-face and so on, 

;; 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)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; digit's main melpa stuff
;; following https://www.emacswiki.org/emacs/InstallingPackages

(require 'package)
(add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/"))
;; ("gnu" . "http://elpa.gnu.org/packages/")
;; ("melpa-stable" . "http://stable.melpa.org/packages/")
;; ^-v these two were pinched from that bit in the org thingy... i think i put there to remind me to put here. :3
;;     (("gnu" . "http://elpa.gnu.org/packages/")
 ;;     ("melpa-stable" . "http://stable.melpa.org/packages/"))))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;(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?  ... only if you got rainbow delimitators.            .. .. .. or delimiters.  XD

;;                    ;;
;;;;;;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")
(load-file "~/gittings/rainbow-delimiters/rainbow-delimiters.el")
(add-hook 'prog-mode-hook 'rainbow-delimiters-mode)
(require 'rainbow-delimiters)

;; mouse cursor colour fix 
(set-mouse-color "dark orange") ;; why this no work?

;;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
;; omg, ok, gonna disable even these... ...update: no fear of this breaking in terminal, if nesting to only affect if gui...
;;(global-set-key (kbd "M-]") 'next-buffer)
;;(global-set-key (kbd "M-[") 'previous-buffer)
;; something like (from http://stackoverflow.com/questions/15958448/ddg#15962540  ) :
;;(if (display-graphic-p)
;;    (load-GUI-theme)
;;  (load-Terminal-theme))
(if (display-graphic-p)
    (global-set-key (kbd "M-]") 'next-buffer))
(if (display-graphic-p)
    (global-set-key (kbd "M-[") 'previous-buffer)) ;; ... dis gonna work?  or break all the things?

;;these are alright though.  :)
;; ;; update idea... should make a version of these where instead of C, it's middle mouse button, so can do it one handed.
(global-set-key (kbd "C-<mouse-8>") 'next-buffer)
(global-set-key (kbd "C-<mouse-9>") 'previous-buffer)

;;aight, lets be bold n have a control page up/down for next/prev buffer too.
;;aight, lets comment this out to see if relevant to the page up page down bug in terminals i experience where it cycle buffers 1 direction inputting 5~ and 6~.
;;(global-set-key (kbd "<C-prior>")
;;		'next-buffer)
;;(global-set-key (kbd "<C-next>")
;;		'previous-buffer)
;; and, oh, that's weird, how come that works with that in the <> like that.... well, ok.

;; 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 default-font-zoom-index 3) ;; since i added double size nztt. 
(setq font-zoom-index default-font-zoom-index)
;; get a way to do a set font-zoom-index 8.
;; 

;;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 "-*-bf-*-*-*-*-3-*-*-*-*-*-*-*"
	    "-*-nztt-*-*-*-*-6-*-*-*-*-*-*-*" ;; my fave (scalable)
	    "-*-nztt-*-*-*-*-12-*-*-*-*-*-*-*" ;; my fave (2x scale)
	    "-*-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-*-*-*-*-9-*-*-*-*-*-*-*" ;; my fave (scalable) ;; sneaking in that half-pixely size.
	    "-*-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)
	    "-*-jffhle-*-*-*-*-18-*-*-*-*-*-*-*" ;;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"))
  '((:face (variable-pitch (:inherit default :height 72 :family "jffhle"))      
     "This is "
     :link ("DigitEmacs"
	    (lambda (button) (browse-url "http://www.gnu.org/software/emacs/")))
     ".\n\n"
     "and dont u forget it."
     ".\n\n"
     "There's no shame in the truth."
     ".\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.

;; doing my prompt outside of custom-set-variables now, cos, ima have it say the buffer in the prompt
(setq erc-prompt  (lambda () (concat (buffer-name) " ommmmmmmm ")))
;; and, n2o4's way:
;;
;;(setq erc-prompt (lambda ()
;;                       (if erc-network
;;                           (concat "[" (symbol-name erc-network) "]")
;;                         (concat "[" (car erc-default-recipients) "]"))))

(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 '("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 'ident)
 '(erc-button-buttonize-nicks t)
 '(erc-button-mode t)
 '(erc-fill-column 112)
 '(erc-fool-highlight-type 'all)
 '(erc-fools
   '("manicennui" "Vladimir" "JoePinball" "CloudEvil" "Althego" "chatguy" "arryana" "plankster" "zapster" "caveman" "Treefingers" "M6piz7wk" "M6piz7wk[m]" "boggles" "nomic" "troy_cambridge" "causative" "Karael" "truffles" "FloridaMan" "LovemirrorLove" "Jeroenpc" "assan" "cmpunches" "cpunches" "phanes" "bagira" "eskimo" "Rorschach" "AlyssaXY" "peerce" "hoglahoo" "synfinatic" "Ozzzy" "ndnihil" "shoober420" "ebassi_" "cappe" "tritoch" "sid10506@gateway/web/irccloud.com/x-gsmmmbcsetrwwtoy" "downey" "downey[i]" "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" "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.") ;; was gonna add jab-peeps, but too many.
 '(erc-hide-list '("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 '("JOIN" "PART" "QUIT"))
 '(erc-lurker-threshold-time 1950)
 '(erc-match-mode t)
 '(erc-max-buffer-size 190000)
 '(erc-menu-mode t)
 '(erc-modules
   '(autojoin button completion irccontrols list log match menu move-to-prompt netsplit networks noncommands readonly ring scrolltobottom services 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
   '("Rognvald" "ivylearog" "lo9rd" "voidlo9rd" "worklo9rd" "jukilop0" "Stoffel" "valroadie"))
 '(erc-notify-mode t)
 '(erc-notify-signoff-hook '(erc-notify-signoff))
 '(erc-notify-signon-hook '(erc-notify-signon))
 '(erc-pal-highlight-type 'nick)
 '(erc-part-reason 'erc-part-reason-normal)
 '(erc-part-reason-various-alist '(("" "still here in spirit" "maybe that ruthless megalomaniacal monopolist eugenicist who committed those genocides and takes over everything with embrace-extend-extinguish isnt just putting it on as a fauxlanthropist and really cares." "The computers of Neso are calling you from the future now.  [Neso, Outter moon of Neptune of Sol]" "half drops of infinity rise from infinity" "is it just make it super easy, or does it set the maximum we can do")))
 '(erc-pcomplete-mode t)
 '(erc-readonly-mode t)
 '(erc-rename-buffers 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 '(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 '("/home/digit/digit.org"))
 '(package-archives
   '(("gnu" . "http://elpa.gnu.org/packages/")
     ("melpa-stable" . "http://stable.melpa.org/packages/")))
 '(package-selected-packages
   '(mines sauron rainbow-mode fish-mode ghc-imported-from ghc ac-haskell-process))
 '(scroll-bar-mode 'right)
 '(shift-select-mode t)
 '(tetris-x-colors
   [[0.5 0.5 0.7]
    [0.7 0 1]
    [0.8 0.6 0]
    [0.7 0.3 0.8]
    [1 0.5 0]
    [1 1 0]
    [1 1 1]]))

;;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" "worklo9rd" "voidlo9rd" "tuseau2" "slam" "wgreenhouse" "ambo" "Odoacer" "FatherJack")
;; ;; 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
;;disablingjusttotestifrestoresnickpingnotification;;;  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)
;; it does!  :)     but i need do something else to mend this as nickpings are not highlighting in saurong now.  gah.

;; 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" "Ozzzy" "cmpunches" "cpunches" "phanes" "bagira"))
;; 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")
	;;	("irc.libera.chat" "#witchlinux" "#gentoo-weed" "#cultivators" "#bedrock" "##bedrock-chat" "#fsf" "#freenode" "#carbslinux" "#akashicwhatever" "#peers" "#emacs-beginners" "#witchnix") ;; eyyyy, keep it short n stay mendwards still.
;;	("irc.libera.chat" "#witchlinux" "#akashicwhatever" "#witchnix" "#peers" "#emacs-beginners" "#erc" "#vervis" "#muhcows" "##rms" "#cultivators" "#gentoo-weed" "#bedrock" "##bedrock-chat" "#systemcrafters") ; should be sanely minimal while mending.
;; autojoin not working?  so, trying with irc.libera.chat and just libera.chat 
	;;("irc.libera.chat" "#witchlinux" "#akashicwhatever" "#witchnix" "#peers" "#emacs-beginners" "#erc" "#vervis" "#muhcows" "##rms" "#cultivators" "#gentoo-weed" "#bedrock" "##bedrock-chat" "#systemcrafters" "#fsf" "#freegamer") ; should be sanely minimal while mending.
	("libera.chat" "#akashicwhatever" "#twocows" "#witchlinux" "#witchnix" "#peers" "#vervis" "#cultivators" "#bedrock" "##bedrock-chat" "##bedrock-treehouse" "#gentoo-reiki" "#gentoo-weed" "#healingsoftware" "##autism" "##desu" "#fish" "##tokingaspies" "##cooking" "##astrology" "##health" "##space" "##space-offtopic" "#ethics" "#dbtfc" "#felines-lair" "#carbslinux" "#emacs-beginners" "#emacs") ;; sanely minimal while mending, mk9000.  removed and may add back: #distrotube #felines-lair...
;; nope, this bloated up eventually too.   ...	("libera.chat" "#akashicwhatever" "#twocows" "#witchlinux" "#witchnix" "#peers" "#vervis" "#cultivators" "#gentoostudio" "#gentoo-weed" "#bedrock" "##bedrock-chat" "##bedrock-treehouse" "#gentoo-reiki" "#gentoo-weed" "#rms" "#termonad" "#healingsoftware" "#duiged" "##autism" "##desu" "##notdesu" "#org-roam" "#org-mode" "##fish-shell" "#fish" "##tokingaspies" "##cooking" "##philosophy" "##political_reality" "##astrology" "#gentoostudio" "##health") ; should be sanely minimal while mending. and bedrock-treehouse is #-<# or #-O#... got a logo in mind too... aaaanyways, im just trimming this for non-geeking.  ### ok, i'll keep my toe in bedrock as well as peers. #### ... but now i've also aded termonad, healing software and duiged... and i see astrophysics and plants&organs have snuck in too... so much for minimal.  lol.   took out ##thinking, because tis silly place of "hello, how are you" noise, and no apparent thinking.
	;;	("libera.chat" "#witchlinux" "#akashicwhatever" "#witchnix" "#peers" "#emacs-beginners" "#erc" "#vervis" "#muhcows" "##rms" "#cultivators" "#gentoo-weed" "#bedrock" "##bedrock-chat" "#systemcrafters" "#fsf" "#freegamer" "#smartphoneless" "##astrophysics" "#tenacity" "#tenacity-watercooler" "#tenacity-dev" "#audiofork" "#audacity" "#witchlinux" "#rofi") ; should be sanely minimal while mending. ... nope, grown again.
	;;	("irc.libera.chat" "#witchlinux" "#akashicwhatever" "#witchnix" "#peers" "#emacs-beginners" "#erc" "#vervis" "#muhcows" "##rms" "#cultivators" "#gentoo-weed" "#bedrock" "##bedrock-chat" "#systemcrafters" "#fsf" "#freegamer") ; should be sanely minimal while mending.
;;	("irc.libera.chat" "#witchlinux" "#akashicwhatever" "#witchnix" "#peers" "#emacs-beginners" "#erc" "#vervis" "#muhcows" "##rms" "#cultivators" "#gentoo-weed" "#bedrock" "##bedrock-chat") ; should be sanely minimal while mending.
;;	("freenode.net" "#gentoo-reiki" "#freenode");;testing for fix
	;; https://geti2p.net/en/faq 
	;;("irc2p" "")
;; aw, #librespace have me quieted, so i cant regain my nick while in there. :/  cant auto join
;; minimal test for multinetwork chan overlappery.
	("freenode.net" "#witchlinux" "#witchnix" "#THEGRANDCANYON") ;; amidst the rasengan metastesizing fallout of 2021, removing removed chans, as i prep for moving.
	;;	("freenode.net" "#witchlinux" "#akashicwhatever" "#witchnix" "#peers" "#emacs-beginners" "#erc" "#vervis" "#muhcows" "##rms" "#cultivators" "#bedrock" "##bedrock-chat") ;; amidst the rasengan metastesizing fallout of 2021, removing removed chans, as i prep for moving.
	;;("freenode.net" "#witchlinux" "#akashicwhatever" "#witchnix" "#peers" "#emacs-beginners" "#erc" "#vervis" "#muhcows" "##rms" "#cultivators" "#gentoo-weed" "#exherbo" "#carbslinux" "#digitscutlerytarot" "#accessibility" "#gnus") ; should be sanely minimal while mending.
	;;	("freenode.net" "#witchlinux" "#akashicwhatever" "#witchnix" "#peers" "#emacs-beginners" "#erc" "#vervis" "#muhcows" "##rms" "#cultivators" "#gentoo-weed" "#bedrock" "##bedrock-chat") ; should be sanely minimal while mending.
	;;("freenode.net" "#witchlinux" "#akashicwhatever" "#witchnix" "#peers" "#emacs-beginners" "#erc" "#vervis" "#muhcows" "##rms" "#cultivators" "#gentoo-weed" "#exherbo" "#carbslinux" "#digitscutlerytarot" "#accessibility" "#gnus") ; 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.
	("irc.hackint.org" "#scottishconsulate"))) 

;;;;;;;;;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)

;; foolishness faces
(defface erc-keyword-foolishness1-face '((t (:background "#381919" :foreground "#999")))
  "ERC face to highlight level 1 foolishness"
  :group 'erc-faces)

(defface erc-keyword-foolishness2-face '((t (:background "#381919" :foreground "#666")))
  "ERC face to highlight level 2 foolishness"
  :group 'erc-faces)

(defface erc-keyword-foolishness3-face '((t (:background "#381919" :foreground "#333")))
  "ERC face to highlight level 3 foolishness"
  :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

;; foolish foolery tidbit...

;;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"))))

;; another
;; '(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-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 "#381919" :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 "#777e7b"))))
 '(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 "#af8fcf"))))
 '(erc-pal-face ((t (:background "#552233"))))
 '(erc-prompt-face ((t (:background "#426" :foreground "#b85"))))
 '(erc-timestamp-face ((t (:foreground "#988262"))))
 '(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 "#219C23"))))
 '(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")))))