Làm cách nào để hoán chuyển hai đối số của hàm trong Python?

Làm cách nào tôi có thể trao đổi hai đối số trong một cuộc gọi sang hàm Python?

Nếu tôi đặt pointkhoảng trắng giữa hai đối số này:

self.assertEqual(json.loads(some.data), json_data)

và sau đó M-t( transpose-words), tôi nhận được:

self.assertEqual(json.loads(some.json), data_data)

Mặt khác với CMt ( transpose-sexps) tôi nhận được:

self.assertEqual(json.loadsjson_data, (some.data))

Điều tôi muốn là:

self.assertEqual(json_data, json.loads(some.data))

Có một lệnh sẽ làm điều đó?

Đây là điều mà tôi cũng muốn có từ lâu và ở đây tôi đã tìm thấy một số động lực để làm việc với nó. Nó có thể không mạnh lắm, nhưng ở lần thử đầu tiên, nó dường như bao gồm các trường hợp tôi đã thử:

(defun my/calculate-stops ()
  (save-excursion
    (let ((start
           (condition-case e
               (while t (backward-sexp))
             (error (point))))
          stops)
      (push start stops)
      (condition-case e
          (while t
            (forward-sexp)
            (when (looking-at "\\s-*,")
              (push (point) stops)))
        (error (push (point) stops)))
      (nreverse stops))))

(defun my/transpose-args ()
  (interactive)
  (when (looking-at "\\s-") (backward-sexp))
  (cl-loop with p = (point)
           with previous = nil
           for stop on (my/calculate-stops)
           for i upfrom 0
           when (<= p (car stop)) do
           (when previous
             (let* ((end (cadr stop))
                    (whole (buffer-substring previous end))
                    middle last)
               (delete-region previous end)
               (goto-char previous)
               (setf middle (if (> i 1) (- (car stop) previous)
                              (string-match "[^, \\t]" whole 
                                            (- (car stop) previous)))
                     last (if (> i 1) (substring whole 0 middle)
                            (concat (substring whole (- (car stop) previous) middle)
                                    (substring whole 0 (- (car stop) previous)))))
               (insert (substring whole middle) last)))
           (cl-return)
           end do (setf previous (car stop))))

Tôi sử dụng một biến thể của giao diện transpose-sexpsđó cho trường hợp bạn mô tả và hoán chuyển mọi thứ - được phân tách bằng dấu phẩy hoặc chỉ là thông thường transpose-sexps. Nó cũng để con trỏ vào vị trí thay vì kéo nó về phía trước, điều này hơi khác một chút nhưng cá nhân tôi thích.

(defun my-transpose-sexps ()
  "If point is after certain chars transpose chunks around that.
Otherwise transpose sexps."
  (interactive "*")
  (if (not (looking-back "[,]\\s-*" (point-at-bol)))
      (progn (transpose-sexps 1) (forward-sexp -1))
    (let ((beg (point)) end rhs lhs)
      (while (and (not (eobp))
                  (not (looking-at "\\s-*\\([,]\\|\\s)\\)")))
        (forward-sexp 1))
      (setq rhs (buffer-substring beg (point)))
      (delete-region beg (point))
      (re-search-backward "[,]\\s-*" nil t)
      (setq beg (point))
      (while (and (not (bobp))
                  (not (looking-back "\\([,]\\|\\s(\\)\\s-*" (point-at-bol))))
        (forward-sexp -1))
      (setq lhs (buffer-substring beg (point)))
      (delete-region beg (point))
      (insert rhs)
      (re-search-forward "[,]\\s-*" nil t)
      (save-excursion
        (insert lhs)))))

Trong các chế độ sử dụng SMIE, transpose-sexpnên hoạt động chính xác cho trường hợp đó. Họ vẫn sẽ thất bại khi biểu tượng infix (còn gọi là "dấu phân cách") không phải là một ,(hoặc a ;) mà là một từ (ví dụ and).

Vì vậy, ý kiến ​​của tôi là lệnh đó là transpose-sexpvà khi nó không hoạt động chính xác, tôi coi đó là một lỗi (nhưng một lỗi có thể khó và / hoặc mất thời gian để sửa và có mức độ ưu tiên thấp, vì vậy đừng ' t nín thở). Cách khắc phục là bằng cách đặt forward-sexp-functionthành một hàm sẽ biết rằng "sau khi tôi thấy dấu phẩy, tôi chỉ cần nhảy xung quanh toàn bộ đối số".