The very unofficial .emacs home BradfordHolcombe.emacs
emacs
Sections
home
what is this all about ?
customization basics
special topics
local dotfiles
dotfiles on the web
new and updated pages
useful sites and pages
search locally
EMacro
OS/2 Emacs
Latest Additions
local files:
John J. Glynn
David Jolley

linked files:


articles:


links:
The Emacs wiki
ODP search for Emacs


dmoz.org
(setq user-full-name "Bradford Holcombe" )
(setq user-mail-address "bholcombe@3veni.com" )
(setq frame-title-format "%b")
(set-default-font "-*-Arial-thin-r-*-*-11-50-*-*-c-*-*-ansi-")

(cond ((file-exists-p "~/emacs-20.4/backups")
       (setq auto-save-list-file-prefix "~/emacs-20.4/backups/.saves-")))

(delete-selection-mode t)
;;;(inhibit-eol-conversion nil)

(setq-default indent-tabs-mode nil)
;;;(setq tab-width 3)
(cond ((fboundp 'global-font-lock-mode)
              ;; Turn on font-lock in all modes that support it
              (global-font-lock-mode t)
              ;; Maximum colors
              (setq font-lock-maximum-decoration t)))
;;;(setq font-lock-maximum-decoration t)


;; My keybindings
(global-set-key "" 'find-file-other-window)
(global-set-key "" 'find-file)
(global-set-key "" 'goto-line)
(global-set-key "" 'compile)
(global-set-key "" 'next-error)
(global-set-key "" 'revert-buffer)

(global-set-key [f1] 'query-replace)
(global-set-key [f2] 'goto-line)
(global-set-key [f3] 'balance-windows)


;; *Completion ignores filenames ending in any string in this list.
(setq completion-ignored-extensions
   '(".o" ".elc" "~" ".bin" ".class" "java~" ".ps" ".abs" ".mx" ".~jv" ))

;;; set the initial frame geometry

(setq initial-frame-alist 
  '((top . 50) 
    (left . 30) 
    (width . 81) 
    (height . 65)
    (background-color . "ivory" )
  )
)

;;; printer names
(setq printer-name "//SERVER1/HPWin95" )
(setq ps-printer-name "//SERVER1/HPCLaser-PS" )

;;; to force the auto newline feature in Java mode
;;(add-hook 'java-mode-hook 'my-c-toggle-auto-state)

;;(defun my-c-toggle-auto-state ()
;;   ( c-toggle-auto-state 1)
;;)

;;; load the JDE
;;(setq load-path 
;;      (nconc '( "C:/emacssite/jde-2.1.5" ) load-path)
;;)
(setq load-path 
      (nconc '( "C:/emacssite/jde-2.1.6beta21/lisp" ) load-path)
)
(require 'jde)

;;; load JPack, JDok, JDE CFlow, JSee
(setq load-path 
      (nconc '( "C:/emacssite" ) load-path)
)
(require 'jpack)
(require 'jdok)
(require 'jsee)
(load "C:/emacssite/jde-cflow.el")
(cond ((fboundp 'global-font-lock-mode)
                     (require 'extra-java-font-lock)
                     (setq font-lock-maximum-decoration t)
                     (global-font-lock-mode t)
                     ))

;; my macros
;; finds bracket and asks if need to be fixed
(fset 'bracketfix
   [?\C-s ?{ ?\C-x ?q ?\C-b return tab ?\C-n])

;; tabs one line
(fset 'tab\ line
   [?\C-a tab ?\C-n])

;; tabs 50 lines
(fset '50tab
   [?\C-u ?5 ?0 escape ?x ?t ?a ?b ?  ?l ?i ?n ?e return])

;; compile command java 
(fset 'comp
   [?\C-x ?\C-e ?\C-a ?\C-k ?j ?a ?v ?a ?c ?  ?* ?. ?j ?a ?v ?a return])

(fset 'detab
   [?\M-< ?\M-% ?\C-q tab return ?  ?  ?  return ?!])

(global-set-key [f4] '50tab)
(global-set-key [f5] 'bracketfix)
(global-set-key [f6] 'comp)
(global-set-key [f7] 'detab)

;; clear the current buffer
(fset 'clear
   [?\M-> ?\C-  ?\M-< ?\C-w return ?\M-p])
(global-set-key [f8] 'clear)

;; remove ^M meta characters from a file globally

(fset 'dem
   [?\M-< ?\M-% ?\C-q ?\C-m return return ?! ?\M-<])
(global-set-key [f7] 'dem)

(fset 'println
      [ ?S ?y ?s ?t ?e ?m ?. ?o ?u ?t ?. ?p ?r ?i ?n ?t ?l ?n ?( ?  ?"
?" ?  ?) ?; return ] ) (global-set-key [f9] 'println)(load "~/_emacs")

(custom-set-variables
 '(jde-jsee-javadoc-protected-option nil)
 '(jdok-see-tag-template (quote (" @see " ref)))
 '(jde-compile-option-depend nil)
 '(jdok-param-tag-template (quote (" @param " name " " (jdok-a type) " " (jdok-code type) " value")))
 '(jdok-return-tag-template (quote (" @return " (jdok-a type) " " (jdok-code type) " value")))
 '(jde-compile-option-debug (quote ("all" (t nil nil))))
 '(jpack-package-comment "")
 '(jdok-param-tag "  @param %s a value of type '%s'")
 '(jpack-default-package-comment "")
 '(jde-compile-option-sourcepath (quote ("c:\\Java")))
 '(jde-gen-get-set-var-template 
   (quote (
	   "'n>"
	   "(P \"Variable type: \" type) \" \"" 
	   "(P \"Variable name: \" name) \";\" 'n> 'n>" 
	   "\"/**\" 'n>" 
	   "\" Get the value of \" (s name) \".\" 'n> 'n>" 
	   "\" @return Value of \" (s name) \".\" 'n>" 
	   "\"*/\" 'n>" 
	   "\"public \" (s type) \" get\" (jde-gen-init-cap (jde-gen-lookup-named 'name))" 
	   "\"()\" 'n> \"{\" 'n> \"return \" (s name) \";\" 'n> \"}\" 'n> 'n>" 
	   "\"/**\" 'n>" 
	   "\" Set the value of \" (s name) \".\" 'n> 'n>" 
	   "\" @param v Value to assign to \" (s name) \".\" 'n>" 
	   "\"*/\" 'n>" 
	   "\"public void set\"(jde-gen-init-cap (jde-gen-lookup-named 'name))" 
	   "\"(\" (s type) \" v)\" 'n \"{\" 'n> (s name) \" = v;\" 'n> \"}\" 'n>"
	   )))
 '(jdok-describe-constructor-template 
   (quote (
	   " Creates a new "(jdok-code name) " instance."
	   )))
 '(jde-compile-option-deprecation t)
 '(jdok-return-tag "  @return a value of type '%s'")
 '(jdok-describe-method-template 
   (quote (
	   " Describe " (jdok-code name)" method here."
	   )))
 '(jde-compile-option-classpath 
   (quote (
	   "c:\\Java"
	   )))
 '(jdok-exception-tag-template 
   (quote (
	   " @exception " type " if an error occurs"
	   )))
 '(jdok-describe-class-template 
   (quote (
	   " Describe class " (jdok-code name) " here.  " 
	   "  " " Copyright (c) 1998-2000 Triveni Digital, Inc. All rights reserved.  "
	   )))
 '(jde-db-source-directories 
   (quote (
	   "C:\\Java" "C:\\Java\\jdk1.3\\src"
	   )))
 '(jdok-describe-interface-template 
   (quote (
	   " Describe interface " (jdok-code name) " here."
	   )))
 '(jdok-since-tag-template (quote (nil)))
 '(jde-gen-console-buffer-template 
   (quote (
	   "(funcall jde-gen-boilerplate-function) 'n" 
	   "\"/**\" 'n" 
	   "\" \""
	   "(file-name-nondirectory buffer-file-name) 'n" 
	   "\" \" 'n" 
	   "\" \" 'n"
	   "\" Created: \" (current-time-string) 'n" 
	   "\" Copyright 1999, 2000 LGERCA, Inc.\" 'n" 
	   "\" \" 'n" 
	   "\" @author \" (user-full-name) 'n" 
	   "\"@version\" 'n" 
	   "\" */\" 'n>" 
	   "'n>" 
	   "\"public class \""
	   "(file-name-sans-extension (file-name-nondirectory buffer-file-name)) 'n" 
	   "\" {\" 'n>" 
	   "\"public \"" 
	   "(file-name-sans-extension (file-name-nondirectory buffer-file-name))" 
	   "\"()\" 'n \"{\" 'n>"
	   "'n>" 
	   "\"}\" 'n>" 
	   "'n>" 
	   "\"public static void main(String[] args)\" 'n \"{\" 'n>" 
	   "'p 'n>" 
	   "\"}\" 'n> 'n>" 
	   "\"} 'n\""
	   )))
 '(jde-gen-class-buffer-template 
   (quote (
	   "(funcall jde-gen-boilerplate-function) 'n" 
	   "\"/**\" 'n" 
	   "\" \""
	   "(file-name-nondirectory buffer-file-name) 'n" 
	   "\" \" 'n" 
	   "\" \" 'n"
	   "\" Created: \" (current-time-string) 'n" 
	   "\" Copyright 1999, 2000 LGERCA, Inc.\" 'n" 
	   "\" \" 'n" 
	   "\" @author \" (user-full-name) 'n" 
	   "\" @version\" 'n" 
	   "\" */\" 'n>" 
	   "'n>" 
	   "\"public class \""
	   "(file-name-sans-extension (file-name-nondirectory buffer-file-name))"
	   "\" \" (jde-gen-get-super-class) 'n \"{\" 'n>" 
	   "\"public \""
	   "(file-name-sans-extension (file-name-nondirectory buffer-file-name))"
	   "\"()\" 'n \"{\" 'n>" 
	   "'p 'n>" 
	   "\"}\" 'n>" 
	   "'n>" 
	   "\"} 'n\""
	   )))
 '(speedbar-frame-parameters 
   (quote (
	   (minibuffer) (width . 30)
	   (border-width . 0) 
	   (menu-bar-lines . 0) 
	   (unsplittable . t))))
 '(jde-jsee-javadoc-notree-option nil)
 '(jde-run-option-classpath 
   (quote (
	   "."
	   "c:\\Java\\JMF1.1\\lib\\JMF.jar" "c:\\Java"
	   "c:\\Java\\jh1.1\\javahelp\\lib\\jhall.jar" 
	   "C:\\PROGRAMFILES\\JAVASOFT\\JAXP1.0\\JAXP.JAR" 
	   "C:\\PROGRAMFILES\\JAVASOFT\\JAXP1.0\\PARSER.JAR"
	   )))
 '(jdok-version-tag-template (quote (" @version 1.0")))
 '(jdok-describe-constructor "  Describe constructor here.")
 '(jde-enable-abbrev-mode t)
 '(jde-jsee-javadoc-private-option t)
 '(jde-gen-jfc-app-buffer-template 
   (quote (
	   "(funcall jde-gen-boilerplate-function) 'n" 
	   "\"import java.awt.Dimension;\" 'n"
	   "\"import java.awt.Graphics;\" 'n" 
	   "\"import java.awt.Graphics2D;\" 'n" 
	   "\"import java.awt.Color;\" 'n" 
	   "\"import java.awt.geom.Ellipse2D;\" 'n" 
	   "\"import java.awt.event.WindowAdapter;\" 'n" 
	   "\"import java.awt.event.WindowEvent;\" 'n" 
	   "\"import javax.swing.JFrame;\" 'n"
	   "\"import javax.swing.JPanel;\" 'n" 
	   "\"import javax.swing.JScrollPane;\" 'n" 
	   "\"import javax.swing.JMenuBar;\" 'n"
	   "\"import javax.swing.JMenu;\" 'n" 
	   "\"import java.awt.event.ActionEvent;\" 'n" 
	   "\"import javax.swing.AbstractAction;\" 'n 'n" 
	   "\"/**\" 'n" 
	   "\" \""
	   "(file-name-nondirectory buffer-file-name) 'n" 
	   "\" \" 'n" 
	   "\" \" 'n"
	   "\" Created: \" (current-time-string) 'n" 
	   "\" Copyright 1999, 2000 LGERCA, Inc.\" 'n" 
	   "\" \" 'n" 
	   "\" @author \" (user-full-name) 'n" 
	   "\" @version\" 'n" 
	   "\" */\" 'n>" 
	   "'n>" 
	   "\"public class \""
	   "(file-name-sans-extension (file-name-nondirectory buffer-file-name))"
	   "\" extends JFrame {\" 'n> 'n>" 
	   "\"class Canvas extends JPanel {\" 'n> 'n>" 
	   "\"public Canvas () {\" 'n>" 
	   "\"setSize(getPreferredSize());\" 'n>" 
	   "\"Canvas.this.setBackground(Color.white);\" 'n>" 
	   "\"}\" 'n> 'n>"
	   "\"public Dimension getPreferredSize() {\" 'n>" 
	   "\"return new Dimension(600, 600);\" 'n>" 
	   "\"}\" 'n> 'n>" 
	   "\"public void paintComponent(Graphics g) {\" 'n>" 
	   "\"super.paintComponent(g);\" 'n>"
	   "\"Graphics2D g2d = (Graphics2D) g;\" 'n>" 
	   "\"Ellipse2D circle = new Ellipse2D.Double(0d, 0d, 100d, 100d);\" 'n>"
	   "\"g2d.setColor(Color.red);\" 'n>" 
	   "\"g2d.translate(10, 10);\" 'n>"
	   "\"g2d.draw(circle);\" 'n>"
	   "\"g2d.fill(circle);\" 'n>"
	   "\"}\" 'n> 'n>"
	   "\"}\" 'n> 'n>"
	   "\"public \""
	   "(file-name-sans-extension (file-name-nondirectory buffer-file-name))"
	   "\"() {\" 'n>"
	   "\"super(\\\"\" (P \"Enter app title: \") \"\\\");\" 'n>"
	   "\"setSize(300, 300);\" 'n>"
	   "\"addWindowListener(new WindowAdapter() {\" 'n>"
	   "\"public void windowClosing(WindowEvent e) {System.exit(0);}\" 'n>"
	   "\"public void windowOpened(WindowEvent e) {}});\" 'n>"
	   "\"setJMenuBar(createMenu());\" 'n>"
	   "\"getContentPane().add(new JScrollPane(new Canvas()));\" 'n>"
	   "\"}\" 'n>"
	   "'n>"
	   "\"public static void main(String[] args) {\" 'n>"
	   "'n>"
	   "(file-name-sans-extension (file-name-nondirectory buffer-file-name))"
	   "\" f = new \""
	   "(file-name-sans-extension (file-name-nondirectory buffer-file-name))"
	   "\"();\" 'n>"
	   "\"f.show();\" 'n>"
	   "'p 'n>"
	   "\"}\" 'n> 'n>"
	   "\"protected JMenuBar createMenu() {\" 'n>"
	   "\"JMenuBar mb = new JMenuBar();\" 'n>"
	   "\"JMenu menu = new JMenu(\\\"File\\\");\" 'n>"
	   "\"menu.add(new AbstractAction(\\\"Exit\\\") {\" 'n>"
	   "\"public void actionPerformed(ActionEvent e) {\" 'n>"
	   "\"System.exit(0);\" 'n>"
	   "\"}\" 'n>"
	   "\"});\" 'n>"
	   "\"mb.add(menu);\" 'n>"
	   "\"return mb;\" 'n>"
	   "\"}\" 'n> 'n>"
	   "\"} 'n\""
	   )))
 '(jdok-describe-method "  Describe '%s' method here.")
 '(jdok-exception-tag "  @throws %s if an error occurs")
 '(jde-jsee-javadoc-noindex-option nil)
 '(jde-jsee-javadoc-package-option nil)
 '(jde-mode-abbreviations 
   (quote (
	   ("ab"    . "abstract") 
	   ("bo"    . "boolean") 
	   ("ca"    . "catch") 
	   ("ch"    . "char") 
	   ("cl"    . "class") 
	   ("co"    . "const") 
	   ("con"   . "continue") 
	   ("de"    . "default") 
	   ("dou"   . "double")
	   ("el"    . "else") 
	   ("ex"    . "extends") 
	   ("fa"    . "false") 
	   ("fi"    . "final")
	   ("fin"   . "finally") 
	   ("fl"    . "float") 
	   ("fo"    . "for") 
	   ("impl"  . "implements") 
	   ("im"    . "import") 
	   ("ins"   . "instanceof") 
	   ("inte"  . "interface") 
	   ("lo"    . "long") 
	   ("na"    . "native") 
	   ("ne"    . "new") 
	   ("nu"    . "null") 
	   ("pa"    . "package") 
	   ("pri"   . "private") 
	   ("pro"   . "protected")
	   ("pu"    . "public") 
	   ("re"    . "return") 
	   ("sh"    . "short") 
	   ("st"    . "static")
	   ("su"    . "super") 
	   ("sw"    . "switch") 
	   ("sy"    . "synchronized") 
	   ("th"    . "this") 
	   ("thr"   . "throw") 
	   ("throw" . "throws") 
	   ("tra  " . "transient")
	   ("tr"    . "true") 
	   ("vo"    . "void") 
	   ("vol"   . "volatile") 
	   ("wh"    . "while"))))
 '(jdok-author-tag-template 
   (quote (
	   " @author " user-full-name " <"user-mail-address ">"
	   )))) 
(custom-set-faces) 
All content copyright by the contributors. Website maintained with Emacs , wsmake and html-helper-mode
Emacs community logo by Daniel Lundin Last updated on Sat Jan 22 14:49:24 2005 by Ingo Koch