Advertisement
Guest User

Untitled

a guest
Aug 17th, 2017
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.89 KB | None | 0 0
  1. (defun double-action-by-maresh ()
  2.   (interactive)
  3.   (update-std-header-fixed)
  4.   (delete-trailing-whitespace)
  5.   (save-buffer)
  6. )
  7.  
  8. ;; auto indent
  9.  
  10. (defun selectAll ()
  11.   (interactive)
  12.   (indent-region (point-min) (point-max))
  13. )
  14.  
  15. ;; raccourcis:
  16.  
  17. (global-set-key [(control ?g)] 'goto-line)
  18. (global-set-key [(control ?r)] 'replace-string)
  19.  
  20. ;; redimensioneement auto
  21.  
  22. (if window-system
  23. (progn
  24. (set-frame-position (selected-frame) 660 0)
  25. (set-frame-size (selected-frame) 160 100)
  26. )
  27. )
  28.  
  29. ;; headers protege
  30. (define-skeleton insert-protect-header
  31.   "Inserts a define to protect the header file."
  32.   ""
  33.   '(setq str (file-name-sans-extension
  34.           (file-name-nondirectory (buffer-file-name))))
  35.   "#ifndef \t__"(upcase str)"_H__\n"
  36.   "#define \t__"(upcase str)"_H__\n"
  37.   "\n"
  38.   "\n"
  39.   "\n"
  40.   "#endif \t/*!__"(upcase str)"_H__ */\n")
  41.  
  42. (global-set-key [f3] 'insert-protect-header)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement