>>>>> "EK" == Erhan Kesken <[EMAIL PROTECTED]> writes:
[BM'den .emacs cikartmaca...]
EK> cani yurekten katilmaktayim bu dilege, herkes bir etegindeki
EK> taslari dokse wikimizde, paylasim ortami olsa :)
Iyi de yalan yanlis seyleri de yollamis oluyorum diye korkuyorum,
benimkileri ornek almayin.
Ben normalde xemacs kullanirken sonra Emre tutup emacs ile lisp
calismaya baslayinca sadece slime icin emacs'e dondum, sonra emacs
duzelmis diye bir suru baska is icin de onu kullanmaya basladim ama
GNUS/VM icin ve o ekrandayken hala xemacs kullaniyorum. Ikisini de
yollayayim:
~/.xemacs/init.el
-------
;; Fonts and such
; moved to Xdefaults
;; mule shit
(require 'un-define)
(set-coding-priority-list '(utf-8))
(set-coding-category-system 'utf-8 'utf-8)
(un-define-change-charset-order '(ascii latin-iso8859-1 latin-iso8859-9))
;; annoy me with bitching
;(setq debug-on-error t)
;; kill fluff
(custom-set-variables
; '(menubar-visible-p nil)
'(browse-url-netscape-program "mozilla")
'(init-face-from-resources t)
'(gutter-buffers-tab-visible-p nil)
'(scrollbars-visible-p nil)
'(toolbar-visible-p nil))
; (setq scrollbars-visible-p nil)
(set-specifier menubar-visible-p nil) ; fixme?
;(set-specifier scrollbars-visible-p nil)
;(set-specifier toolbar-visible-p nil)
;; GNUS settings
(setq gnus-nntp-server "News.individual.net")
;; mouse wheel
(mwheel-install)
;; fucked if two xemacs are running ??
;; (gnuserv-start) ; so we comment it out
;;;bbdb
(require 'bbdb)
(bbdb-initialize)
(bbdb-insinuate-sc)
;; Mail and news funnies
(setq user-full-name "Bulent Murtezaoglu")
(setq user-mail-address "[EMAIL PROTECTED]")
;; fixme ??
(defun user-full-name () "Bulent Murtezaoglu")
;; single personality now
(defun pers ()
(interactive)
(setq user-full-name "Bulent Murtezaoglu")
(setq user-mail-address "[EMAIL PROTECTED]")
(setq mail-default-headers "From: Bulent Murtezaoglu <[EMAIL PROTECTED]> \n")
(setq gnus-use-generic-from "acm.org")
(setq message-user-organization "None whatsoever"))
(pers)
;;;;; Sat Sep 25 22:56:13 2004 is the below still nedded?
;; Options Menu Settings
;; =====================
(cond
((and (string-match "XEmacs" emacs-version)
(boundp 'emacs-major-version)
(or (and
(= emacs-major-version 19)
(>= emacs-minor-version 14))
(= emacs-major-version 20))
(fboundp 'load-options-file))
(load-options-file "/home/mucit/.xemacs-options")))
;; ============================
;; End of Options Menu Settings
(setq minibuffer-max-depth nil) ; fixme WTF?
;;; erc
(setq erc-user-full-name "Bulent Murtezaoglu")
(defmacro de-erc-connect (command server port nick)
"Create interactive command `command', for connecting to an IRC server. The
command uses interactive mode if passed an argument."
(fset command
`(lambda (arg)
(interactive "p")
(if (not (= 1 arg))
(erc-select ,server ,port ,nick)
(erc ,server ,port ,nick ,erc-user-full-name t)))))
(autoload 'erc "erc" "" t)
(autoload 'erc-select "erc" "" t)
(de-erc-connect erc-lisp "irc.freenode.net" 6666 "bm")
;;;;;my personal commands
(defun date ()
(interactive)
(insert (current-time-string))
(insert "\n"))
(defun eb-track ()
(interactive)
(insert "\nHello, and thanks for your payment. \nYour package will be
shipped today with USPS Priority Mail.\n\nYour tracking number is: \n\nYou can
track your package within 24 hours through \n http://www.usps.gov/cttgate/
.\n\ncheers, \nBM \n"))
;; after http://www.fourmilab.ch/webtools/demoroniser/
(defun demoronize ()
(interactive)
(format-replace-strings '(("\221" . "'")
("\222" . "'")
("\223" . "\"")
("\224" . "\"")
("\213" . " -- ")
("\205" . "--")
("\226" . "--")
("\227" . "\-"))))
(defvar bm-menubar nil)
(defun bm-menubar-toggle ()
(interactive)
(cond (bm-menubar
(set-specifier menubar-visible-p nil)
(setq bm-menubar nil))
(t
(setq bm-menubar t)
(set-specifier menubar-visible-p t)))
(redraw-frame))
;;;; smtp stuff
(load "supercite")
(add-hook 'mail-citation-hook 'sc-cite-original)
(setq news-reply-header-hook nil)
(setq message-cite-function 'sc-cite-original)
;;; mime stuff
; punted to .vm
;;; mail stuff
(setq mail-archive-file-name "~/mail/OUTBOX")
;;; general stuff (late in the file because I don't remember what's going on
;;; above
(jka-compr-install) ;;edit gz files
;; these twp lines are a hack for xemacs 21.1.8
(setq coding-system-for-read 'undecided)
(toggle-auto-compression 1)
;;(load "~/tlog.elc")
;;; rosenberg's /etc file gets screwed up if this is there
; (load "/home/mucit/.ilisp")
;; w3m for hyperspec
(setq browse-url-browser-function '(("CLHS" . w3m-browse-url)
("." . browse-url-netscape)))
;;;;; slime
(setq inferior-lisp-program "/usr/bin/lispworks -multiprocessing ")
(defun bm-sbcl-slime ()
(interactive)
(let ((inferior-lisp-program "/usr/bin/sbcl"))
(slime)))
(add-to-list 'load-path "/home/mucit/slime/inuse")
(setf lisp-indent-function 'common-lisp-indent-function)
(require 'slime)
(slime-setup)
(require 'w3m)
(defadvice common-lisp-hyperspec
(around hyperspec-lookup-w3m () activate)
(let* ((window-configuration (current-window-configuration))
(browse-url-browser-function
`(lambda (url new-window)
(w3m-browse-url url nil)
(let ((hs-map (copy-keymap w3m-mode-map)))
(define-key hs-map (kbd "q")
(lambda ()
(interactive)
(kill-buffer nil)
(set-window-configuration ,window-configuration)))
(use-local-map hs-map)))))
ad-do-it))
(global-set-key [(super h)] 'slime-hyperspec-lookup)
(global-set-key [(super f1)] 'bm-menubar-toggle)
------
Bu da .emacs :
------
;;mule stuff
(require 'un-define)
(un-define-change-charset-order '(ascii latin-iso8859-1 latin-iso8859-9))
;;
(mwheel-install)
;; turn shit off
(tool-bar-mode -1)
(scroll-bar-mode -1)
;;bbdb
(require 'bbdb)
(bbdb-initialize)
(bbdb-insinuate-sc)
;; supercite
(load "supercite")
(add-hook 'mail-citation-hook 'sc-cite-original)
(setq news-reply-header-hook nil)
(setq message-cite-function 'sc-cite-original)
(load "/home/mucit/.bm-emacs.el")
;; for auctex
(require 'tex-site)
_______________________________________________
cs-lisp mailing list
[email protected]
http://church.cs.bilgi.edu.tr/lcg
http://cs.bilgi.edu.tr/mailman/listinfo/cs-lisp
