> based on todays changes in edge-actions, here are the updated setup > instructions: > > ;; fancy customized edge-actions > ( defvar-setq edge-actions-delay 250 ) > > ( defvar-setq top-left-corner-program > ( lambda () ( jump-or-exec "Iceweasel" "iceweasel" #:match-class t ) ) ) > > ( defvar-setq top-right-corner-program > ( lambda () ( pager-unhide ) ) ) > > ( defvar-setq bottom-right-corner-program > ( lambda () ( system "amarok &" ) ) ) > > ( defvar-setq bottom-left-corner-program > ( lambda () ( jump-or-exec "VirtualBox" "VirtualBox" #:match-class t ) ) ) > > ( defvar-setq top-edge-program > ( lambda () ( jump-or-exec "Konsole" "konsole" #:match-class t ) ) ) > > ( defvar-setq bottom-edge-program > ( lambda () ( raise-window ( get-window-by-role "panel_" #:regex t ) ) ) ) > > ;; actions when pointer hits edge > ( defvar-setq left-right-edge-func 'flip-viewport ) > ( defvar-setq top-bottom-edge-func 'hot-spot ) > > ;; actions while moving window hits edge > ( defvar-setq left-right-edge-move-func 'flip-workspace ) > ( defvar-setq top-bottom-edge-move-func 'none )
Thanks a lot, very useful! Cheers, Daniel -- Psss, psss, put it down! - http://www.cafepress.com/putitdown
