New Yours API Help 419 bytes, Scheme Soft wrap Raw text Duplicate 1 2 3 4 5 6 7 8 9 10 11 12 13 ;; config.el ;; stumps ( defun current-group () ( slime-eval ` ( common-lisp:slot-value ( stumpwm:current-group ) 'stumpwm::name ))) ;; open urls in chrome on vm ( require 'browse-url ) ( defun hanky-vm-browse-fn ( url &rest args ) ( let* (( group ( current-group ))) ( shell-command ( concat "ssh -XY muon google-chrome --user-data-dir=" group " " url )))) ( setq browse-url-browser-function 'hanky-vm-browse-fn ) Pasted 50 seconds ago — Expires in 7 days URL: http://dpaste.com/1P5PKQE About dpaste.com ...