--- a/.emacs-my Mon Dec 20 23:33:38 2010 +0200
+++ b/.emacs-my Mon Dec 20 23:33:48 2010 +0200
@@ -658,6 +658,19 @@
(setq-default calc-group-digits t)
(setq-default calc-group-char "'")
+(defun my-calc-eval-region (arg beg end)
+ "Calculate the region and display the result in the echo area.
+With prefix ARG non-nil, insert the result at the end of region."
+ (interactive "P\nr")
+ (require 'calc)
+ (let* ((expr (buffer-substring-no-properties beg end))
+ (result (calc-eval expr)))
+ (if (null arg)
+ (message "%s = %s" expr result)
+ (goto-char end)
+ (save-excursion
+ (insert result)))))
+
;;; ----------------------------------------------------------------
;;; TeX, LaTeX.
@@ -896,6 +909,32 @@
(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.")
+
+(defun my-jabber-send (group)
+ "GROUP is keys from `my-jabber-users'"
+ (interactive
+ (list (completing-read "Select group: " my-jabber-users))
+ )
+ (let (
+ (msg (if (use-region-p)
+ (buffer-substring (region-beginning) (region-end))
+ (buffer-string)))
+ (jc (jabber-read-account))
+ )
+ (deactivate-mark)
+ (mapc
+ (lambda (user)
+ (jabber-send-message jc user "" msg "normal")
+ )
+ (cdr (assoc group my-jabber-users))
+ )
+ )
+ )
+
+(global-set-key (kbd "C-x C-j C-s") 'my-jabber-send)
+
;;; ----------------------------------------------------------------
;;; rcirc.
@@ -1051,17 +1090,18 @@
;; For debug use 'semantic-debug-idle-function' and 'semantic-debug-idle-work-function'.
(unless (featurep 'cedet)
- (when (or (and (= emacs-major-version 23) (= emacs-minor-version 2)) (>= emacs-minor-version 24))
- (semantic-mode 1)
- ))
+ ;; (when (or (and (= emacs-major-version 23) (= emacs-minor-version 2)) (>= emacs-minor-version 24))
+ ;; (semantic-mode 1)
+ ;; )
+ )
(when (featurep 'cedet)
(unless (equal cedet-version "1.0pre7") ; Come with Emacs 23.2.
- (semantic-load-enable-code-helpers)
- (semantic-load-enable-guady-code-helpers)
+ ;; (semantic-load-enable-code-helpers)
+ ;; (semantic-load-enable-guady-code-helpers)
;; (global-srecode-minor-mode 1)
- (require 'semanticdb)
- (require 'semantic-ia)
+ ;; (require 'semanticdb)
+ ;; (require 'semantic-ia)
)
(global-ede-mode t)