init.el

(defun debug-file ()
  (interactive)
  (save-buffer)
  (compile (format "javac %s && java -ea %s"
		   (buffer-name)
		   (file-name-sans-extension (buffer-name)))))
(defun compile-file ()
  (interactive)
  (save-buffer)
  (compile (format "javac %s && java %s"
		   (buffer-name)
		   (file-name-sans-extension (buffer-name)))))
(defun encode-mklp ()
  (interactive)
  (encode-coding-region (region-beginning) (region-end) 'utf-8)
  (base64-encode-region (region-beginning) (region-end)))
(defun decode-mklp ()
  (interactive)
  (base64-decode-region (region-beginning) (region-end))
  (decode-coding-region (region-beginning) (region-end) 'utf-8))
(global-set-key [f9] 'decode-mklp)
(global-set-key [f8] 'encode-mklp)
(global-set-key [f5] 'debug-file)
(global-set-key [f6] 'compile-file)
(setq default-directory "~/")
(setq visible-bell t)
(setq inhibit-startup-message t)