Write core initfiles + defuns

2015-06-15 09:05:52 +02:00 · 2015-06-15 09:05:52 +02:00 · b998f4ab08
commit b998f4ab08
parent c0661f5293
52 changed files with 2444 additions and 706 deletions
--- a/core/lib/defuns-yasnippet.el
+++ b/core/lib/defuns-yasnippet.el
@ -0,0 +1,120 @@
+;;; defuns-yasnippet.el
+;; for ../core-yasnippet.el
+
+;;;###autoload
+(defun narf|yas-before-expand ()
+  "Switch to insert mode when expanding a template via backtab, or go back to
+normal mode if there are no fields."
+  ;; Strip out the shitespace before a line selection.
+  (when (narf/evil-visual-line-state-p)
+    (setq yas-selected-text
+          (replace-regexp-in-string
+           "\\(^ *\\|\n? $\\)" ""
+           (buffer-substring-no-properties (region-beginning)
+                                           (1- (region-end))))))
+  (evil-insert-state +1))
+
+;;;###autoload
+(defun narf|yas-after-expand ()
+  "Switch to insert mode when expanding a template via backtab, or go back to
+normal mode if there are no fields."
+  (setq yas-selected-text nil))
+
+;;;###autoload
+(defun narf/yas-insert-snippet ()
+  "Switch to insert mode when expanding a template via backtab, or go back to
+normal mode if there are no fields."
+  (interactive)
+  (yas-insert-snippet)
+  (evil-insert-state +1))
+
+;;;###autoload
+(defun narf/yas-goto-start-of-field ()
+  "Go to the beginning of a field."
+  (interactive)
+  (let* ((snippet (car (yas--snippets-at-point)))
+         (position (yas--field-start (yas--snippet-active-field snippet))))
+    (if (= (point) position)
+        (move-beginning-of-line 1)
+      (goto-char position))))
+
+;;;###autoload
+(defun narf/yas-goto-end-of-field ()
+  (interactive)
+  (let* ((snippet (car (yas--snippets-at-point)))
+         (position (yas--field-end (yas--snippet-active-field snippet))))
+    (if (= (point) position)
+        (move-end-of-line 1)
+      (goto-char position))))
+
+;;;###autoload
+(defun narf/yas-backspace (&optional field)
+  "Prevents Yas from stepping on my toes when I use backspace."
+  (interactive)
+  (let ((field (or field (and yas--active-field-overlay
+                              (overlay-buffer yas--active-field-overlay)
+                              (overlay-get yas--active-field-overlay 'yas--field)))))
+    (cond ((eq (point) (marker-position (yas--field-start field))) nil)
+          (t (delete-char -1)))))
+
+;;;###autoload
+(defun narf/yas-delete (&optional field)
+  (interactive)
+  (let ((field (or field (and yas--active-field-overlay
+                              (overlay-buffer yas--active-field-overlay)
+                              (overlay-get yas--active-field-overlay 'yas--field)))))
+    (cond ((and field
+                (not (yas--field-modified-p field))
+                (eq (point) (marker-position (yas--field-start field))))
+           (yas--skip-and-clear field)
+           (yas-next-field 1))
+          ((eq (point) (marker-position (yas--field-end field))) nil)
+          (t (delete-char 1)))))
+
+;;;###autoload
+(defun narf/yas-clear-to-sof (&optional field)
+  (interactive)
+  (let* ((field (or field (and yas--active-field-overlay
+                               (overlay-buffer yas--active-field-overlay)
+                               (overlay-get yas--active-field-overlay 'yas--field))))
+         (sof (marker-position (yas--field-start field))))
+    (when (and field (> (point) sof))
+      (delete-region sof (point)))))
+
+;; Snippet helpers ;;;;;;;;;;;;;;;;;;;;;
+;;;###autoload
+(defun !%! ()
+  "Snippet function. Shorthand defun to surround text with newlines if more
+than one line."
+  (when %
+    (if (> (length (s-lines %)) 1)
+        (concat "\n" % "\n")
+      (s-trim %))))
+
+;;;###autoload
+(defun !% ()
+  "Snippet function. Shorthand defun for snippets: prepends a newline to
+  `yas-selected-text' IF it contains more than one line."
+  (when %
+    (if (> (length (s-lines %)) 1)
+        (concat "\n" %)
+      (s-trim %))))
+;;;###autoload
+(defun %1 ()
+  "Trim selection; do no further processing."
+  (s-trim %))
+
+;;;###autoload (autoload 'narf:yas-snippets "defuns-yasnippet" nil t)
+(evil-define-command narf:yas-snippets (&optional bang)
+  (interactive "<!>")
+  (if bang
+      (narf/ido-find-file (car narf-snippet-dirs))
+    (yas-visit-snippet-file)))
+
+;;;###autoload
+(defun narf:yas-file-templates ()
+  (interactive)
+  (narf/ido-find-file (cdr narf-snippet-dirs)))
+
+(provide 'defuns-yasnippet)
+;;; nlinum-defuns.el ends here