home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / epoch / epoch-profile.el < prev    next >
Encoding:
Text File  |  1991-03-30  |  6.6 KB  |  210 lines
  1. ; Subject: Re: Bugs and gripes
  2. ; Date: Thu, 27 Sep 90 17:29:06 -0000
  3. ; From: Colas Nahaboo <colas@avahi.inria.fr>
  4. ; 
  5. ; > Mouse should abort isearch:
  6. ; >    Is there a way to make mouse functions abort isearch?  It is sometimes
  7. ; >    bothersome to do a bunch of mouse functions (cut, paste, set-point),
  8. ; >    then type something only to realize that an isearch is still in
  9. ; >    progress!  The same is true of electric functions.
  10. ; >    Electric-buffer-menu-mode provides a catch that can be used with a local
  11. ; >    mouse map, but mousing in other screens or windows leads to the same
  12. ; >    problem as with isearch.  Maybe the proper way to fix these things is to
  13. ; >    modify the elisp to temporarily install its own mouse handler.
  14. ; 
  15. ; I ise x-mouse-set-point (defined below) which fixes the problem.
  16. ; 
  17. ; Also, I have added (epoch::redisplay-screen) on all mouse functions to
  18. ; "fix" the delayed display bugs
  19. ; 
  20. ; The full contents of my epoch-profile.el file follows, if you want more
  21. ; goodies
  22. ; 
  23. ; This is a .emacs file for initializing gnuemacs.  Customize however
  24. ; you like
  25.  
  26. ;; target-buffer is used by random bits of the epoch code.
  27.  
  28. (setq target-buffer (get-buffer "*scratch*"))
  29.  
  30. ;; live dangerously
  31.  
  32. (put 'eval-expression 'disabled nil)
  33.  
  34. ;; because I have so many screens open all the time, and idle C-xC-c can
  35. ;; really screw things up for me.  So make sure we dont exit without
  36. ;; confirmation, and rebind C-xC-c appropriately
  37.  
  38. (defun exit-emacs-with-confirm ()
  39.   (interactive)
  40.   (if (yes-or-no-p "Do you want to exit ")
  41.       (save-buffers-kill-emacs)))
  42.  
  43. (global-set-key "\C-x\C-c" 'exit-emacs-with-confirm)
  44.  
  45. ;(setq exec-path (append '("/usr/local/lib/epoch/etc/") exec-path))
  46. ;(setq exec-directory "/usr/local/lib/epoch/etc/")
  47.  
  48. ;; load epoch files
  49.  
  50.     (load "epoch-util" () t)
  51.     (load "epoch" () t)
  52.     (load "button" () t)
  53.     (load "mouse" () t)
  54.     (load "motion" () t)
  55.     (load "property" () t)
  56.     (load "message" () t)
  57.     (load "server" () t)
  58. ;(load "maintain-screen-titles" () t)
  59.  
  60. (setq epoch::buttons-modify-buffer nil)
  61.  
  62. (setq auto-raise-screen ())
  63. (setq include-system-name ())
  64.  
  65. ;; mouse bindings
  66. (defun x-scroll-region (arg)
  67.   "Scroll window by ARG lines, up or down.
  68.  ARG is line-count between cursor and mouse."
  69.   (select-screen (nth 3 arg))
  70.   (select-window (nth 2 arg))
  71.   (if (> (dot) (car arg))
  72.       (scroll-up (- (count-lines (car arg) (dot))
  73.                    (if (bolp) 0 1)))
  74.     (let ((opoint (dot)))
  75.       (goto-char (car arg))
  76.       (scroll-down (- (count-lines opoint (dot))
  77.                      (if (bolp) 0 1)))
  78.       (goto-char opoint))))
  79.  
  80. (defun x-select-word (arg)
  81.   "Select word under cursor"
  82.   ;;  (epoch::set-motion-hints ())
  83.   (save-window-excursion
  84.     (let (opoint beg end)
  85.       (mouse::set-point arg)
  86.       (forward-char)
  87.       (forward-word -1)
  88.       (setq opoint (point))
  89.       (forward-word 1)
  90.       (epoch::delete-button drag-button)
  91.       (set-marker mouse-down-marker opoint)
  92.       (setq beg (min opoint (point))
  93.            end (max opoint (point)))
  94.       (setq drag-button (epoch::add-button beg end 1 nil))
  95.       (epoch::redisplay-screen)
  96.       (epoch::store-cut-buffer (buffer-substring beg end))
  97.       (copy-region-as-kill beg end)
  98.       )))
  99.  
  100. (defun x-cut-text (arg)
  101.   "selects text and wipe it"
  102.   (select-screen (nth 3 arg))
  103.   (select-window (nth 2 arg))
  104.   (epoch::store-cut-buffer (buffer-substring (dot) (car arg)))
  105.   (kill-region (dot) (car arg)))
  106.  
  107. (defun x-mouse-set-mark (arg)
  108.   "puts mark at mouse cursor"
  109.   (select-screen (nth 3 arg))
  110.   (select-window (nth 2 arg))
  111.   (set-mark (dot))
  112.   (goto-char (car arg))
  113.   (exchange-point-and-mark))
  114.  
  115. (defun x-mouse-set-region (arg)
  116.   "selects text, then makes it the current region"
  117.   (extend-mouse-drag arg)
  118.   (end-mouse-drag arg)
  119.   (set-mark (dot))
  120.   (goto-char (car arg))
  121.   (copy-region-as-kill))
  122.  
  123. (defun x-mouse-paste (arg)
  124.   "paste, moves cursor there, and redraws due to a bug in 3.2b"
  125.   (select-screen (nth 3 arg))
  126.   (select-window (nth 2 arg))
  127.   (goto-char (car arg))
  128.   (insert (epoch::get-cut-buffer))
  129.   (undo-boundary)
  130.   (epoch::redisplay-screen))
  131.  
  132. (defun x-mouse-paste-no-move (arg)
  133.   "paste, moves cursor there, and redraws due to a bug in 3.2b"
  134.   (mouse::paste-cut-buffer arg)
  135.   (epoch::redisplay-screen))
  136.  
  137. (defun x-mouse-set-point (arg)
  138.   "sets point but exit from incremental search"
  139.   (start-mouse-drag arg)
  140.   (abort-isearch)
  141.   (epoch::redisplay-screen))
  142.  
  143.                                        ; mouse key bindings
  144.  
  145. (global-set-mouse mouse-left mouse-down  'x-mouse-set-point)
  146. (global-set-mouse mouse-middle mouse-down  'x-mouse-paste)
  147.  
  148. (global-set-mouse mouse-left  mouse-shift  'x-scroll-region)
  149. (global-set-mouse mouse-middle mouse-shift 'x-mouse-set-mark)
  150. (global-set-mouse mouse-right mouse-shift 'x-mouse-set-region)
  151.  
  152. (global-set-mouse mouse-left  mouse-control     'x-select-word)
  153. (global-set-mouse mouse-middle mouse-control    'x-mouse-paste-no-move)
  154. (global-set-mouse mouse-right mouse-control  'x-cut-text)
  155.  
  156. (global-set-mouse mouse-left mouse-control-shift 'x-mouse-set-mark)
  157.  
  158. ;; \M-\C-y yanks the contents of the cut buffer
  159.  
  160. (defun yank-cut-buffer ()
  161.   "yanks the contents of the cut buffer at the text cursor position."
  162.   (interactive)
  163.   (insert (epoch::get-cut-buffer)))
  164. (global-set-key "\M-\C-y" 'yank-cut-buffer)
  165.  
  166. ;(display-time)
  167.  
  168. ; Wakes up epochs event handler and adminsters caffeine.
  169. ; Ripped bodily out of epoch.el: epoch 3.1 only.
  170. ;    Simon Spero, zmacx07@cc.ic.ac.uk
  171. ;
  172. (defun epoch::oh-no-epochs-buggered-again ()
  173.   (interactive)
  174.   (epoch::map-screen (epoch::minibuf-screen))
  175.   )
  176.  
  177.  
  178. (global-set-key "\C-z=" 'epoch::oh-no-epochs-buggered-again)
  179.  
  180. ;; murthy@cs.cornell.edu (Chet Murthy): exit from isearch
  181.  
  182. (defun abort-isearch ()
  183.   (condition-case err
  184.          (throw 'search-done t)
  185.   (no-catch nil)))
  186.  
  187. (defun x (key param)
  188.   "sets various X parameters of current screen"
  189.   (interactive "cSet what? Font, Back, Text, Cursor: \nsset to: ")
  190.   (cond ((char-equal ?f key) (epoch::font param))
  191.        ((char-equal ?c key) (epoch::cursor-glyph (string-to-int param)))
  192.        ((char-equal ?b key) (epoch::background param))
  193.        ((char-equal ?t key) (epoch::foreground param)))
  194.   (recenter))
  195.  
  196. (defun rename-screen (&optional name)
  197.   (interactive)
  198.   (let ((curr-scr-name (epoch::get-property "WM_NAME")))
  199.     (if (not (or (string= curr-scr-name "Mh-Rmail")
  200.                 (string= curr-scr-name "Calendar")))
  201.        (epoch::set-property "WM_NAME" (or name (concat (buffer-name)
  202.                                                     (sys-name)))))))
  203.  
  204. (defun iconify-screen-and-set-icon (&optional arg)
  205.   (interactive)
  206.   (epoch::set-property "WM_ICON_NAME" (epoch::get-property "WM_NAME"))
  207.   (epoch::iconify-screen arg))
  208.  
  209. (global-set-key "\C-zi" 'iconify-screen-and-set-icon)
  210.