From 13b16d6d8acdb00858c83921fc965522e2324965 Mon Sep 17 00:00:00 2001
From: rearman <rearman@r717.net>
Date: Thu, 9 May 2024 16:26:23 -0400
Subject: [PATCH] Add SRC_BLOCK snippet, force utf-8

---
 abbrev_defs |  6 +++---
 init.org    | 32 ++++++++++++++++++++++++++++----
 2 files changed, 31 insertions(+), 7 deletions(-)

diff --git a/abbrev_defs b/abbrev_defs
index f55bff7..ec5461d 100644
--- a/abbrev_defs
+++ b/abbrev_defs
@@ -1,7 +1,7 @@
 ;;-*-coding: utf-8;-*-
 (define-abbrev-table 'org-mode-abbrev-table
-  '(("selisp" "" skel-org-block-elisp)
+  '(("ssrc" "" skel-org-block)
+    ("selisp" "" skel-org-block-elisp)
     ("sfac" "" skel-facility-properties)
     ("sper" "" skel-person-properties)
-    ("swo" "" skel-workorder-properties)
-    ("smet" "" skel-meeting-properties)))
+    ("swo" "" skel-workorder-properties)))
diff --git a/init.org b/init.org
index 51b91d9..aa2d09c 100644
--- a/init.org
+++ b/init.org
@@ -373,6 +373,18 @@ I want these things every time, or at least setting them this way worked when a
               cursor-in-non-selected-windows 'hollow)
 #+END_SRC
 
+*** UTF-8
+:PROPERTIES:
+:ID:       79eb9b8c-84a3-4dcb-808f-ef7ff26eb829
+:END:
+Force emacs to use UTF-8 so I avoid prompts on save
+#+BEGIN_SRC emacs-lisp
+(set-language-environment 'utf-8)
+(set-default-coding-systems 'utf-8)
+(set-keyboard-coding-system 'utf-8-unix)
+(set-terminal-coding-system 'utf-8-unix)
+#+END_SRC
+
 *** Backup/Autosave
 :PROPERTIES:
 :ID:       caa6e592-9e74-42a7-837a-f7c650a43b11
@@ -867,6 +879,19 @@ Start up =abbrev-mode= for org
 :PROPERTIES:
 :ID:       fffe9361-bae6-4ceb-8a71-5d06e711528d
 :END:
+***** General source Block
+:PROPERTIES:
+:ID:       f469a595-d370-46b5-8d8e-afab9a816c97
+:END:
+#+BEGIN_SRC emacs-lisp
+(define-skeleton skel-org-block
+  "Insert an org source code block"
+  ""
+  "#+BEGIN_SRC "
+  _ - \n\n
+  "#+END_SRC\n")
+#+END_SRC
+
 ***** Emacs Lisp source Block
 :PROPERTIES:
 :ID:       eb47039c-d264-4a61-8da8-7659cbc02b62
@@ -879,7 +904,6 @@ Start up =abbrev-mode= for org
   _ - \n
   "#+END_SRC\n")
 #+END_SRC
-
 ***** Facility properties block
 :PROPERTIES:
 :ID:       30630b60-66ca-40ed-a30b-9a95a2be7c70
@@ -948,11 +972,11 @@ Superceded by [[*Templates][Meeting Capture Template]]
 #+BEGIN_SRC emacs-lisp  :tangle ./abbrev_defs
 ;;-*-coding: utf-8;-*-
 (define-abbrev-table 'org-mode-abbrev-table
-  '(("selisp" "" skel-org-block-elisp)
+  '(("ssrc" "" skel-org-block)
+    ("selisp" "" skel-org-block-elisp)
     ("sfac" "" skel-facility-properties)
     ("sper" "" skel-person-properties)
-    ("swo" "" skel-workorder-properties)
-    ("smet" "" skel-meeting-properties)))
+    ("swo" "" skel-workorder-properties)))
 #+END_SRC
 
 *** Auto-archive
-- 
2.39.5