API tools faq
paste
Advertisement
shiftdot515

dot.emacs

shiftdot515
Aug 4th, 2020
944
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 39.43 KB | None | 0 0
raw download clone embed print report
  1. (message"*** In ./.emacs.d/.emacs ***")
  2. ;; this file is /Users/Daniel/.emacs.d/.emacs on gorf
  3. ;; to get here  ~/.emacs consists of these four lines
  4. ;(setq load-path (cons "~daniel/src/el" load-path))
  5. ;(setq Info-default-directory-list
  6. ;      (cons "~daniel/l/info" Info-default-directory-list))
  7. ;(load-file "~daniel/.emacs.d/.emacs")
  8.  
  9. ;; And, that's it. And, a Terminal.app *save*file* is necessary.
  10. ;; with the corresponding *user* added*keycodes* like vtLarge.term
  11. ;; https://pastebin.com/0fstVwX4
  12. ;;  previously,  https://pastebin.com/SEJRQYbY
  13.  
  14. (switch-to-buffer "*Messages*")
  15. ;; move ispellregion to f11, f10?? something?
  16. ;; f10 selective mode toggle???? transient-mark mode
  17. ;; esc ~ ctrl ~ switch to undo and redo.. compile? next? ctrl-x
  18. ;; f4 mode map  ??
  19. ;; f4= bury buffer  ??
  20. ;; dired by date  delete ?
  21. ;; ctrl-f4 goto line
  22. ;; esc-g mode map ?  % into file 1 home 2 home 3 home
  23. ;; esc-
  24. ;; f2= ctrl x b? ctrl f2... buffer select ??? thing below? yes!!! the
  25. ;; load up f4 like f1.. but maybe not f2 and f3.. .. maybe make those
  26. ;; mode senstive like compile, etc...
  27. ;; registers are middle block.. f5 f6 f7 f8 nope
  28. ;; nope nope split the difference numlock insert mode map. ??
  29. ;;
  30. ;;
  31. ;; ASAP ???  bind dynal expan to function key maybe menu??? shift-shiftreq?
  32. ;; also mental note: bind f11 to toggle that "lamecool" show selection thing
  33. ;; re ASAP dont bind to ctrl varient esp. on f12
  34. ;; consider 2. making a switchtoandkillrecomendedbufferthing
  35. ;; consider 1. making if theres aCTRLting bound to cTRL f12 make
  36. ;;            a macro that produces "-=-" or etc for cTRLU potential
  37. ;; set fill column on insert?? goal column as well??? on INSERT??
  38. ;; add mksh dash to interpreter-mode-alist
  39. ;; also consider adding a yes-kill-buffer-alreadyplzmacro off f1 somehow!
  40. ;; also make a macro that damn! iforget DMNA?? #LOL
  41. ;;
  42. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  43.  
  44. ;;;;;;;;;;;;;;;;;;;;;;;;;; get rid of junk I don' want ;;;;;;;;;;;
  45. (setq initial-scratch-message nil)
  46. (menu-bar-mode -1)
  47. (setq visible-bell t)
  48. (setq custom-file "~/.emacs.d/.emacs.custom") (load custom-file)
  49. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; fixups ;;;;;;;;;;;;;;;
  50. (message "*** ^^^below fixups ^^^ *** ")
  51. ; get rid of maps on f1 and f2 and meta-g
  52. (global-unset-key [f1])       ;; help is also C-h
  53. (global-unset-key [f2])       ;; two column is also on C-X 6
  54. (global-unset-key [f10])      ;; Menu bar, is also  M-`
  55. (global-unset-key "\eg" )   ;; Format Faces remove from M-g
  56. (global-set-key [(control \[) (g)] 'goto-line) ; ESC-G , next is ESC-CTRL-G
  57. (global-set-key [(control \[) (control g)] (lambda () (interactive) (ding t)))
  58. ;(global-set-key "\e\r"  'facemenu-keymap);;  then add to ESC RET / M-RET
  59. ; when did i Have use this? nice example of being polite to imaginary people!
  60. ;(global-unset-key [help])  ; or f15
  61.  
  62. ; emacs please stop being *everybodies*class*project*damn*it!
  63. (global-unset-key "\e`" ) ; ESC-` remove tmm-menubar
  64. (global-unset-key "\e~" ) ; ESC-~ remove command not-modifed
  65.  
  66. ; lol another stupid thing that could be done in emacs ;
  67. ; make a grey-key mode map, and bind every grey key. ESP. the cursors keys
  68. ; as lolol so you'd always have a press a grey twice. ;;;
  69. ; im considering this more and more.
  70.  
  71. (define-key function-key-map "\e[7~" [Home])   ;  VT100's had Find/Select
  72. (define-key function-key-map "\e[8~" [End])    ;  here, not in terminfo
  73. ; hm maybe I do that other thing like the home key mode map;
  74. ; and the end key modemap.
  75. ;
  76. ; relics from when I cared to use emacs with X11 features
  77. (define-key function-key-map "\eOa" [S-up])      ; app mode cursor keys are
  78. (define-key function-key-map "\eOb" [S-down])    ; "\eOA" etc, this variant
  79. (define-key function-key-map "\eOc" [S-right])   ; lets emacs see it.
  80. (define-key function-key-map "\eOd" [S-left])    ; for option-cursorkeys
  81.  
  82.  
  83.  
  84. (define-key function-key-map "\e[35~" [f21])     ; not set in vt102/lk201.el
  85. (define-key function-key-map "\e[36~" [f22])     ; custom for terminal.app
  86. (define-key function-key-map "\e[37~" [f23])     ; these are CTRL-f1==f21
  87. (define-key function-key-map "\e[38~" [f24])
  88. (define-key function-key-map "\e[39~" [f25])
  89. (define-key function-key-map "\e[40~" [f26])
  90. (define-key function-key-map "\e[41~" [f27])
  91. (define-key function-key-map "\e[42~" [f28])
  92. (define-key function-key-map "\e[43~" [f29])
  93. (define-key function-key-map "\e[44~" [f30])
  94. (define-key function-key-map "\e[45~" [f31])
  95. (define-key function-key-map "\e[46~" [f32])    ;  CTRL-f12=f32
  96. (define-key function-key-map "\e[47~" [f33])    ;  CTRL-insert
  97. (define-key function-key-map "\e[48~" [f34])    ;  CTRL-delete
  98. (define-key function-key-map "\e[49~" [f35])    ;  CTRL-home
  99. (define-key function-key-map "\e[50~" [f36])    ;  CTRL-end
  100. (define-key function-key-map "\e[51~" [f37])    ;  CTRL-f13
  101. (define-key function-key-map "\e[52~" [f38])    ;  CTRL-f14
  102. (define-key function-key-map "\e[53~" [f39])    ;  CTRL-up
  103. (define-key function-key-map "\e[54~" [f40])    ;  CTRL-left
  104. (define-key function-key-map "\e[55~" [f41])    ;  CTRL-down
  105. (define-key function-key-map "\e[56~" [f42])    ;  CTRL-right
  106. (define-key function-key-map "\e[57~" [f43])    ;  CTRL-f15
  107. ;; need more keys here.. and also in the DOT-term files for
  108. ;; shift variants of grey keys.. esp. arrows.PauseBreak
  109. ;;;;;;;;;;;;;;;;;;;
  110. (define-key function-key-map "\e[24~" [f666])    ;; WTF does this?
  111. (global-set-key [f666] (lambda () (interactive) (message "f666")))
  112. ; /sometimes F12 , color console, insertchar is numlock???
  113.  
  114.  
  115. ; leave C-X RET as is.
  116. ; consider doing something with window config on C-x 9
  117. ; ctrl-x 7, ctr-x *
  118. ;(define-key function-key-map "\e[27~" [f15])     ; not set in vt102/lk201.el
  119. ;(define-key function-key-map "\e[30~" [f16])     ; custom for terminal.app
  120.  
  121.  
  122.  
  123. ;;;;;;;;;;;;;;;;;;;;;;;;;; global keybindings ;;;;;;;;;;;;;;;;;;;;
  124. (message "*** ^^^below global keybindings ^^^ *** ")
  125. (global-set-key [Home] 'beginning-of-buffer)
  126. (global-set-key [End] 'end-of-buffer)     ;  
  127.  
  128. (global-set-key "\e`" 'scroll-other-window) ; ESC-` and ESC-~
  129. ;(global-set-key "\e~" (lambda () (interactive) (scroll-other-window '-)))
  130. ; ESC-~ is arkward, maybe do something else with it.
  131. ;; maybe make esc ~ a function, so esc 1 etc does move ctrl-x-o
  132. ;: ESC-CTRL-SPACE ? mark-sexp
  133. ; would be better as move other window alternative
  134. ; and detects and end, and reverses???...mmmm
  135. ; points as registers ????
  136. (global-set-key "\e~" 'toggle-transient-mark-mode ) ; ESC-~
  137.  
  138.  
  139.  
  140. (global-set-key [f1] 'list-bookmarks)     ;
  141. (global-set-key [f21] 'bookmark-set)      ;  ctrl-f1 set
  142. (global-set-key [(control \[) (f1)] 'bookmark-jump) ; esc-f1
  143. ;(global-set-key [kp-1] (lambda () (interactive) (ding)))
  144. (global-set-key [kp-1] 'list-buffers)
  145.  
  146.  
  147. ; ok grab elite ultra damaging emacs lisp thing and tie, that unto insert??
  148.  
  149. ;(global-set-key [kp-1] (lambda () (interactive)
  150. ;                         (switch-to-buffer "*scratch*")))
  151.  
  152. ; why does ctrl-shift-f1 ding but at alower volume but I cant
  153. ; seem to grab the key to bind it!?!
  154. ; how about this stuff with f2 instead ' switch to various buffers
  155. ;  how bout start with bury-buffer on f2
  156.  
  157. ;(global-set-key [kp-1] (lambda () (interactive) (switch-to-buffer "*scratch*"
  158. ; 'NORECORD)))  ; shift-f1
  159. ; then switch-to-buffer as ctrl f2
  160.                                         ; but f21 on gorf
  161.                                         ; and still stormy? isit?
  162. (message "*** ???above this???? *** ")
  163.  
  164. (global-set-key [f5] (lambda () (interactive) (ding)))
  165. (global-set-key [f8] (lambda () (interactive) (ding)))
  166. (global-set-key [f25] (lambda () (interactive) (ding)))
  167. (global-set-key [f26] (lambda () (interactive) (ding)))
  168. (global-set-key [f9] '140charactersforward ) ;  
  169. (global-set-key [kp-9] '140charactersbackward ); shift-f9
  170. ; ctrl-f9 ??? 280,, or ctrl-x-x.. you know you do have 2 ctrl's Dan!
  171. ; make macros set mark as well, but keeporg in case you change your mind
  172. ; then ctrl-f9 is swap on the cool other thing, toggle thing.. key
  173. ; ok but now, I think overwrite-toggle needs to be somewhat accessible
  174. (global-set-key [f29] 'overwrite-mode)  ; CTRL-F29 toggle overwrite
  175. ; bc here they work well together
  176. ; so keep it un ctrl-insert ?
  177. ; other toggles on it?
  178. (global-set-key [f29] 'insert-line-number)  ; CTRL-F29 insert-line-number
  179.  
  180. ; 10 is the ctrl-s replacement you want!.. almost!
  181. (global-set-key [f10]  'isearch-forward)
  182. (global-set-key [kp-0] 'isearch-backward)  ; shift-F10
  183. ; ctrl-variation simply bc I don't know what it is.
  184. (global-set-key [f30] 'isearch-yank-word)   ; that is wierd 4 CTRL-F10
  185.  
  186. (global-set-key [f11] 'ispell-word);
  187. (global-set-key [f31] 'ispell-complete-word); should be 1st alternative
  188. ; ctrl-f11, is above, next naturally that's control ;
  189. ; next, natural is shift, so how put delete that word, then shift-F11
  190. (global-set-key [kp-decimal] 'kill-word) ; YES set in terminal preference
  191. ; and this no magic delete, this, word, here, where I am, guess
  192. ; I should have done that, when I was into emacs-lisp-progamming
  193. ; but I should try to use, not merely remember-bury
  194. ; of which, rework, everything, on delete except bury buffer
  195. ;                                                  lol! bother
  196. ; maybe? make that save, instead... radical...did a girlfriend.
  197. ; suggest this in college? kept things too close at times , Dan.
  198.  
  199.  
  200. ;;; yes make shift delete saves...
  201. ; ctrl delete is message: stupid dock thing here, do it now!, no...
  202. ;
  203. ; ctrl-x-o f3 you use it that much
  204. ; shift f3 back then  ;;; NEXT
  205. ; f4 == ctrl-x 2,, shift-f4 ctr-x-1 you use that, that much.
  206. ; tho. esc,esc,esc, does the samething,, tho. that's also on the left side
  207. ; so... do that like you want
  208. ; home, end, can set, use, registers
  209. ; like home/end home, use
  210. ; home/end end/ set, since you end one to set the other
  211. ;; then home/end left, home/end/right also end
  212. ;; always TWO ways less damage!!!
  213. ; undo to F12 undo is also CTRL-_ and C-X u
  214. ; CTRL-U C-X- u , undoes one batch of changes in a region
  215. (global-set-key [f12] 'undo) ; F12
  216. (global-set-key [kp-separator]  'other-window); SHIFT-F12
  217. (global-set-key [f32] (lambda () (interactive) (other-window -1 t))) ; CTRL-F12
  218. (global-set-key [?\ef12] (lambda ()(interactive)(set-mark-command 1))) ;ESC-F12
  219. (global-set-key [?\ekp-separator] 'exchange-point-and-mark) ; ESC-SHIFT-F12
  220. (global-set-key [?\ef32] (lambda ()(interactive) ; ESC-CTRL-F12 )
  221.         (message (int-to-string (mark)))))  ; ; report marks position
  222.  
  223. ;; CTRL-X p, other window, reverse
  224. ;(mark)
  225. ;;mark-ring list of marks ( )
  226. ;;exchange-dot-and-mark  ??? just an alias  
  227. ;;exchange-point-and-mark
  228. (global-set-key [f16] 'undo) ; ??? dan how do have an f16?  ???
  229.  
  230. ;;;;;;; UR not using above, move
  231. (global-set-key [f13] "|tweetpaste") ; sys-req or F-13
  232. (global-set-key [f37] "|tweetpaste") ; CTRL-f13
  233. (global-set-key [menu] (lambda () (interactive) (ding))); menu or SHIFT-sysreq
  234.  
  235.  
  236. ;; save shift down arrow
  237. ;; haha nor ding mode, ding only once in any buffer. minor mode!!
  238. ; at this momemt f12  produces f666 what does that!
  239. ; see line for what I did to make sure to catch... that's still working
  240. ; yeah I WAS thinking I dont want to random undo's
  241. ; but it wasn't doing it on undo, or f12 then.. I think it was insert then
  242. ; C lines 407> and 68  ; hope it isnt wierd compiler bug related
  243. ;(global-set-key [help] "PauseBreak") ; another way to make keyboard macro
  244. ;;;; maybe make a minor mode where you every window, simutaneously;;;;;
  245. (global-set-key [f14] (lambda () (interactive) (message "ScrollLock")))
  246. (global-set-key [f14] 'execute-extended-command ); meta-x alt okey-do-key
  247. ; [keycode] is more better this way.. less imperfect
  248. ; meta-x compile would be good for ctrl-f14
  249. (global-set-key [f38] 'compile )  ; ctrl-f14
  250. (global-set-key [f38] 'rename-buffer) ; for esc-f14
  251. ; see compilation-buffer-name-function
  252. ; shift f14 some stuffs in ctrl-x ; for damage control / shock value
  253. (global-set-key [f17] 'shell-command-on-region ) ; shift-scrollook
  254. ;;;;;;; UR not using above, move to do-key alternatives  !!!!!
  255. ;;(global-set-key [f13] "|pbcopy
  256. "); macro can made this simply
  257.  
  258.  
  259.  
  260.  
  261.  
  262. ;(global-set-key [help] 'describe-key) ;
  263. (global-set-key [help] 'keyboard-escape-quit) ; f15 ; another control-G
  264. (global-set-key [f18] 'suspend-emacs) ; shift-f15
  265. ; escape help or f15
  266. ; super duper dock bounce thing,, with keyboard, terminal stuffing
  267. ; or use send-string-to-terminal???
  268. ; which emacs has somehow I forget
  269. ; CTRL-f15- CTRL-help
  270. ;; ctrl-right-arrow is giving me the same ctrl-f43
  271. ;;; compilation next error? on ctrl-15
  272.  
  273. (message "*** 252");
  274.  
  275. ; maybe make somthing-f13 bring up  dock since Mac is like windoze on that
  276. ; meh
  277. ; anyway it's f12 ///// f13, f14, f15 or help. cursestermcap has it
  278. ; you don't... that was wierd. but I think that happened..
  279. ; maybe f5,, but it's good to leave some functions free for later\\\\\never!
  280. ; how bout control you alternative, since ctrl-u 5 backslash created
  281. ; the above backspace joke/!!!
  282. ;;getting shift-12 undefined; could I not make shiftvarients
  283. ;or did I run out of stuff cursers defines.. etc.. meh
  284. ;cute but now it's undefined instead; buffer? wow
  285. ;what if I come to my own unpatched damn closing brace error back
  286. ;thru here...how ironical <.> for  a selfpwn;
  287. ;speaking of which seen my fixes for VMS-EMPIRE Yup
  288. ;its the same damn thing
  289. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  290. (message "*** 267");
  291. (global-set-key [f4] 'universal-argument)  ; F4
  292. (global-set-key [f24]'center-line) ; CTRL-F4 takes number of lines
  293. ;; ;
  294. ;; `M-q'
  295. ;;      Fill current paragraph (`fill-paragraph').
  296.  
  297. ;; `C-x f'
  298. ;;      Set the fill column (`set-fill-column').
  299.  
  300. ;; `M-x fill-region'
  301. ;;      Fill each paragraph in the region (`fill-region').
  302.  
  303. ;; `M-x fill-region-as-paragraph'
  304. ;;      Fill the region, considering it as one paragraph.
  305.  
  306. ;; `M-s'
  307. ;;      Center a line.
  308.  
  309. ;;    To put <TAB>, <RET>, <ESC>, or <DEL> in the string, you can use the
  310. ;; Emacs Lisp escape sequences, `\t', `\r', `\e', and `\d'.  Here is an
  311. ;; example which binds `C-x <TAB>':
  312. ;;  (global-set-key "\C-x\t" 'indent-rigidly)
  313. ;;  (global-set-key "\C-x\e\e" 'repeat-complex-command)  ;; <ESC>
  314. ;;  (global-set-key [?\ef12] (lambda () (interactive) (ding t)))
  315. ;;  (global-set-key [?\C-x ?\e ?\e] 'repeat-complex-command)
  316. ;;   (global-set-key [?\C-x ?\t] 'indent-rigidly)
  317.  
  318. (global-set-key [f5] (lambda () (interactive) (backward-word 10)))
  319. (global-set-key [f6] 'enlarge-window)
  320. (global-set-key [f7] (lambda () (interactive) (enlarge-window -1)))
  321. (global-set-key [f8] (lambda () (interactive) (forward-word 10)))
  322. ; check esc i, maybe change; check esc i, maybe change forward to stop?
  323. ; stupid ???  ?? forward by 20% ? backward by 20% ?
  324. ; CHANGE f5 to CTRL-X o equiiv,
  325.  
  326.  
  327. ;dabrrev-expand on somthing!!!!!!!!!!!!!!!!!!!!!!!!!
  328. ; maybe maybye maybe  currently esc /
  329.  
  330. ;;; move comma left move coma right on arrow keys somehow,
  331. ;; spellcheck word goto up arrow somehow
  332. ;;
  333. ;; ok try to remember scroll lock is meta-X Do Key on vt200 keyboar
  334. ;; I forgot there was a Center line.. so that on something handy
  335. ;; set fill column on f9 somehow, I'm wed to f9 for forward now.
  336. ;; usb 1.0 manufactures spec, keeps numlock insert, and
  337. ;; if not, that would really ruin spotlight for all the elbows
  338. ;; center-line
  339.  
  340. ;; insert toggle file ; keep numlock what key?
  341. ;;
  342. ;; ok grey mode thing map thing;;;
  343. ;; pgup and pgdown still do there thing.
  344. ;; but because you're you. then home and end
  345. ;; both enter gray mode map; or is called keymultimap
  346. ;; Bruce Willis movie joke here****
  347. ;;
  348.  
  349.  
  350. ; above should be ctrl-j alternative, maybe keyboard macro
  351. ; and elite emacs eval thing
  352.  
  353. ; none of those work, esc-insert goes to num pad.
  354. ; how bout something move % buffer  there
  355.  
  356.  
  357. ; more wisely.. spell check word on up arrow.
  358. ; you barely use arrow keys as it is, without doing hoverdamage,Dan.
  359. ; down something set bookmark?
  360. ; save this on something arrow key too
  361. ; did store detectives have to go along with
  362. ; -- in law-- ; paymasters, pursers, and drawing salary,
  363. ; and rather att. can lawfully admit a right to admit there's
  364. ; petty cash, for the client.
  365. ;                                
  366. ; maybe make delete, grey delete mode map
  367. ; err never but seriously tho.
  368. ; format paragraph on insert !! somehow.. re-range!!!!
  369. ; yes rearrange, but no.. insert needs to be switch back buffer
  370. ; some form off
  371. ; grey=insert should be zap.. then zap to end of line, == ESC-Z m-Z
  372. ; no kill..
  373. ;(global-set-key [delete] '(lambda () (interactive) (ding)))
  374. ;(global-set-key [delete] 'keyboard-escape-quit)
  375. (global-set-key [delete] 'bury-buffer) ; no bury buffer is better here
  376. (global-set-key [f34] 'kill-buffer  ); ctrl-grey-delete
  377. (global-set-key [f34] 'kill-this-buffer  ); ctrl-grey-delete
  378. ; kill-buffer-and-window ... is this good, U haven't used it much.
  379. (global-set-key [kp-divide] (lambda () (interactive) (ding))) ; shift-delete
  380. ;(global-set-key [kp-divide] 'kill-comment) ; shift-delete  :: hmm not
  381. (global-set-key [(control \[) (delete)] 'kill-word)
  382. ;  turn off  ; but leaving this still on numlock
  383. ; meta-insert in terminal reliably produces an escape, then insert seq.
  384. ; remove esc-~
  385. (message "**** 208" )   ;
  386.  
  387. ;; dont work because something isn't loaded
  388. ;; and these are going to shift function key variants you set up.
  389. ;; did I overflow a limit in Terminal file?
  390. ;; thing is I wrote it that way the Curses could have the most syms.
  391. ;; thinking for things not emacs
  392. ;; ah ; ah kp-f1; and kp-1 are different right..
  393.  
  394. (global-set-key [kp-f1] 'forward-comment) ; shift-up-arrow ; ???
  395. (global-set-key [kp-f2] 'forward-comment)
  396. (global-set-key [kp-f3] 'backward-comment)
  397. (global-set-key [kp-f4] 'backward-comment)  ; shift-right-arrow
  398. ; undefined keysyms could be it??????????????
  399. (global-set-key [kp-f1] (lambda () (interactive) (message "kp-f2")))
  400. (global-set-key [kp-f2] (lambda () (interactive) (message "kp-f2")))
  401. (global-set-key [kp-f3] (lambda () (interactive) (message "kp-f3")))
  402. (global-set-key [kp-f4] (lambda () (interactive) (message "kp-f4")))
  403.  
  404. ; maybe c-mode-mode-map
  405. ;(global-set-key [f39] 'previous-error)  ; ctrl-up-arrow
  406. ;(global-set-key [f40] 'first-error)     ; ctrl-left-arrow
  407. ;(global-set-key [f41] 'next-error)      ; ctrl-down-arrow
  408. ;(global-set-key [f43] 'compilation-next-error) ; ctrl-right-arrow
  409. ;;;; ctrl-f15 conflict some how
  410. (global-set-key [f39]  (lambda () (interactive) (message "f39))
  411. (global-set-key [f40]  (lambda () (interactive) (message "f40")))
  412. (global-set-key [f41]  (lambda () (interactive) (message "f41")))
  413. (global-set-key [f43]  (lambda () (interactive) (message "f43)))
  414.  
  415.  
  416.  
  417.  
  418. ;(global-set-key [prior] 'scroll-down)   ; pg-up
  419. ;(global-set-key [next] 'scroll-up)      ; pg-dn
  420. (global-set-key [kp-subtract] (lambda () (interactive) (scroll-other-window '-)
  421.                                )) ; shift-pgup
  422. (global-set-key [kp-add] 'scroll-other-window)  ; shift-pgdn
  423. ; this is good for looking at help  
  424. (global-unset-key "\e{" )                     ; remove  backward paragraph
  425. (global-unset-key "\e}" )                     ; and forward paragraph, and
  426. (global-set-key [(control \[)(prior)] 'backward-paragraph) ;put them here
  427. (global-set-key [(control \[)(next)] 'forward-paragraph) ; & here meta-pgdn
  428.  
  429. ;;;;;;;;;;;;;; ALL-INSERT-KEYS-HERE----------------
  430. (message "*** 405");
  431. (global-set-key [insert] 'describe-key) ; this is numlock ; maybe register ???
  432. (global-set-key [kp-enter] 'describe-key) ; ctr-numlock
  433. (global-set-key [kp-tab] 'describe-key)   ;  shift-numlock
  434. ; (global-set-key [insert] (lambda () (interactive) (message "[insert]")))
  435. ; sometime, something is making insert key. ;it's numlock!
  436. ; ok so I thinking something is randomly doing insert?? wierd--anyway
  437. ;(global-set-key [insert] 'ispell-word ) ; typically ESC $ but this is near greykeys
  438.  ; insert in itself is dead when one used a windoze keyboard on mac
  439.  ; except numlock isnt, it keysym is insert, as it should be
  440. ;
  441. ;tell application "Dictionary"
  442. ;activate
  443. ;end tell
  444. ;open location "DICT:///word
  445. ;;tell application "Dictionary" to activate
  446. ;;open location "DICT:///word"
  447. ;;run with osascript
  448.  
  449.  
  450. (message "*** !!!!!!");
  451. ;;;;;;;;;;;; GREY INSERT ----------------------------
  452. (global-set-key [f33] 'overwrite-mode)        ; ctrl-grey-insert
  453. ; ESC-f33 sometime???
  454. ;global-set-key [(control \[) (insert)] (lambda ()
  455. ;                     (interactive)
  456. ;                      (overwrite-mode -1)))
  457. (global-set-key [kp-multiply] 'what-cursor-position); shift-grey-insert
  458. ; meta-grey-insert, works, but not ESC grey-insert
  459. (global-set-key [(control \[) (insert)] 'desribe-char-after)
  460.                                        
  461.  
  462. ;(global-set-key 'comment-ident-new-line) ; shift-insert
  463.  
  464. ;(global-set-key [kp-multiply] (lambda () (interactive)    ; esc-shift
  465. ;                         (switch-to-buffer "2tweet.txt"))) ; insert
  466.  
  467. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  468.  
  469. (setq max-mini-window-height 3) ; default is ratio 0.25, this is 4 lines
  470. (setq resize-mini-windows t)
  471. (setq echo-keystrokes 0.61) ; seconds to pause before echoing m-x etc
  472.  
  473. ;(ding)
  474. (message "*** 244 ")
  475. ; indent-relative
  476. ; bury-buffer
  477. ; help where-is C-h-w
  478. ;      describe key c-h k
  479. ; C-h b describe-bindings
  480. ; describe-mode C-h-m      
  481. ;; these next two lines really improve emacs's behavior IMO
  482.  
  483. ; comment-region
  484. ; indent-for-comment comment-column
  485. ; c-tab-always-indent ???
  486.  
  487.  
  488. ;(setq next-line-add-newlines nil ) ;; t if you want std emacs behavior
  489.  
  490. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ^^^ now default
  491. (setq require-final-newline nil) ;; 1 is interactive, nil is dont bother me
  492.  
  493. ;;;;;;;;;;;;;;;; various variables ;;;;;;;;;;;;;;;;;;;;;;;;;
  494. (setq bookmark-save-flag 1)  ;book marks save after each command
  495. (setq bookmark-search-size 20) ; save this much context x2 each bm
  496. (setq bookmark-sort-flag nil)
  497. (setq bookmark-default-file "~/.emacs.d/.emacs.bmk")
  498. ;(next-screen-context-lines ); next/pgdn/ pior/pgup
  499. ;;;;;;;; also scroll zone ??? where is that... think I want to swap those!
  500. ;;try  bs.el -- bs-mode electric-buffer-list
  501. ;; This package offers two functions for buffer cycling. If you want to cycle
  502. ;; through buffer list you can use `bs-cycle-next' or `bs-cycle-previous'.
  503. ;; Bind these function to a key like
  504. ;;   (global-set-key [(f9)]   'bs-cycle-previous)
  505. ;;   (global-set-key [(f10)]  'bs-cycle-next)
  506. ;;
  507. ;;;; try pc-select
  508. ;; see ws-model.el esp. ws-show-markers....
  509. ;;;;; terminal / modeline/ highlighting etc ;;;;;;;;
  510. ;; try enriched-mode
  511. ;; try follow
  512. ;; try hi-lock mode see info bookmarks registers...
  513. ;; hi-line-highlight hl-line-face
  514. ;; hi-line-mode
  515. ;; underline face / blinkface
  516. ;(toggle-scroll-bar -1)
  517. ;(setq visible-bell nil)
  518. ;(insert-directory "*.el" ".")ls: *.el: No such file or directory
  519. ; ls-lisp.el
  520. ; make-command-summary
  521. ; copy-from-above-command --- misc.el
  522. ; copy-from-above-command --- misc.el --- misc.el
  523. ; zone leave me alone
  524. ; zone
  525. ; artist.el
  526.  
  527.  
  528. ;;;;; terminal / modeline/ highlighting etc ;;;;;;;;
  529. ;(toggle-scroll-bar -1)
  530. ;(setq visible-bell nil)
  531. (column-number-mode 1)
  532. ;;;;;;;;;;;;;;;;;
  533. (line-number-mode 1)
  534.  
  535. (message "*** 309");
  536. ;(setq line-number-display-limit-width)
  537. ;; VV-c how to make this a toggle
  538. ;(display-time)
  539. ;(setq display-time-day-and-date)
  540. ;(setq display-time-24hr-format t)
  541. ;(setq display-time-interval 120)
  542. ;(setq display-time-format)
  543. ;(setq display-time-hook)
  544.  
  545. ;(resize-minibuffer-mode 1) ; obsolete
  546.  
  547. ;(global-hl-line-mode 0)
  548. ;(blink-cursor-mode 1)               ; need term cap vi,vs,ve
  549. ;(setq show-trailing-whitespace t)
  550. ;(setq-default show-trailing-whitespace t)
  551.  
  552.  
  553.  
  554. ;m-x check-parens
  555.  ;; paren matching ;;;  ;; also remember c-m-a c-m-e
  556. (if nil
  557.     (progn  ;;; paren.el
  558.       (show-paren-mode 1)
  559.       (setq show-paren-style 'mixed)
  560.       (setq show-paren-delay 0.3 )
  561.       (copy-face 'default 'show-paren-match-face)
  562.       (copy-face 'default 'show-paren-mismatch-face)
  563.       (set-face-underline-p 'show-paren-match-face t) ; _bold_underline match
  564.       (set-face-bold-p 'show-paren-match-face t)      ;
  565.       (set-face-underline-p 'show-paren-mismatch-face t);is _inverse_underline
  566.       (set-face-inverse-video-p 'show-paren-mismatch-face t)
  567.       )  
  568.   (progn ;;; alternative;  flash-paren
  569.     (require 'flash-paren)
  570.     (set-face-bold-p 'flash-paren-face-on t)
  571.     (set-face-inverse-video-p 'flash-paren-face-off t)
  572.     (set-face-underline-p 'flash-paren-face-region t)
  573.     (setq flash-paren-method 'flash-paren-do-flash-with-overlay-faces)
  574.     ; (setq blink-paren-function nil) ; ??
  575.     (setq flash-matching-delay 0.34)
  576.     (flash-paren-mode 1) ;; may need work with show-trailing-whitespace
  577.     ))
  578. (message "*** paren matching ***")
  579. ;;
  580. ;;     (require 'dot-mode)
  581. ;;     (add-hook 'find-file-hooks 'dot-mode-on)
  582.  
  583. ;(tty-display-color-p)
  584.  
  585. ; syntax highlighting
  586. (global-font-lock-mode t)              ; always highlight source code
  587. ;;  (add-hook 'emacs-lisp-mode-hook 'turn-on-font-lock)
  588. ;(setq font-lock-maximum-decoration 'maximum)
  589. (setq font-lock-maximum-decoration 'nil)
  590. (setq font-lock-maximum-size nil)
  591. (setq font-lock-verbose 'always)
  592. ;(setq font-lock-support-mode nil)
  593.  
  594.  
  595.  ;; custom faces ???
  596. ;(setq font-lock-comment-face)   ; red
  597. ;(setq font-lock-string-face)    ; green
  598. ;(setq font-lock-doc-face)       ; green
  599. ;(setq font-lock-builtin-face      ) ; blue
  600. ;(setq font-lock-function-name-face) ; blue
  601. ;(setq font-lock-type-face)          ; green
  602. ;(setq font-lock-constant-face)      ; purple
  603. ;(setq font-lock-warning-face)       ; red
  604.  
  605. ;(setq c-font-lock-extra-types )
  606. ;(font-lock-add-keywords 'c-mode '("\\<\\(and\\|or\\|not\\)\\>"))
  607.  
  608.  
  609. ;( hi-lock-mode -1 ) ; m-x highlight-phrase ; hi-lock.el
  610. ; (global-highlight-changes 0 ) ; ; also m-x hightlight-changes
  611.  
  612.  
  613. ;(setq hilit-background-mode 'dark)
  614. ;(setq gnus-background-mode 'dark)
  615. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  616.  
  617. ; spelling ; ispell-word M-$,
  618. ;(flyspell-mode)
  619.  
  620. (message "*** 286")
  621.  
  622.  
  623. (setq eval-expression-debug-on-error nil)
  624.  
  625. ; tab stops
  626.  
  627. (defun list-of-multiples ( num nogreater )
  628.   "make a list of multiples of num, useful for setting tabstops"
  629.    (let ((lom (list num)))
  630.      (while (>  nogreater (+ num (car (last lom))))
  631.        (setq lom (append lom (list (+ num (car (last lom)))))))
  632.    lom))
  633. (setq tab-stop-list (list-of-multiples 3 132))
  634. (setq-default indent-tabs-mode nil) ; add tab characters , or not
  635.  
  636. (message "*** 302")
  637.  
  638. (setq default-major-mode 'text-mode)
  639.  
  640.  
  641. ;;;; picture-mode improvements ;;;;;;;;;;;;;;;
  642.  
  643. (defun picture-movement-none ()
  644.   "set picture-movement-motion to none"
  645.   (interactive)
  646.   (picture-set-motion 0 0)
  647.   )
  648.  
  649. (cond
  650.  (t
  651.  ;;((not (boundp 'picture-mode-hook))
  652.   (setq picture-mode-hook
  653.         '(lambda ()
  654.            (picture-set-motion 0 0)
  655.            (define-key picture-mode-map "\C-co" 'picture-movement-none)
  656.            ;; picture mode is most useful with no insert motion, IMO
  657.            ;
  658.            ;
  659.            )    
  660.         )      
  661.   )
  662.  )
  663.  
  664. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  665.  
  666.  
  667.  
  668. ;(setq dired-listing-switches "-al")
  669. ;;;; enable /disable commands
  670. (put 'eval-expression 'disabled nil)
  671. (put 'upcase-region 'disabled nil)
  672. ;(setq term-file-prefix nil)
  673. (put 'rmail 'disabled nil)
  674. ;(setq mail-default-reply-to "nospam-d4l@")
  675. (setq mail-from-style 'angles)
  676. ;(setq mail-specify-envelope-from)
  677. ;;;;
  678. ;(setq rmail-file-coding-system binary)
  679. ;(setq buffer-file-coding-system )
  680. ;(set-terminal-coding-system )
  681. ; m-x list-coding-systems
  682.  
  683.  
  684.  
  685. (put 'upcase-region 'disabled nil)
  686.  
  687. (setq-default fill-column 77)
  688. (setq standard-indent 4)
  689. (setq scroll-margin 2) ;1
  690. ;(setq scroll-step 1)
  691. (setq scroll-conservatively 4) ; 10
  692. (setq dired-listing-switches "-al")
  693. (setq perl-tab-to-comment nil)
  694. ; (setq comment-style )
  695. (message "*** 251")
  696.  
  697. ;; to  try to speed up editing in large files...
  698. ;;;(setq mark-ring-max 8) ;; default is 16
  699. ;;;(setq kill-ring-max 20) ;; default is 60
  700.  
  701. (setq mark-ring-max 20)
  702. (setq kill-ring-max 80)
  703. (setq undo-limit 20000 );
  704. (setq undo-limit 40000 ); default 20000
  705. (setq undo-strong-limit 60000) ; default 30000
  706.  
  707. ;;;;; backup and auto-asave ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  708. ;;;;;;;;; these settings make emacs
  709. ;;;;;;;;; keep 2 numbered backups. the ~1~ one is the original file
  710. ;;;;;;;;; and is kept between sessions.. the latest backup is the highest
  711. ;;;;;;;;; numbered one
  712. (setq version-control t)
  713. (setq kept-old-versions 3)
  714. (setq kept-new-versions 2)
  715. (setq delete-old-versions t)
  716. (setq backup-inhibited nil)
  717. ;;;; toggle with M-x auto-save-mode
  718. (setq auto-save-default t)  ; if this is nil no auto-save are done by default
  719. (setq auto-save-interval 600) ;  key-strokes
  720. (setq auto-save-timeout (* 4 60)) ; if you're idle for this long save
  721. ;(setq auto-save-list-file-prefix)
  722. ; m-x do-auto-save
  723. ; m-x recover-session, then C-c, C-c
  724. ; m-x recover-file
  725. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  726.  
  727. (defun insert-line-number () "inserts the current-line-number into the buffer"
  728. "inserts the current-line-number into the buffer"
  729.   (interactive)
  730.   (insert-string (1+ (count-lines 1 (point)))))
  731.  
  732. ;(global-set-key [f666] 'insert-line-number)
  733. ;send-string-to-terminal
  734.  
  735.  
  736. (defun forward-to-fill-column () "forward to fill" ""
  737.   (interactive)
  738.   (beginning-of-line)
  739.   (forward-char fill-column))
  740.  
  741. ;;;; some  useful functions
  742.  
  743. (defun other-window-back ()
  744.   "reverse order of ^Xo"
  745.   (interactive)
  746.   (other-window -1)
  747.   )
  748.  
  749. ;
  750. ;(global-set-key "" 'backward-kill-word)
  751. ;(global-set-key "" 'backward-kill-sexp)      
  752.  
  753. ;(define-key emacs-lisp-mode-map "" 'backward-kill-word)
  754. ;(define-key lisp-interaction-mode-map "" 'backward-kill-word)
  755. ;(define-key lisp-mode-map "" 'backward-kill-word)
  756. ;(setq inferior-lisp-program "gcl")
  757.  
  758. ;(defvar resume-emacs-args-file (expand-file-name "~/.emacs_args")
  759. (setq resume-emacs-args-file "~/.emacs.d/.emacs_args")
  760. (load-library "resume") ;; etc/emacs.bash  , resume suspended emacs with args
  761. (add-hook 'suspend-hook 'resume-suspend-hook)
  762. (add-hook 'suspend-resume-hook 'resume-process-args)
  763.  
  764.  
  765. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  766. ;; kludge to kill abbrev-mode everywhere
  767. (abbrev-mode 0)
  768. (load-library  "abbrev")
  769. (defun abbrev-mode (&optional arg)
  770.    "set abbrev-mode always off hack"
  771.    (interactive "P")
  772.    (setq abbrev-mode nil)
  773.    (force-mode-line-update)
  774.    )
  775. (setq-default abbrev-mode nil)
  776. (setq default-abbrev-mode nil)
  777.  
  778. ;; kludge to kill ins.rt-f.ck, if I want to use a triple chevron <<<
  779. (require 'sh-script)
  780. (defun sh-maybe-here-document (arg)
  781.  "nuked. bc It makes it painful to use to use <<< in k-shell and better."
  782.  (interactive "P")
  783.  (insert "<")
  784. )
  785.  
  786. ;(message "*** 329")
  787. (setq case-fold-search t)              ; search is case-insensitive
  788. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  789. ; M-/ dabbrev-expand
  790. ; C-M-/ dabbrev-completion  c-u - m-/ search after point
  791. ;
  792. (setq dabbrev-case-replace t)
  793. (setq dabbrev-case-fold-search nil)
  794. (setq dabbrev-upcase-means-case-search t)
  795. ;(setq dabbrev-limit (* 1024 1024 3)) ; 3 MB
  796. ;(setq dabbrev-abbrev-skip-leading-regexp nil)
  797. ; `dabbrev-abbrev-char-regexp'
  798. ; `dabbrev-abbrev-skip-leading-regexp'.
  799. (setq dabbrev-ignored-buffer-regexp '( "\*Minibuf-[012345689]+\*"))
  800. (setq dabbrev-check-other-buffers t) ; t means look for buffers via
  801. ;;; dabbrev-select-buffers-function ; which defaults to dabbrev--select-buffers
  802. ;;; which returns list of buffers, based on buffer-list, but discarding based
  803. ;;; on dabbrev-ignored-buffer-names , and dabbrev-ignored-buffer-regexps
  804. ;;; and for which dabbrev-friend-buffer-function ( if bound ) returns nil
  805.  
  806. ;(setq dabbrev-friend-buffer-function 'get-buffer-window-list )
  807.  
  808.  
  809. (defun dabbrev-check-bufferp (buf )
  810.   "true if dabbrev should check this,returns true of other buffer, or buffer
  811. buffer in window"
  812. (or (eq buf (other-buffer)) (get-buffer-window-list buf)))
  813.  
  814. (setq dabbrev-friend-buffer-function 'dabbrev-check-bufferp)
  815. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  816.  
  817.  
  818.  
  819.  
  820. ;;;;;;;; ange-ftp ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  821. ; /HOST:FILENAME
  822. ; /USER@HOST:FILENAME
  823. ; /USER@HOST#PORT:FILENAME
  824. ; `ange-ftp-make-backup-files' to `nil'.
  825. ;  ange-ftp-default-user
  826. ;  use: ftp or anonymous for USER
  827. ;(setq mail-host-address "@earthlink.net")
  828. ;(setq ange-ftp-generate-anonymous-password
  829. ;(concat (user-login-name) mail-host-address))
  830. (setq ange-ftp-generate-anonymous-password "@")
  831.  
  832. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  833. (require 'cc-mode)
  834. ;(c-initialize-cc-mode) ;; mentioned in cc-mode.el needed?
  835. ;eval-after-load ???
  836.  
  837. ;;    The style variables are: `c-basic-offset',
  838. ;; `c-comment-only-line-offset', `c-block-comment-prefix',
  839. ;; `c-comment-prefix-regexp', `c-cleanup-list', `c-hanging-braces-alist',
  840. ;; `c-hanging-colons-alist', `c-hanging-semi&comma-criteria',
  841. ;; `c-backslash-column', `c-special-indent-hook',
  842. ;; `c-label-minimum-indentation', and `c-offsets-alist'.
  843. (defconst c-style-djl '("k&r"  ;; inherit this style
  844.             (c-basic-offset . 4 )))
  845. (c-add-style "djl" t)
  846.  
  847. (defun c-mode-common-djl ()
  848.   (c-set-offset 'case-label '+) ;; can it be added to style?
  849.   (setq tab-width 4)
  850.   (setq indent-tabs-mode nil) ;; this will make sure spaces are
  851.                     ;  used instead of tabs
  852.   ;(c-toggle-auto-hungry-state 1)
  853.   (abbrev-mode 0)
  854.   (define-key c-mode-base-map "\e-i" 'indent-relative) ; instead of tab-to-tab
  855. )
  856. (add-hook 'c-mode-common-hook 'c-mode-common-djl)
  857. ;;(read-char "?")
  858. ;;;;;;; look at all this again!!!!
  859.  
  860. (setq make-header-c++ '(make-c++-header2)) ;; turn on autoheaders
  861. (setq make-header-c '(make-c-header2)) ;;
  862. (setq c-includes "#include <stdio.h>\n")
  863. (setq c-includes (concat c-includes "#include <unistd.h>\n"))
  864. (setq c-includes (concat c-includes "#include <stdlib.h>\n"))
  865. (setq c-includes (concat c-includes "#include <sys/types.h>\n"))
  866. ; ^^^ consider skletons, or auto-insert
  867. ;executable-make-buffer-file-executable-if-script-p
  868.  
  869. ;need packages--
  870. ;color-theme
  871. ;planner.el
  872. ;remember
  873. ;plannerdiary
  874. ;flymake
  875. ;perldoc
  876. ;htmlize
  877.  
  878. ; copy region as kill? kill-ring-save region... copy-line
  879. ; aggregate killed text ; c-m-w before ... m-w
  880. ; append to buffer ???
  881.  
  882.  
  883.  
  884. (fset 'rubout-control-h
  885.    [?\C-s ?\C-q ?\C-h ?\C-m backspace])
  886. (fset 'remove-control-m
  887.    [?\M-x ?r ?e ?p ?l ?a ?c ?e ?- ?s ?t ?i ?n delete delete ?r ?i ?n ?g return ?\C-q ?\C-m return return])
  888.  
  889. ;;; insert the date
  890. (fset 'insert-date
  891.    "\C-u\C-[!/bin/date +'%B %d, %Y'\C-m")
  892.  
  893. ;;; insert the date, typical computer format
  894. (fset 'insert-date-unix
  895.    "\C-u\C-[!/bin/date")
  896.  
  897. ;; (current-time-string) ? use this???
  898. ;; (format-time-string)  ? use this???
  899. ;;; insert the time
  900.  
  901. (fset 'insert-time
  902.    "\C-u\C-[!/bin/date +'%l:%M %p'")
  903.  
  904.  
  905. ;;; insert-include
  906. (fset 'insert-include
  907.    "\C-a#include <>\C-b")
  908.  
  909. (fset 'insert-main
  910.    [?i ?n ?t ?  ?m ?a ?i ?n ?  ?( ?  ?i ?n ?t ?  ?a ?r ?g ?c ?, ?  ?c ?h ?a ?r ?  ?* ?  ?a ?r ?g ?v ?[ ?] ?  ?) return ?{ return tab ?} ?\C-a ?\C-o tab ?r ?e ?t ?r ?u ?n backspace backspace backspace ?u ?r ?n ?  ?0 ?; ?\C-a ?\C-o ?\C-o ?\C-l tab])
  911.  
  912.    
  913. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  914. ;;; keyboard macros
  915.  
  916. (fset '140charactersforward "\C-u140\C-f") ; useful when composing a tweet.
  917. (fset '140charactersbackward "\C-u140\C-b") ; useful when composing a tweet.
  918.  
  919. (fset 'tweetpaste "\C-[|tweetpaste\C-m" ) ; now I can just meta-x
  920. ;;; !!!!!!! Xcept that it clears the message area now!FUCK!
  921.  
  922.  
  923. (fset 'mcompile
  924.    "\C-u\C-xs\C-[xeval-expr\C-m(setq compilation-read-command nil)\C-m\C-[xcompile\C-m\C-[xeval-expr\C-m(setq compilation-read-command t)\C-m")
  925.  
  926. ;(fset 'insert-char-=
  927. ;      "=")
  928. ;(fset 'insert-char-/
  929. ;      "/")
  930. ;(fset 'insert-char-*
  931. ;      "*")
  932.  
  933.  
  934. ;(cond
  935. ; ;;((not (boundp 'c-mode-hook))
  936. ; (t
  937. ;  (setq c-mode-hook
  938. ;   '(lambda ()
  939. ;        (define-key c++-mode-map "\C-ci" 'insert-include)
  940. ;        (define-key c++-mode-map "\C-cm" 'insert-main)    
  941. ;        (cond
  942. ;       ((boundp 'hilit-default-face-table)
  943. ;        (define-key c-mode-map "\C-j" 'hilit-newline-and-indent))
  944. ;       )
  945. ;      (setq fill-column default-fill-column)
  946. ;      (setq backup-inhibited nil)
  947. ;      (setq kept-new-versions number-of-source-backups)
  948. ;      (line-number-mode 1)
  949. ;      (make-local-variable 'compile-command)
  950. ;      (setq compile-command
  951. ;            (cond
  952. ;             ((file-exists-p ( concat default-directory "Makefile"))
  953. ;              "make")
  954. ;             (t (concat compile-command-pre-string-c buffer-file-name
  955. ;                        compile-command-post-string-c)
  956. ;                )
  957. ;             ))
  958. ;      (if (= (buffer-size) 0 )
  959. ;          (progn
  960. ;            (eval make-header-c)
  961. ;            )
  962. ;        )
  963. ;      )
  964. ;   )
  965. ;  )
  966. ; )
  967.  
  968.  
  969.  
  970. ;;; autoloads
  971.  
  972. ;;;;(autoload 'w3 "w3")
  973. ;(autoload 'w3 "w3/w3" "WWW Browser" t)
  974. ;;(load-library "w3")
  975. ;(load-library "dos-mode")
  976.  
  977. ;(autoload 'dos-mode "dos-mode")
  978.  
  979. ;;(load-library "8bits-mode")
  980. ;;;(autoload '8bits-mode "8bits-mode")
  981.  
  982.  
  983.  
  984. ;;;; Commands added by calc-public-autoloads on Thu Nov 14 23:27:42 1996.
  985. ;(autoload 'calc-dispatch      "calc" "Calculator Options" t)
  986. ;(autoload 'full-calc          "calc" "Full-screen Calculator" t)
  987. ;(autoload 'full-calc-keypad       "calc" "Full-screen X Calculator" t)
  988. ;(autoload 'calc-eval          "calc" "Use Calculator from Lisp")
  989. ;(autoload 'defmath        "calc" nil t t)
  990. ;(autoload 'calc               "calc" "Calculator Mode" t)
  991. ;(autoload 'quick-calc         "calc" "Quick Calculator" t)
  992. ;(autoload 'calc-keypad        "calc" "X windows Calculator" t)
  993. ;(autoload 'calc-embedded      "calc" "Use Calc inside any buffer" t)
  994. ;(autoload 'calc-embedded-activate  "calc" "Activate =>'s in buffer" t)
  995. ;(autoload 'calc-grab-region       "calc" "Grab region of Calc data" t)
  996. ;(autoload 'calc-grab-rectangle    "calc" "Grab rectangle of data" t)
  997. ;(setq load-path (nconc load-path (list "/usr/local/emacs/share/site-lisp/calc-2.02e")))
  998. ;(global-set-key "\e#" 'calc-dispatch)
  999.  
  1000. ;(auto-compression-mode t)
  1001. ;;;;;;;;;;; mode hooks ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1002.  
  1003. ;(cond
  1004. ; ;;((not (boundp 'text-mode-hook))
  1005. ; (t
  1006. ;  (setq text-mode-hook
  1007. ;        '(lambda ()
  1008. ;           ;(auto-fill-mode 1)
  1009. ;           ;(line-number-mode 1)
  1010. ;           ;(column-number-mode 1)
  1011. ;           )
  1012. ;        )
  1013. ;  )
  1014. ; )
  1015.  
  1016. ;(add-hook 'mail-mode-hook
  1017. ;          '(lambda ()
  1018.  
  1019. ;             (auto-fill-mode 1)))
  1020.  
  1021.  
  1022. ;(setq emacs-lisp-mode-hook
  1023. ;     '(lambda ()
  1024. ;        (setq backup-inhibited nil)
  1025. ;        (setq verson-control nil)
  1026. ;))
  1027.  
  1028.  
  1029. ;; this is the recommended method for setting up hooks
  1030. ;; however it then runs into 'order problems', I'd rather set the
  1031. ;; hook absolutly or leave it alone.
  1032.  
  1033. ; (add-hook 'text-mode-hook
  1034. ;     (function (lambda ()
  1035. ;             (setq fill-column default-fill-column)
  1036. ;             (line-number-mode 1)
  1037. ;                      (column-number-mode 1)
  1038. ;             )
  1039. ;           )
  1040. ;     )
  1041. ;; was doing something with auto loaded in here, and that file
  1042. ;; could not be bytecompiled and work, or so it seemed
  1043.  
  1044. ;;;;;; mail stuff ;;;;;;;;;;;;;;;;;;;
  1045. ;; don't need this on drake
  1046. ;;; (setq mail-default-reply-to (concat (user-login-name) "@pcs."))
  1047. ;;;
  1048. ;(setq mail-aliases t)
  1049. ;(setq mail-interactive t)
  1050. ;(setq send-mail-program "/usr/sbin/sendmail")
  1051.  
  1052. ;;(setq mail-archive-file-name "mail/sent-mail") ; it assumes it is off of ~
  1053. (setq mail-yank-ignored-headers "^Sender:\\|^via:\\|^mail-from:\\|^origin:\\|^status:\\|^remailed\\|^received:\\|^message-id:\\|^summary-line:\\|^to:\\|^subject:\\|^in-reply-to:\\|^return-path:\\|^Mime.*:\\|^Content[-a-zA-Z]*:\\|^Organization:\\|^Lines:\\|^NNTP-Posting-Host:\\|^X-.*:\\|^Path:")
  1054. ;(setq rmail-ignored-headers "^received:\\|^X-.*:\\|^Return-Path:\\|^Content[-a-zA-Z]*:\\|^M.*:")
  1055. ;(setq rmail-dont-reply-to-names (concat (user-login-name) "\\|everyone.*\\|students.*\\|treet.*")) ; this is a regexp
  1056.  
  1057. (setq mail-yank-prefix ") ")
  1058. ;; end of mail-stuff
  1059. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1060.  
  1061.  
  1062.  
  1063.  
  1064. (cond
  1065.  (window-system (window-setup))
  1066.  (t (menu-bar-mode -1)))
  1067.  
  1068. ;(defun move-right ()
  1069. ;  "scroll when moving right"
  1070. ;     (interactive)
  1071. ;  (scroll-left 1)
  1072. ;  )
  1073. ;(defun move-left ()
  1074. ;  "scroll when moving left";     (interactive)
  1075. ;  (scroll-right 1)
  1076. ;  )
  1077. ;(defun move-up ()
  1078. ;  "scroll when moving up"
  1079. ;     (interactive)
  1080. ;  (scroll-down 1)
  1081. ;  )
  1082. ;(defun move-down ()
  1083. ;  "scroll when moving down"
  1084. ;   (interactive)
  1085. ;  (scroll-up 1)
  1086. ;  )
  1087.  
  1088. (if window-system
  1089. ;  (setq mouse-wheel-mode t)           ; enable mouse wheel in graphical mode
  1090. (toggle-scroll-bar -1)
  1091. (tool-bar-mode -1)
  1092. (menu-bar-mode -1)
  1093. (set-face-attribute 'mode-line nil :box nil)
  1094. ;(mouse-wheel-mode t)
  1095. ; fringe?
  1096. ;(setq confirm-kill-emacs yes-or-no-p)
  1097. ;(setq indicate-empty-lines
  1098. ;(setq default-indicate-empty-lines)
  1099. )
  1100. ;(global-set-key [kp-1] 'delete-other-windows )
  1101. ;; ok if I'm running xterm-color, like brown,
  1102. ;; I could run into this
  1103. ;<deletechar> runs the command delete-char
  1104. ;(delete-char N &optional KILLFLAG)
  1105. ;   which is an interactive built-in function.
  1106. ; which means <deletechar> is sym for my grey delete!!
  1107. ; later I think
  1108.  
  1109. ; korny this should load in messages
  1110. (animate-string "**** Start Edtings ********" 0)
  1111.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!