  '(mouse ((t (:background "white" :foreground "black"))))
  '(scroll-bar ((t (:background "grey85" :foreground "red")))))
 
-(setq pfk-small-font
-      "-misc-*-*-r-semicondensed-*-13-120-*-*-*-*-iso8859-1")
-
-(setq pfk-big-font
-      "-misc-*-medium-r-normal-*-20-200-*-*-*-*-iso8859-1")
-
-(defun my-set-frame-attrs ()
-  ""
-  (progn
+(defun my-init-hook ()
+  ""
+  (progn
+;    (message "my-init-hook was run")
+    ))
+
+(add-hook 'after-init-hook 'my-init-hook)
+
+(setq pfk-small-font "Source Code Pro Medium-9")
+(setq pfk-big-font   "Source Code Pro Medium-14")
+
+(defun my-fix-minibuffer ()
+  ""
+  (progn
+    (select-frame default-minibuffer-frame)
+    (set-frame-font "Source Code Pro Medium-10")
+    ))
+
+(run-at-time 1 nil 'my-fix-minibuffer)
+
+(defun my-make-frame-hook (frame)
+  ""
+  (interactive)
+  (progn
+    (select-frame frame)
     (set-frame-font pfk-small-font)
     (set-foreground-color "yellow")
     (set-background-color "black")
-    (set-cursor-color "red")))
-
-(defun my-set-frame-attrs-hook (frame)
-  ""
-  (interactive)
-  (progn
-    (select-frame frame)
-    (my-set-frame-attrs)))
-
-;(my-set-frame-attrs)
-;(add-hook 'after-make-frame-functions 'my-set-frame-attrs-hook)
-
-(line-number-mode 1)
-(column-number-mode 1)
-(display-time)
+    (set-cursor-color "red")
+    ))
+
+(add-hook 'after-make-frame-functions 'my-make-frame-hook)
 
 (cond (window-system
        (progn

		      (auto-raise . t) (minibuffer-lines . 1)
		      (vertical-scroll-bars . nil)
		      (name . "Emacs Minibuffer")))
	      special-display-buffer-names
	      '("*compilation*" "*shell*")
	      hilit-mode-enable-list  '(not text-mode)
	      hilit-background-mode   'dark
	      hilit-inhibit-hooks     nil

 '(menu-bar-mode nil)
 '(mode-line-format (quote (" " mode-line-mule-info mode-line-modified " " mode-line-buffer-identification " " global-mode-string " %[(" mode-name mode-line-process minor-mode-alist "%n" ")%] " (line-number-mode "L%l ") (column-number-mode "C%c ") (-3 . "%p"))))
 '(mode-line-inverse-video t)
 '(mouse-buffer-menu-maxlen 100)
 '(mouse-buffer-menu-mode-mult 100)
 '(speedbar-show-unknown-files t)
 '(tool-bar-mode nil nil (tool-bar))
 '(verilog-auto-delete-trailing-whitespace t)
 '(verilog-auto-inst-column 10)
 '(verilog-auto-newline nil)
 '(verilog-indent-begin-after-if nil))

(load-file (concat "/home/" (getenv "USER")
		   "/pfk/etc/go-mode.el"))
