[nongnu] elpa/arduino-mode 9547187 066/107: ob-arduino is in Org-mode contrib/ now.

[ELPA Syncer]

branch: elpa/arduino-mode
commit 9547187506a07ef2764952e93f61365515bd69f1
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>

    ob-arduino is in Org-mode contrib/ now.
---
 README.org    |   2 ++
 ob-arduino.el | 105 ----------------------------------------------------------
 2 files changed, 2 insertions(+), 105 deletions(-)

diff --git a/README.org b/README.org
index 77b724a..df1814b 100644
--- a/README.org
+++ b/README.org
@@ -21,6 +21,8 @@ use with package company-arduino to get Arduino code 
completing.
 
 ** ob-arduino
 
+You need have Org-mode installed, ~ob-arduino.el~ is in Org-mode contrib/ now.
+
 Like the following src block, press =[C-c C-c]= to upload to Arduino board.
 
 #+begin_src org
diff --git a/ob-arduino.el b/ob-arduino.el
deleted file mode 100644
index 57a15ff..0000000
--- a/ob-arduino.el
+++ /dev/null
@@ -1,105 +0,0 @@
-;;; ob-arduino.el --- Org-mode Babel support for Arduino.
-;;
-;; Authors: stardiviner <numbchild@gmail.com>
-;; Package-Requires: ((emacs "24.4") (org "24.1"))
-;; Package-Version: 1.0
-;; Keywords: arduino org babel
-;; homepage: https://github.com/stardiviner/arduino-mode
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
-;;
-;;; Commentary:
-;; 
-;; Like the following src block, press =[C-c C-c]= to upload to Arduino board.
-;; 
-;; #+begin_src arduino
-;; // the setup function runs once when you press reset or power the board
-;; void setup() {
-;;   // initialize digital pin LED_BUILTIN as an output.
-;;   pinMode(LED_BUILTIN, OUTPUT);
-;; }
-;; 
-;; // the loop function runs over and over again forever
-;; void loop() {
-;;   digitalWrite(LED_BUILTIN, HIGH);   // turn the LED on (HIGH is the 
voltage level)
-;;   delay(100);                       // wait for 0.1 second
-;;   digitalWrite(LED_BUILTIN, LOW);    // turn the LED off by making the 
voltage LOW
-;;   delay(100);                       // wait for 0.1 second
-;; }
-;; #+end_src
-;;
-;;; Code:
-
-(require 'org)
-(require 'ob)
-(require 'arduino-mode)
-
-(defgroup ob-arduino nil
-  "org-mode blocks for Arduino."
-  :group 'org)
-
-(defcustom ob-arduino:program "arduino"
-  "Default Arduino program name."
-  :group 'ob-arduino
-  :type 'string)
-
-(defcustom ob-arduino:port "/dev/ttyACM0"
-  "Default Arduino port."
-  :group 'ob-arduino
-  :type 'string)
-
-(defcustom ob-arduino:board "arduino:avr:uno"
-  "Default Arduino board."
-  :group 'ob-arduino
-  :type 'string)
-
-
-(defvar org-babel-default-header-args:sclang nil)
-
-;;;###autoload
-(defun org-babel-execute:arduino (body params)
-  "org-babel arduino hook."
-  (let* ((port (cdr (assoc :port params)))
-         (board (cdr (assoc :board params)))
-         (cmd (mapconcat 'identity (list
-                                    ob-arduino:program "--upload"
-                                    (if port (concat "--port " port))
-                                    (if board (concat "--board " board))
-                                    ) " "))
-         (code (org-babel-expand-body:generic body params))
-         (src-file (org-babel-temp-file "ob-arduino-" ".ino")))
-    ;; delete all `ob-arduino' temp files, otherwise arduino will compile all
-    ;; ob-arduino temp files, and report error.
-    (mapc
-     (lambda (f)
-       (unless (file-directory-p f)
-         (delete-file (expand-file-name f org-babel-temporary-directory))))
-     (directory-files
-      (file-name-directory (org-babel-temp-file "ob-arduino-" ".ino"))
-      nil ".ino"))
-    ;; specify file for arduino command.
-    (with-temp-file src-file
-      (insert code))
-    (org-babel-eval
-     (concat ob-arduino:program
-             " " "--upload"
-             " " (if port (concat "--port " port))
-             " " (if board (concat "--board " board))
-             " " src-file)
-     "" ; pass empty string "" as `BODY' to 
`org-babel--shell-command-on-region'
-     ;; to fix command `arduino' don't accept string issue.
-     )
-    ))
-
-
-;;;###autoload
-(eval-after-load 'org
-  '(add-to-list 'org-src-lang-modes '("arduino" . arduino)))
-
-
-
-
-(provide 'ob-arduino)
-
-;;; ob-arduino.el ends here