1 files changed, 0 insertions, 53 deletions
diff --git a/.emacs.d/lisp/init-program-basic.el~ b/.emacs.d/lisp/init-program-basic.el~
deleted file mode 100644
index 04266aa..0000000
--- a/.emacs.d/lisp/init-program-basic.el~
+++ /dev/null
@@ -1,53 +0,0 @@
-;;; program-basic --- Some basic configuration
-
-;;; Commentary:
-;; None
-
-;;; Code:
-
-(setq-default c-basic-offset 4
-	      tab-width 4
-	      indent-tabs-mode t)
-
-(defun execute-c-program ()
-  "Complie current c file and run it."
-  (interactive)
-  (save-buffer)
-  (defvar foo)
-  (setq foo (concat
-			 "gcc " (include-source-file (buffer-name)) " -o " (buffer-name) ".out && ./" (buffer-name) ".out" ))
-  (shell-command foo))
-
-(defun include-source-file (file-path)
-  "Get transfer all include header file from FILE-PATH to source file(string)."
-  (let (content)
-	(setq content (format "%s" (get-c-source-file (get-string-from-file file-path))))
-	(if (string= nil content)
-		file-path
-	  (substring content 1 -1))))
-
-(defun get-c-source-file (content)
-  "Get the header list of a string CONTENT, for instant a .c file."
-  (defun header-to-source (header)
-	"Whole line of header"
-	(replace-regexp-in-string "[.]h" ".c " (substring header 10 -1)))
-  (let (value)
-	(dolist (element (split-string content "\n" t) value)
-	  (if (string-prefix-p "#include \"" element)
-		  (setq value (cons (header-to-source element) value))))))
-  
-
-(defun read-lines (file-path)
-  "Return a list of lines of a file at FILE-PATH."
-  (with-temp-buffer
-    (insert-file-contents file-path)
-    (split-string (buffer-string) "\n" t)))
-
-(defun get-string-from-file (file-path)
-  "Return FILE-PATH's file content in list."
-  (with-temp-buffer
-	(insert-file-contents file-path)
-	(buffer-string)))
-
-(provide 'init-program-basic)
-;;; init-program-basic ends here