--- a/.emacs-my Mon Jan 17 00:08:34 2011 +0200
+++ b/.emacs-my Mon Jan 17 21:40:36 2011 +0200
@@ -19,6 +19,14 @@
(setq debug-on-error nil) ; t/nil
;;; ----------------------------------------------------------------
+;;; user info.
+
+(setq user-full-name "Oleksandr Gavenko")
+(setq user-mail-address "gavenkoa@gmail.com")
+(setq user-nick "gavenkoa")
+(setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address ">"))
+
+;;; ----------------------------------------------------------------
;;; mode groups.
(defun my-modelist-to-hooklist (modes)
@@ -69,7 +77,6 @@
(my-modelist-to-hooklist my-text-mode-list)
"List of text mode hooks.")
-
;;; ----------------------------------------------------------------
;;; appearance.
@@ -910,7 +917,7 @@
(setq
jabber-history-enabled t
jabber-use-global-history nil
- jabber-backlog-number 15
+ jabber-backlog-number 40
jabber-backlog-days 30
jabber-alert-presence-message-function (lambda (who oldstatus newstatus statustext) nil)
)
@@ -926,13 +933,21 @@
)
)
+(when (featurep 'jabber)
+ (let ( (mgs-list '("Я тутачки, а где Вы меня ожидали?"
+ "Software Development == Church Development. Step 1. Build it. Step 2. Pray."
+ "А любит Б, Б любит С, что делать A? Найти другую Б!")) )
+ (setq jabber-default-show (nth (random (length mgs-list)) mgs-list))
+ (setq jabber-default-status (nth (random (length mgs-list)) mgs-list))
+ )
+
;; fsm used in emacs jabber
(when (featurep 'fsm)
(setq fsm-debug nil) ; Disable *fsm-debug* buffer.
)
(defvar my-jabber-users nil
- "Assoc list of jabber user goup. Keys are strings, values are lists of JIDs.")
+ "Assoc list of jabber user group. Keys are strings, values are lists of JIDs.")
(defun my-jabber-send (group)
"GROUP is keys from `my-jabber-users'"
@@ -968,6 +983,11 @@
(defun rcirc-handler-301 (process cmd sender args)
"/away message handler.")
+(setq rcirc-default-server "irc.freenode.net")
+(setq rcirc-default-port 6667)
+(setq rcirc-default-nick user-nick)
+(setq rcirc-default-user-full-name user-full-name)
+
;;; ----------------------------------------------------------------
;;; erc.
@@ -1102,8 +1122,16 @@
;;; ----------------------------------------------------------------
;;; TAGS, etags, ctags, GNU GLOBAL.
+;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to
+;; use.
+
+(setq tags-add-tables t)
+
(when (featurep 'etags-table)
(setq etags-table-search-up-depth 8)
+ (when (featurep 'etags-select)
+ (global-set-key "\M-." 'etags-select-find-tag)
+ )
)
;;; ----------------------------------------------------------------
@@ -1403,12 +1431,8 @@
;; Note: if you kill unsaved file auto save file not deleted.
(setq delete-auto-save-files t)
-;;; ----------------------------------------------------------------
-;;; user info.
-
-(setq user-full-name "Oleksandr Gavenko")
-(setq user-mail-address "gavenkoa@gmail.com")
-(setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address ">"))
+;; ----------------------------------------------------------------
+;; User welcome msg.
(add-hook 'emacs-startup-hook
(lambda ()
--- a/.emacs-post Mon Jan 17 00:08:34 2011 +0200
+++ b/.emacs-post Mon Jan 17 21:40:36 2011 +0200
@@ -1,3 +1,24 @@
;; -*- mode: lisp; coding: utf-8; fill-column: 78 -*-
;;
;; For load order see README.
+
+;; (require 'cygwin-mount)
+;; (cygwin-mount-activate)
+
+;; (when (featurep 'jabber)
+;; (setq jabber-account-list
+;; '(
+;; ("gavenko@services.bifit.int"
+;; (:port . 5222)
+;; (:password . "")
+;; ;; (:network-server . "talk.google.com")
+;; (:connection-type . network))
+;; ("gavenkoa@gmail.com"
+;; ;; (:port . 5222)
+;; (:password . "")
+;; (:network-server . "talk.google.com")
+;; (:connection-type . ssl))
+;; )
+;; )
+;; (jabber-connect-all)
+;; )
--- a/.emacs-pre Mon Jan 17 00:08:34 2011 +0200
+++ b/.emacs-pre Mon Jan 17 21:40:36 2011 +0200
@@ -1,3 +1,13 @@
;; -*- mode: lisp; coding: utf-8; fill-column: 78 -*-
;;
;; For load order see README.
+
+;; (require 'remember)
+
+;; (require 'etags-select)
+;; (require 'etags-table)
+
+;; (require 'jabber)
+
+;; (require 'rcirc)
+