From 3b07c4cfbf74aae31220f3ae305f397683583ba3 Mon Sep 17 00:00:00 2001
From: Jim Myhrberg <contact@jimeh.me>
Date: Sun, 20 May 2018 17:21:22 +0100
Subject: [PATCH] Add siren-ignore-error-wrapper as core function of siren

---
 core/siren-core.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/core/siren-core.el b/core/siren-core.el
index edda98f..f030fe4 100644
--- a/core/siren-core.el
+++ b/core/siren-core.el
@@ -68,5 +68,13 @@ Borrowed from: http://emacsredux.com/blog/2013/05/04/rename-file-and-buffer/"
           (set-visited-file-name new-name)
           (set-buffer-modified-p nil)))))))
 
+(defun siren-ignore-error-wrapper (fn)
+  "Funtion return new function that ignore errors.
+   The function wraps a function with `ignore-errors' macro."
+  (lexical-let ((fn fn))
+    (lambda ()
+      (interactive)
+      (ignore-errors (funcall fn)))))
+
 (provide 'siren-core)
 ;;; siren-core.el ends here