Add treesitter grammars

.emacs.d/functions.el

@@ -17,6 +17,11 @@
 (when (file-exists-p functions-file)
   (load functions-file))
 
+(setq-default
+  functions-file (concat (or (getenv "XDG_CONFIG_HOME") "~/.emacs.d/") "tclip.el"))
+(when (file-exists-p functions-file)
+  (load functions-file))
+
 (defun me/read ()
   "Custom mode optimised for reading shit."
   (interactive)

.emacs.d/init.el

@@ -190,6 +190,32 @@
   (define-key company-active-map (kbd "C-<tab>") 'my-tab)
   (define-key company-active-map (kbd "C-TAB") 'my-tab))
 
+(setq treesit-language-source-alist
+   '((bash "https://github.com/tree-sitter/tree-sitter-bash")
+     (cmake "https://github.com/uyha/tree-sitter-cmake")
+     (css "https://github.com/tree-sitter/tree-sitter-css")
+     (elisp "https://github.com/Wilfred/tree-sitter-elisp")
+     (go "https://github.com/tree-sitter/tree-sitter-go")
+     (html "https://github.com/tree-sitter/tree-sitter-html")
+     (javascript "https://github.com/tree-sitter/tree-sitter-javascript" "master" "src")
+     (json "https://github.com/tree-sitter/tree-sitter-json")
+     (make "https://github.com/alemuller/tree-sitter-make")
+     (markdown "https://github.com/ikatyang/tree-sitter-markdown")
+     (python "https://github.com/tree-sitter/tree-sitter-python")
+     (toml "https://github.com/tree-sitter/tree-sitter-toml")
+     (tsx "https://github.com/tree-sitter/tree-sitter-typescript" "master" "tsx/src")
+     (typescript "https://github.com/tree-sitter/tree-sitter-typescript" "master" "typescript/src")
+     (yaml "https://github.com/ikatyang/tree-sitter-yaml")))
+
+(setq major-mode-remap-alist
+ '((yaml-mode . yaml-ts-mode)
+   (bash-mode . bash-ts-mode)
+   (js2-mode . js-ts-mode)
+   (typescript-mode . typescript-ts-mode)
+   (json-mode . json-ts-mode)
+   (css-mode . css-ts-mode)
+   (python-mode . python-ts-mode)))
+
 ;; Adapted from https://github.com/Slackwise/dotfiles/blob/master/emacs/slackwise.el
 (setq-default
  functions-file (concat (or (getenv "XDG_CONFIG_HOME") "~/.emacs.d/") "functions.el"))

.emacs.d/tclip.el

@@ -0,0 +1,81 @@
+;;; tclip.el --- tclip client for Emacs -*- lexical-binding: t; -*-
+
+;; Copyright (C)
+;;    2023 Tailscale, Inc.
+;; Author: Xe Iaso <xe@tailscale.com>
+;; Maintainer: Xe Iaso <xe@tailscale.com>
+;; Created: 2023-01-13
+;; Version: 0.1
+;; Keywords: tailscale, pastebin, sharing
+;; Homepage: https://github.com/tailscale-dev/tclip
+
+;;; Commentary:
+;;
+;; This uses request-el to make requests to your tailnet's tclip server. You
+;; can install request-el with M-x package-install.
+;;
+;; This package requires that you have a tclip server set up. This package
+;; reaches out to a tclip server over either plain HTTP, or HTTPS should you
+;; configure the variable `tclip-server'.
+;;
+;; Usage:
+;;
+;; To submit the contents of the current buffer to tclip:
+;;  M-x tclip-submit-buffer
+;; To submit the contents of the currently highlighted region to tclip:
+;;  M-x tclip-submit-region
+;;
+;; Customization:
+;;
+;; To customize the tclip server this package reaches out to:
+;;  M-x customize-group tclip
+;;
+;; You can customize the tclip server URL by changing the value of `tclip-server':
+;;  (setq tclip-server "https://paste.shark-harmonic.ts.net")
+
+;;; Code:
+
+(require 'request)
+
+(defgroup tclip nil
+  "Tclip server configuration."
+  :prefix "tclip-"
+  :group 'tclip)
+
+(defcustom tclip-server "http://paste"
+  "The server that is running tclip or a service with a compatible API to tclip. This should NOT end with a trailing slash."
+  :group 'tclip
+  :type 'string)
+
+(defun tclip--send-paste (fname content)
+  "Internal function that actually fires off the paste with name FNAME and content CONTENT to the tclip server."
+  (request (format "%s/api/post" tclip-server)
+    :type "POST"
+    :data `(("filename" . ,fname)
+            ("content" . ,content))
+    :headers '(("Accept" . "text/plain"))
+    :timeout 60
+    :success (cl-function
+              (lambda (&key response &allow-other-keys)
+                (message "%s" (request-response-data response))))))
+
+(defun tclip-submit-buffer ()
+  "Submits the entire current buffer to tclip."
+  (interactive)
+  (let ((fname (format "%s.%s"
+                        (file-name-base (buffer-file-name))
+                        (file-name-extension (buffer-file-name))))
+         (content (buffer-string)))
+    (tclip--send-paste fname content)))
+
+(defun tclip-submit-region ()
+  "Submits the highlighted region to tclip."
+  (interactive)
+  (let ((fname (format "%s.%s"
+                        (file-name-base (buffer-file-name))
+                        (file-name-extension (buffer-file-name))))
+         (content (buffer-substring-no-properties (region-beginning) (region-end))))
+    (tclip--send-paste fname content)))
+
+(provide 'tclip)
+;;; tclip.el ends here