feat: include basic templates, headers and snippets in the project.

Author: iocanel

headers/asl

@@ -0,0 +1,14 @@
+Copyright (C) `(format-time-string "%Y")` `(user-full-name)` 
+    
+
+Licensed under the Apache License, Version 2.0 (the "License");
+you may not use this file except in compliance with the License.
+You may obtain a copy of the License at
+
+        http://www.apache.org/licenses/LICENSE-2.0
+
+Unless required by applicable law or agreed to in writing, software
+distributed under the License is distributed on an "AS IS" BASIS,
+WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+See the License for the specific language governing permissions and
+limitations under the License.

headers/gpl

@@ -0,0 +1,13 @@
+Copyright (C) `(format-time-string "%Y")` `(user-full-name)` 
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, version 3.
+
+This program is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program. If not, see <http://www.gnu.org/licenses/>.

idee-headers.el

@@ -32,7 +32,7 @@
 ;;
 ;; Customization
 ;;
-(defcustom idee-emacs-headers-dir "~/.emacs.d/headers" "The directory where header files are stored." :group 'idee :type 'string)
+(defconst idee-emacs-headers-dir (concat idee-resources-dir "headers") "The directory where header files are stored.")
 
 ;;
 ;; State

idee-templates.el

@@ -26,10 +26,21 @@
 
 (require 'yasnippet)
 
+(defconst idee-templates-dir
+  (expand-file-name
+   "templates"
+   (file-name-directory
+    ;; Copied from ‘yasnippet-snippets’ that copied from ‘f-this-file’ from f.el.
+    (cond
+     (load-in-progress load-file-name)
+     ((and (boundp 'byte-compile-current-file) byte-compile-current-file)
+      byte-compile-current-file)
+     (:else (buffer-file-name))))))
+
 ;;
 ;; State
 ;;
-(defcustom idee-emacs-templates-dir "~/.config/emacs/templates" "The directory where template files are stored." :group 'idee :type 'string)
+(defconst idee-emacs-templates-dir (concat idee-resources-dir "templates") "The directory where template files are stored.")
 
 (defvar idee-type-modes-alist '() "Association list for extension to mode.")
 (setq idee-type-modes-alist '(

idee-utils.el

@@ -116,12 +116,25 @@
       (concat (capitalize first) rest-str))))
 
 ;;; Misc Functions
-  (defun idee-screenshot ()
-    "Get a screenshot."
-    (interactive)
-    (shell-command "scrot -s '/home/iocanel/Photos/screenshots/%Y-%m-%d_%H:%M:%S_$wx$h.png'"))
-
-  (global-set-key (kbd "C-c i s") 'idee-screenshot)
-
+(defun idee-screenshot ()
+  "Get a screenshot."
+  (interactive)
+  (shell-command "scrot -s '/home/iocanel/Photos/screenshots/%Y-%m-%d_%H:%M:%S_$wx$h.png'"))
+
+(global-set-key (kbd "C-c i s") 'idee-screenshot)
+
+
+(defun idee--git-checkout (repo target &optional dirs)
+  "Checkout a git REPO into the TARGET dir. Optionally only checkout one or more DIRS."
+  (make-directory target t)
+  (setq default-directory (file-name-as-directory target))
+  (call-process-shell-command "git init")
+  (call-process-shell-command (format "git remote add -f origin %s" repo))
+  (if dirs
+      (progn
+      (call-process-shell-command "git config core.sparseCheckout true")
+      (mapc (lambda (x) (call-process-shell-command (format "echo '%s' >> .git/info/sparse-checkout" x))) dirs)))
+  (call-process-shell-command "git checkout master"))
+ 
   (provide 'idee-utils)
 ;;; idee-utils.el ends here

idee-vars.el

@@ -23,7 +23,7 @@
 ;;; Commentary:
 
 ;;; Code:
-
+(defcustom idee-resources-dir (locate-user-emacs-file "idee") "The directory where idee files are stored." :group 'idee :type 'string)
 (defcustom idee-project-conf-dir ".idee" "The directory where idee configuration files are stored." :group 'idee :type 'string)
 
 ;; Tabs and indentation

idee.el

@@ -28,7 +28,15 @@
 (require 'idee-navigation)
 (require 'idee-projects)
 (require 'idee-templates)
+(require 'idee-vars)
+(require 'idee-utils)
 
+(defcustom idee-repo-url "idee" "The repository url of the idee project." :group 'idee :type 'string)
 
+(defun idee-resources-init ()
+  "Initialize idee resources."
+  (idee--git-checkout idee-repo-url idee-resources-dir '("headers" "templates" "snippets")))
+
+(idee-resources-init)
 (provide 'idee)
 ;;; idee.el ends here

snippets/java-mode/cons

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: constant string
+# key: cons 
+# --
+private static final String ${1:$(upcase (replace-regexp-in-string "[^a-zA-z0-9]+" "_" yas-text))} = "${1:constant}";
+$0

snippets/java-mode/g

@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: getter
+# key: g
+# --
+
+public ${1:String} get${2:$(capitalize yas-text)}() {
+  return this.${2:field};
+}
+$0

snippets/java-mode/gs

@@ -0,0 +1,13 @@
+# -*- mode: snippet -*-
+# name: getter & setter
+# key: gs
+# --
+
+public ${1:String} get${2:$(idee-capitalize-first yas-text)}() {
+  return this.${2:field};
+}
+
+public void set${2:$(idee-capitalize-first yas-text)}($1 $2) {
+  this.$2=$2;
+}
+$0