Handy snippets for org src elements

config.org

@@ -4173,6 +4173,65 @@ appropriate.  In tables, insert a new row or end the table."
  :map evil-org-mode-map
  :i [return] #'unpackaged/org-return-dwim)
 #+END_SRC
+**** Snippet Helper
+For snippets which want to depend on the ~#+THING:~ on the current line.
+This is mostly source blocks, and property args, so let's get fancy with them.
+
+One-letter snippets are super-convenient, but for them to not be a pain
+everywhere else we'll need a nice condition function to use in yasnippet.
+
+By having this function give slightly more than a simple ~t~ or ~nil~, we can
+use in a second function to get the most popular language without explicit
+global header args.
+#+BEGIN_SRC emacs-lisp
+(defun +yas/org-src-lang ()
+  "Try to find the current language of the src/header at point.
+Return nil otherwise."
+  (save-excursion
+    (pcase
+        (downcase
+         (buffer-substring-no-properties
+          (goto-char (line-beginning-position))
+          (or (ignore-errors (1- (search-forward " " (line-end-position))))
+              (1+ (point)))))
+      ("#+property:"
+       (when (re-search-forward "header-args:")
+         (buffer-substring-no-properties
+          (point)
+          (or (and (forward-word) (point))
+              (1+ (point))))))
+      ("#+begin_src"
+       (buffer-substring-no-properties
+        (point)
+        (or (and (forward-word) (point))
+            (1+ (point)))))
+      ("#+header:"
+       (search-forward "#+begin_src")
+       (+yas/org-src-lang))
+      (t nil))))
+
+(defun +yas/org-most-common-no-property-lang ()
+  "Find the lang with the most source blocks that has no global header-args, else nil."
+  (let (src-langs header-langs)
+    (save-excursion
+      (goto-char (point-min))
+      (while (search-forward "#+begin_src" nil t)
+        (push (+yas/org-src-lang) src-langs))
+      (goto-char (point-min))
+      (while (re-search-forward "#\\+property: +header-args" nil t)
+        (push (+yas/org-src-lang) header-langs)))
+
+    (setq src-langs
+          (mapcar #'car
+                  ;; sort alist by frequency (desc.)
+                  (sort
+                   ;; generate alist with form (value . frequency)
+                   (cl-loop for (n . m) in (seq-group-by #'identity src-langs)
+                            collect (cons n (length m)))
+                   (lambda (a b) (> (cdr a) (cdr b))))))
+
+    (car (set-difference src-langs header-langs :test #'string=))))
+#+END_SRC
 **** Org Plot
 There are two main bits of extra functionality I wan to add
 + the ability to transpose tables (internally)

snippets/org-mode/global-property

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: Global property
+# key: #+p
+# condition: (> 20 (line-number-at-pos))
+# --
+#+PROPERTY: $0

snippets/org-mode/header-arg-dir

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: Header arg - dir
+# key: d
+# condition: (+yas/org-src-header-p)
+# --
+:dir `(file-relative-name (read-directory-name "Working directory: "))` $0

snippets/org-mode/header-arg-eval

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: Header arg - eval
+# key: v
+# condition: (+yas/org-src-header-p)
+# --
+:eval `(ivy-read "Evaluate: " '("no" "query" "no-export" "query-export"))` $0

snippets/org-mode/header-arg-export

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: Header arg - export
+# key: e
+# condition: (+yas/org-src-header-p)
+# --
+:exports `(ivy-read "Exports: " '("code" "results" "both" "none"))` $0

snippets/org-mode/header-arg-results

@@ -0,0 +1,13 @@
+# -*- mode: snippet -*-
+# name: Header arg - results
+# key: r
+# condition: (+yas/org-src-header-p)
+# --
+:results `
+(replace-regexp-in-string "(default)" ""
+(concat
+    (ivy-read "Result collection: " '("(default)" "value " "output ") :preselect "(default)")
+    (ivy-read "Result type: " '("(default)" "table " "vector " "list " "verbatim " "file ") :preselect "(default)")
+    (ivy-read "Result format: " '("(default)" "code " "drawer " "html " "latex " "link " "graphics " "org " "pp " "raw ") :preselect "(default)")
+    (ivy-read "Result handling: " '("(default)" "silent " "replace " "append " "prepend ") :preselect "(default)")))
+`$0

snippets/org-mode/header-arg-session

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: Header arg - session
+# key: s
+# condition: (+yas/org-src-header-p)
+# --
+:session "${1:`(file-name-base (buffer-file-name))`-session}" $0

snippets/org-mode/property-header-args

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: Property - header arg
+# key: h
+# condition: (or (looking-back "#\\+PROPERTY:.*" (line-beginning-position)) ((looking-back "#\\+property:.*" (line-beginning-position))))
+# --
+header-args:${1:`(or (+yas/org-most-common-no-property-lang) "?")`} $0