;; ERC
(add-hook 'erc-after-connect
          '(lambda (server nick)
             (cond
              ((string-match "freenode" server)
                 (erc-message "PRIVMSG" "NickServ IDENTIFY LALA"))
              ((string-match "nazoo" server)
               (erc-message "PRIVMSG" "&bitlbee identify LALA")))))

(setq erc-keywords '("\\bAo\\b"))
(setq erc-track-exclude-types '("JOIN" "MODE" "PART" "QUIT"))

(require 'erc-highlight-nicknames)
(add-to-list 'erc-modules 'highlight-nicknames)

(add-to-list 'erc-modules 'log)
(setq erc-log-write-after-insert t
      erc-log-write-after-send t
      erc-save-buffer-on-part nil
      erc-save-queries-on-quit nil)

(erc-spelling-mode t)
(setq erc-spelling-dictionaries '(("#joker" "slovene"))
      ispell-extra-args '("--sug-mode=ultra")
      ispell-program-name "aspell")











(defun x-urgency-hint (frame arg &optional source)
  (let* ((wm-hints (append (x-window-property 
			    "WM_HINTS" frame "WM_HINTS" 
			    (if source
				source
			      (string-to-number 
			       (frame-parameter frame 'outer-window-id)))
			    nil t) nil))
	 (flags (car wm-hints)))
    (setcar wm-hints
	    (if arg
		(logior flags #x00000100)
	      (logand flags #xFFFFFEFF)))
    (x-change-window-property "WM_HINTS" wm-hints frame "WM_HINTS" 32 t)))


(defun hint-it (a b c)
  (x-urgency-hint (selected-frame) t))


(add-hook 'erc-text-matched-hook 'hint-it)





(defun my-erc-page-me-PRIVMSG (proc parsed)
  (let ((nick (car (erc-parse-user (erc-response.sender parsed))))
        (target (car (erc-response.command-args parsed)))
        (msg (erc-response.contents parsed)))
    (when (and (erc-current-nick-p target)
               (not (erc-is-message-ctcp-and-not-action-p msg)))
      (hint-it 1 2 3)
      nil)))
(add-hook 'erc-server-PRIVMSG-functions 'my-erc-page-me-PRIVMSG)




(add-to-list 'erc-encoding-coding-alist '("#joker" . iso-8859-1))
;; windows-1250



(setq erc-log-insert-log-on-open nil)