Popup frame configuration

gistfile1.sls

;; file popframe.el
(defvar popframe nil)
(defvar popframe-alist 
  `(
    (name . "popframe")
     ,@default-frame-alist
     (title . "Emacs Popup frame")
     (vertical-scroll-bar . nil)
     (minibuffer . nil)
     (unsplittable . t)
     ))

(defun popframe/pop-up-function ()
  (when (frame-live-p popframe) 
    (delete-frame popframe))
  (setq popframe (make-frame popframe-alist)))

(defun popframe/special-display-function (buffer &optional buffer-data)
  (let ((target-frame (popframe/pop-up-function)))
    (select-frame target-frame)
    (set-window-buffer (frame-selected-window target-frame) buffer)
    (set-window-dedicated-p (frame-selected-window target-frame) t)
    (frame-selected-window target-frame)))

(defun popframe-kill ()
  (interactive)
  (when (frame-live-p popframe)
    (delete-frame popframe)))

(provide 'popframe)

;; .emacs file
(require 'popframe)

(custom-set-variables
 '(vertical-scroll-bar nil)
 '(tool-bar-mode nil)
 '(menu-bar-mode nil)
 '(column-number-mode t)
 '(window-min-width 1)
 '(window-min-height 1)
 '(special-display-function 'popframe/special-display-function)
 '(special-display-buffer-names
   (quote ("*Help*" "*compilation*" "*grep*" "*xgtags*"))))

(fringe-mode '(1 . 1))