erickgnavar’s gists

erickgnavar / gist.el

Created August 4, 2024 20:49

	(let* ((status-line (buffer-substring-no-properties (line-beginning-position) (line-end-position)))
	(status-code (nth 1 (split-string status-line " "))))

	(unless (string-equal status-code "201")
	(user-error "There was a problem with GitHub API, try again later"))

	(search-forward "\n\n")
	(let* ((raw-response (buffer-substring-no-properties (point) (point-max)))
	(data (json-parse-string raw-response))

erickgnavar / gist.el

Created August 4, 2024 20:49

	(defun my/gist-handle-response (response)
	"Process content of RESPONSE and extract link."
	(interactive)
	(let* ((status-line (buffer-substring-no-properties (line-beginning-position) (line-end-position)))
	(status-code (nth 1 (split-string status-line " "))))

	(unless (string-equal status-code "201")
	(user-error "There was a problem with GitHub API, try again later"))

	(search-forward "\n\n")

erickgnavar / gist.el

Created August 4, 2024 20:41

	(puthash filename file files)
	(puthash "files" files payload)
	(let ((url-request-method "POST")
	(url-request-extra-headers `(("Content-Type" . "application/json") ("User-Agent" . "gist.el") ("Authorization" . ,(concat "Bearer " oauth-token))))
	(url-request-data (json-encode payload)))
	(url-retrieve "https://api.github.com/gists" 'my/gist-handle-response))))

	(defun my/gist-handle-response ()
	"Process content of RESPONSE and extract link."
	(interactive)

erickgnavar / gist.el

Created August 4, 2024 20:33

	(let ((url-request-method "POST")
	(url-request-extra-headers `(("Content-Type" . "application/json") ("User-Agent" . "gist.el") ("Authorization" . ,(concat "Bearer " oauth-token))))
	(url-request-data (json-encode payload)))
	(url-retrieve "https://api.github.com/gists" 'my/gist-handle-response))))

	(defun my/gist-handle-response (response)
	"Process content of RESPONSE and extract link."
	(let* ((status-line (buffer-substring-no-properties (line-beginning-position) (line-end-position)))
	(status-code (nth 1 (split-string status-line " "))))

erickgnavar / gist.el

Created August 4, 2024 20:32

	(unless (not (string-equal status-code 201))
	(user-error "There was a problem with GitHub API, try again later"))

	(search-forward "\n\n")
	(let* ((raw-response (buffer-substring-no-properties (point) (point-max)))
	(data (json-parse-string raw-response))
	(gist-link (gethash "html_url" data)))

erickgnavar / gist.el

Created August 4, 2024 20:17

	(puthash "content" content file)
	(puthash filename file files)
	(puthash "files" files payload)
	(message (json-encode payload))
	(let ((url-request-method "POST")
	(url-request-extra-headers `(("Content-Type" . "application/json") ("User-Agent" . "gist.el") ("Authorization" . ,(concat "Bearer " oauth-token))))
	(url-request-data (json-encode payload)))
	(url-retrieve "https://api.github.com/gists" 'my/gist-handle-response))))

erickgnavar / highlight-expression-with-click.el

Created November 1, 2022 15:38

	(require 'tree-sitter)
	(require 'seq)
	(require 'cl-lib)

	;;TODO: mapp grammar for other langauges and complete grammar for haskell
	(setq modes-mapping '((haskell-mode . (exp_apply exp_infix exp_in exp_cond exp_literal))))

	(defun expr-at-point ()
	"Highlight expression at point."
	(interactive)

erickgnavar / app.js

Created October 28, 2022 02:15

	function svg2png(svgContent, width, height, callback) {
	// svgContent should be in base64
	let svgData = svgContent;
	let canvas = document.createElement("canvas");
	let context = canvas.getContext("2d");

	canvas.width = width;
	canvas.height = height;

	let image = new Image();

erickgnavar / build_emacs.sh

Created December 31, 2020 22:43

	#!/bin/bash -

	set -o nounset

	make clean

	echo "making sure all requirements are installed..."

	brew install autoconf automake libxml2 jansson gnutls cmake librsvg texinfo

erickgnavar / burn.el

Created December 5, 2020 01:55

	(defun replace-at-point ()
	(delete-char 1)
	(insert "🔥"))

	(defun replace-line ()
	(while (< (point) (line-end-position))
	(sit-for 0.1)
	(replace-at-point)))

	(defun burn-code ()

Erick Navarro erickgnavar