Added partial python support

fg42-config.el

@@ -12,6 +12,7 @@
                      'editor-theme
                      'javascript
                      'php
+                     'python
                      'ruby)
 
 ;; Disable abilities which we do not want to load

lib/extensions/python.el

@@ -0,0 +1,15 @@
+(require 'fpkg)
+(require 'fg42/extension)
+(require 'extensions/python/init)
+
+;; Dependencies ----------------------------------
+(depends-on 'anaconda-mode)
+(depends-on 'company-anaconda)
+(depends-on 'pyvenv)
+
+;; Extension -------------------------------------
+(extension python
+	   :version "1.0"
+	   :on-initialize extensions/python-initialize)
+
+(provide 'extensions/python)

lib/extensions/python/init.el

@@ -0,0 +1,95 @@
+;; Functions -------------------------------------------------
+(defun python--encoding-comment-required-p ()
+  (re-search-forward "[^\0-\177]" nil t))
+
+(defun python--detect-encoding ()
+  (let ((coding-system
+         (or save-buffer-coding-system
+             buffer-file-coding-system)))
+    (if coding-system
+        (symbol-name
+         (or (coding-system-get coding-system 'mime-charset)
+             (coding-system-change-eol-conversion coding-system nil)))
+      "ascii-8bit")))
+
+(defun python--insert-coding-comment (encoding)
+  (let ((newlines (if (looking-at "^\\s *$") "\n" "\n\n")))
+    (insert (format "# coding: %s" encoding) newlines)))
+
+(defun python-mode-set-encoding ()
+  "Insert a magic comment header with the proper encoding if necessary."
+  (save-excursion
+    (widen)
+    (goto-char (point-min))
+    (when (prelude-python--encodings-comment-required-p)
+      (goto-char (point-min))
+      (let ((coding-system (python--detect-encoding)))
+        (when coding-system
+          (if (looking-at "^#!") (beginning-of-line 2))
+          (cond ((looking-at "\\s *#\\s *.*\\(en\\)?coding\\s *:\\s *\\([-a-z0-9_]*\\)")
+                 ;; update existing encoding comment if necessary
+                 (unless (string= (match-string 2) coding-system)
+                   (goto-char (match-beginning 2))
+                   (delete-region (point) (match-end 2))
+                   (insert coding-system)))
+                ((looking-at "\\s *#.*coding\\s *[:=]"))
+                (t (python--insert-coding-comment coding-system)))
+          (when (buffer-modified-p)
+            (basic-save-buffer-1)))))))
+
+;; http://wenshanren.org/?p=351
+(defun python-add-breakpoint ()
+  "Add a break point"
+  (interactive)
+  (newline-and-indent)
+  (insert "import ipdb; ipdb.set_trace()")
+  (highlight-lines-matching-regexp "^[ ]*import ipdb; ipdb.set_trace()"))
+(global-set-key (kbd "C-c C-b") 'python-add-breakpoint)
+
+(defun python-interactive ()
+  "Enter the interactive Python environment"
+  (interactive)
+  (progn
+    (newline-and-indent)
+    (insert "from IPython import embed; embed()")
+    (move-end-of-line 1)))
+(global-set-key (kbd "C-c C-n") 'python-interactive)
+
+(defun python-mode-defaults ()
+  "Defaults for Python programming."
+  (subword-mode +1)
+  (anaconda-mode 1)
+  (eldoc-mode 1)
+  (setq-local electric-layout-rules
+              '((?: . (lambda ()
+                        (and (zerop (first (syntax-ppss)))
+                             (python-info-statement-starts-block-p)
+                             'after)))))
+  (when (fboundp #'python-imenu-create-flat-index)
+    (setq-local imenu-create-index-function
+                #'python-imenu-create-flat-index))
+  (add-hook 'post-self-insert-hook
+            #'electric-layout-post-self-insert-function nil 'local)
+  (add-hook 'after-save-hook 'prelude-python-mode-set-encoding nil 'local))
+
+;;;###autoload
+(defun extensions/python-initialize ()
+  (message "Initializing 'python' extension.")
+
+  (when (boundp 'company-backends)
+    (add-to-list 'company-backends 'company-anaconda))
+
+  (add-to-list 'auto-mode-alist '("\\.kv\\'" . kivy-mode))
+  (add-to-list 'auto-mode-alist '("\\.pyd\\'" . cython-mode))
+  (add-to-list 'auto-mode-alist '("\\.pyi\\'" . cython-mode))
+  (add-to-list 'auto-mode-alist '("\\.pyx\\'" . cython-mode))
+
+
+  (when (fboundp 'exec-path-from-shell-copy-env)
+    (exec-path-from-shell-copy-env "PYTHONPATH"))
+
+  (add-hook 'python-mode-hook (lambda ()
+                                (run-hooks 'python-mode-defaults))))
+
+
+(provide 'extensions/python/init)