25 lines
1.1 KiB
EmacsLisp
25 lines
1.1 KiB
EmacsLisp
|
(defvar yas-text)
|
||
|
|
|
||
|
|
(defun python-split-args (arg-string)
|
||
|
|
"Split a python argument string into ((name, default)..) tuples"
|
||
|
|
(mapcar (lambda (x)
|
||
|
|
(split-string x "[[:blank:]]*=[[:blank:]]*" t))
|
||
|
|
(split-string arg-string "[[:blank:]]*,[[:blank:]]*" t)))
|
||
|
|
|
||
|
|
(defun python-args-to-docstring ()
|
||
|
|
"return docstring format for the python arguments in yas-text"
|
||
|
|
(let* ((indent (concat "\n" (make-string (current-column) 32)))
|
||
|
|
(args (python-split-args yas-text))
|
||
|
|
(max-len (if args (apply 'max (mapcar (lambda (x) (length (nth 0 x))) args)) 0))
|
||
|
|
(formatted-args (mapconcat
|
||
|
|
(lambda (x)
|
||
|
|
(concat (nth 0 x) (make-string (- max-len (length (nth 0 x))) ? ) " -- "
|
||
|
|
(if (nth 1 x) (concat "\(default " (nth 1 x) "\)"))))
|
||
|
|
args
|
||
|
|
indent)))
|
||
|
|
(unless (string= formatted-args "")
|
||
|
|
(mapconcat 'identity (list "Keyword Arguments:" formatted-args) indent))))
|
||
|
|
|
||
|
|
(add-hook 'python-mode-hook
|
||
|
|
'(lambda () (set (make-local-variable 'yas-indent-line) 'fixed)))
|