Replace obsolete functions/commands

modules/feature/jump/autoload.el

@@ -44,6 +44,6 @@
                           (mapcar #'car +lookup-search-url-alist)
                           nil t)))
   (let ((url (cdr (assoc where +lookup-search-url-alist)))
-        (search (or search (read-input "Query: "))))
+        (search (or search (read-string "Query: "))))
     (browse-url (format url (url-encode-url search)))))
 

modules/feature/snippets/autoload/evil.el

@@ -10,7 +10,7 @@ and switches to insert mode if there are editable fields."
   (cl-letf (((symbol-function 'region-beginning) (lambda () evil-visual-beginning))
             ((symbol-function 'region-end)       (lambda () evil-visual-end)))
     (yas-insert-snippet))
-  (when-let (snippet (car-safe (yas--snippets-at-point)))
+  (when-let (snippet (car-safe (yas-active-snippets)))
     (let ((fields (yas--snippet-fields snippet)))
       (evil-insert-state +1)
       (unless fields (evil-change-state 'normal)))))

modules/feature/snippets/autoload/snippets.el

@@ -4,7 +4,7 @@
 (defun +snippets/goto-start-of-field ()
   "Go to the beginning of the current field."
   (interactive)
-  (let* ((snippet (car (yas--snippets-at-point)))
+  (let* ((snippet (car (yas-active-snippets)))
          (position (yas--field-start (yas--snippet-active-field snippet))))
     (if (= (point) position)
         (move-beginning-of-line 1)
@@ -14,7 +14,7 @@
 (defun +snippets/goto-end-of-field ()
   "Go to the end of the current field."
   (interactive)
-  (let* ((snippet (car (yas--snippets-at-point)))
+  (let* ((snippet (car (yas-active-snippets)))
          (position (yas--field-end (yas--snippet-active-field snippet))))
     (if (= (point) position)
         (move-end-of-line 1)

modules/feature/workspaces/autoload/workspaces.el

@@ -333,7 +333,7 @@ end of the workspace list."
       (condition-case ex
           (let* ((persps (+workspace-list))
                  (perspc (length persps))
-                 (index (position current-name persps)))
+                 (index (cl-position current-name persps)))
             (when (= perspc 1)
               (user-error "No other workspaces"))
             (+workspace/switch-to (% (+ index n) perspc))