functions: move custom functions to libraries

1 files changed, 23 insertions, 0 deletions

diff --git a/emacs/elisp/my-strings.el b/emacs/elisp/my-strings.el
new file mode 100644
index 0000000..40ad888
--- /dev/null
+++ b/emacs/elisp/my-strings.el
@@ -0,0 +1,23 @@
+;;; my-strings.el --- Functions related to strings manipulation
+;;; Commentary:
+;;; Code:
+
+(defun my/remove-sql-columns ()
+  "Remove \"|\" from strings.
+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 " ")))
+
+;; from https://karl-voit.at/2014/08/10/bookmarks-with-orgmode/
+(defun my/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))))
+
+(provide 'my-strings)
+;;; my-strings.el ends here