From 88ab401adc83bea6e1f571c54093dbc7f521e080 Mon Sep 17 00:00:00 2001
From: Franck Cuny <franck@fcuny.net>
Date: Mon, 4 Jan 2021 19:52:04 -0800
Subject: emacs: rename the directory

---
 emacs/custom/fcuny-defuns.el | 55 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 emacs/custom/fcuny-defuns.el

(limited to 'emacs/custom/fcuny-defuns.el')

diff --git a/emacs/custom/fcuny-defuns.el b/emacs/custom/fcuny-defuns.el
new file mode 100644
index 0000000..48a9d97
--- /dev/null
+++ b/emacs/custom/fcuny-defuns.el
@@ -0,0 +1,55 @@
+(defun fcuny/remove-mysql-columns ()
+  "Removes from text. This is useful when I want to drop the column separator from some text coming from a mysql query."
+  (interactive)
+  (while (search-forward-regexp "\s?|\s?")
+    (replace-match " ")))
+
+(defun fcuny/copy-whole-buffer ()
+  "Selects the buffer and copy it."
+  (interactive)
+  (save-excursion
+    (mark-whole-buffer)
+    (copy-region-as-kill 1 (buffer-size))))
+
+(defun fcuny/check-work-machine-p ()
+  "Returns t if this is a work machine"
+  (string-match "tw-mbp.*" (system-name)))
+
+(defun fcuny/build-python-checker ()
+  "Compiles a newer version of the checker for Python."
+  (interactive)
+  (let ((output (make-temp-file "checker-foo"))
+        (errors (make-temp-file "checker-errors"))
+        (default-directory "~/workspace/source"))
+    (let ((status (call-process "~/workspace/source/pants" nil `(,output ,errors) nil "-q" "binary" "src/python/twitter/devprod/checkstyle:check")))
+      (if (zerop status)
+          (message "Built check.pex successfully")
+        (message (buffer-file-name output))))))
+
+;; from https://karl-voit.at/2014/08/10/bookmarks-with-orgmode/
+(defun fcuny/string-replace (this withthat in)
+  "replace THIS with WITHTHAT' in the string IN"
+  (with-temp-buffer
+    (insert in)
+    (goto-char (point-min))
+    (replace-string this withthat)
+    (buffer-substring (point-min) (point-max))))
+
+(defun fcuny/get-page-title (url)
+  "Make URL into an org-mode link."
+  (let ((title))
+    (with-current-buffer (url-retrieve-synchronously url)
+      (goto-char (point-min))
+      (re-search-forward "<title>\\([^<]*\\)</title>" nil t 1)
+      (setq title (match-string 1))
+      (goto-char (point-min))
+      (re-search-forward "charset=\\([-0-9a-zA-Z]*\\)" nil t 1)
+      (fcuny/string-replace "&nbsp;" " "
+                        ;;(decode-coding-string title (intern (match-string 1)))
+                        ;; following line fixes charset issues from
+                        ;; previous line:
+                            (decode-coding-string title 'utf-8))
+      (concat "[[" url "][" title "]]"))))
+
+
+(provide 'fcuny-defuns)
-- 
cgit 1.4.1