TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

replace keybinding by a function

This commit is contained in:
syl20bnr 2012-12-19 23:19:13 -05:00
parent a8d47d4e76
commit c891a811bc
3 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
init.el
View File

@ -19,9 +19,9 @@
(load (concat user-emacs-config-dir l)))))
(require 'my-funcs)
(require 'my-funcs-virga)
(require 'my-packages)
(require 'my-keybindings)
(require 'my-keybindings-work)
;; Python ======================================================================
;; clone git repository https://github.com/gabrielelanaro/emacs-for-python

14
my-funcs-virga.el Normal file
View File

@ -0,0 +1,14 @@
;; Mappy files
(defvar mappyl_base_path (concat "/home/sbenner/dev/p4/virga1-sbenner-linux/"
"virga/users/sylvain/dev/services/API/XCloud/"
"Python/"))
(defvar mappyl_working_path (concat mappyl_base_path "src/tools/mappy"))
(defvar mappyl_output_path (concat mappyl_base_path
"src/xcloud/compute/resource/"))
(defun mappyl ()
(interactive)
(shell-command (concat "cd " mappyl_working_path
"&& python mappy.py -t wrapper -o " mappyl_output_path
" " mappyl_output_path "states.graphml")))
(provide 'my-funcs-virga)

14
my-keybindings-work.el
View File

@ -2,19 +2,5 @@
;; Work bindings
;; =============================================================================
;; Mappy files
(defvar mappy_base_path (concat "/home/sbenner/dev/p4/virga1-sbenner-linux/"
"virga/users/sylvain/dev/services/API/XCloud/"
"Python/"))
(defvar mappy_working_path (concat mappy_base_path "src/tools/mappy"))
(defvar mappy_output_path (concat mappy_base_path
"src/xcloud/compute/resource/"))
(global-set-key (kbd "C-c s m")
(lambda ()
(interactive)
(shell-command (concat "cd " mappy_working_path
"&& python mappy.py -t wrapper -o "
mappy_output_path " " mappy_output_path
"states.graphml"))))
(provide 'my-keybindings-work)