init

4 files changed, 26 insertions, 0 deletions

diff --git a/config/programming-languages/c/config-c-functions.el b/config/programming-languages/c/config-c-functions.el
new file mode 100644
index 0000000..b60d38c
--- /dev/null
+++ b/config/programming-languages/c/config-c-functions.el
@@ -0,0 +1,4 @@
+(defun config-c-mode-insert-header-guard ()
+  (interactive)
+  (let ((guard (upcase (format "%s_H" (file-name-base (buffer-file-name))))))
+    (insert (format "#ifndef %s\n#define %s\n#endif" guard guard))))
diff --git a/config/programming-languages/c/config-c.el b/config/programming-languages/c/config-c.el
new file mode 100644
index 0000000..3cb6a32
--- /dev/null
+++ b/config/programming-languages/c/config-c.el
@@ -0,0 +1,5 @@
+(setq c-default-style "stroustrup" c-basic-offset 4)
+
+(load "config-c-functions")
+
+(provide 'config-c)
diff --git a/config/programming-languages/config-programming-languages.el b/config/programming-languages/config-programming-languages.el
new file mode 100644
index 0000000..3976cce
--- /dev/null
+++ b/config/programming-languages/config-programming-languages.el
@@ -0,0 +1,14 @@
+(defvar config-programming-languages-directory (file-name-directory
+						(locate-library "config-programming-languages")))
+
+(defvar config-programming-languages-modules '(c shell))
+
+(mapc (lambda (module)
+	(let ((module-load-path (file-name-concat config-programming-languages-directory (symbol-name module))))
+	  (add-to-list 'load-path module-load-path)))
+      config-programming-languages-modules)
+
+(require 'config-c)
+(require 'config-shell)
+
+(provide 'config-programming-languages)
diff --git a/config/programming-languages/shell/config-shell.el b/config/programming-languages/shell/config-shell.el
new file mode 100644
index 0000000..0c1e82c
--- /dev/null
+++ b/config/programming-languages/shell/config-shell.el
@@ -0,0 +1,3 @@
+(setq sh-shell-file "/bin/bash")
+
+(provide 'config-shell)