94594 ans ;; 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) 3474655883 None Emacs Lisp TRUE