(defun do-that-voodoo-you-do-so-well nil
  (let (str
	(sname (system-name)))
    (setq str (concat "Minibuffer @ " sname))
    (if window-system
	(progn
	  (setq default-frame-alist '((menu-bar-lines . 0)
				      ; (vertical-scroll-bars . nil)
				      (auto-raise . nil)
				      ))
	  (setq initial-frame-alist default-frame-alist)
	  (if (x-display-color-p)
	      (progn
		))
	  (if (and (string-match "^:0" x-display-name)
		   (not (or (equal "take-to-the-sky" sname)
			    (equal "diabolus-in-musica" sname))))
	      (progn
		(setq default-frame-alist (cons '(minibuffer . none)
						default-frame-alist))
		(setq initial-frame-alist default-frame-alist)
		(setq global-minibuffer-frame
		      (make-frame (append '((top . -1)
					   (left . 1)
					   (width . 80)
					   (height . 2)
;;; Must definne dummy X resource like "minibuffer*Geometry: +99+99"
                                           (name . "minibuffer")
					   (font . "-Adobe-Courier-Bold-R-Normal--25-180-100-100-M-150-ISO8859-1")
					   (minibuffer . only)
					   (vertical-scroll-bars . nil))
					 (list (cons 'name str)
					       (cons 'title str))))
		      )
		))
	  ))
    )
)