Emacs and Lisp wiki

    (setq peng-python-map (make-sparse-keymap))
    (define-key peng-python-map (kbd  "RET") 'elpy-shell-send-current-statement)
    (define-key peng-python-map (kbd  "s") 'elpy-rgrep-symbol)
    (define-key peng-python-map (kbd  "d") 'elpy-goto-definition)
    (define-key peng-python-map (kbd  "a") 'elpy-set-project-root)
    (define-key peng-python-map (kbd  "f") 'elpy-find-file)
    (define-key peng-python-map (kbd  "t") 'pop-tag-mark)

    (defun peng-python-mode ()
      (define-key evil-normal-state-local-map (kbd "SPC z") 'peng-run-current-script)
      (autopair-on)
      (smart-tab-mode-off)
      (peng-local-set-key (kbd "C-c C-v") 'peng-run-current-script)
      ;; (company-mode)
      (elpy-enable)
      (define-key evil-normal-state-local-map (kbd "SPC c") peng-python-map)
      (define-key evil-normal-state-local-map (kbd "SPC m") peng-python-map)
      (peng-local-set-key (kbd "<C-right>") 'elpy-nav-forward-indent)
      (peng-local-set-key (kbd "<C-left>") 'elpy-nav-backward-indent)
      (peng-local-set-key (kbd "<C-down>") 'elpy-nav-forward-block)
      (peng-local-set-key (kbd "<C-up>") 'elpy-nav-backward-block))

    (add-hook 'python-mode-hook 'peng-python-mode)
    ;; (setq elpy-project-ignored-directories '(".bzr" "CVS" ".git" ".hg" ".svn" ".tox" "build" "dist" ".cask"))

    (provide 'init-python)

    (setq rlogin-program "ssh")
    (setq rlogin-process-connection-type t)

    (setq b 17)
    (defun my-print-b ()
      (print b))
    (setq b 1717)
    (let ((b 8))
      (my-print-b))

    ;; -*- lexical-binding: t -*-

    (setq a 17)
    (defun my-print-a ()
      (print a))
    (setq a 1717)
    (let ((a 8))
      (my-print-a))

    #+BEGIN_SRC sh :tangle main.sh
    date
    #+END_SRC

    #+BEGIN_SRC sh :tangle (prog1 "/tmp/temp/dd.sh" (make-directory "temp" "/tmp"))
      date
    #+END_SRC

    #+BEGIN_SRC python :results output
    print('test output')
    #+END_SRC

    print 'xiepeng'

    (= 0 (length ""))

    # Copyright (c) 2010 Charles Cave
    # 
    #  Permission  is  hereby  granted,  free  of charge,  to  any  person
    #  obtaining  a copy  of  this software  and associated  documentation
    #  files   (the  "Software"),   to  deal   in  the   Software  without
    #  restriction, including without limitation  the rights to use, copy,
    #  modify, merge, publish,  distribute, sublicense, and/or sell copies
    #  of  the Software, and  to permit  persons to  whom the  Software is
    #  furnished to do so, subject to the following conditions:
    # 
    #  The above copyright notice and this permission notice shall be
    #  included in all copies or substantial portions of the Software.
    # 
    #  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
    #  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
    #  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
    #  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
    #  BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
    #  ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
    #  CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
    #  SOFTWARE.

    # Program written by Charles Cave   (charlesweb@optusnet.com.au)
    # February - March 2009
    # Version 2 - June 2009
    #   Added support for all tags, TODO priority and checking existence of a tag
    # More information at
    #    http://members.optusnet.com.au/~charles57/GTD

    """
    The Orgnode module consists of the Orgnode class for representing a
    headline and associated text from an org-mode file, and routines for
    constructing data structures of these classes.
    """

    import re, sys
    import datetime

    def makelist(filename):
       """
       Read an org-mode file and return a list of Orgnode objects
       created from this file.
       """
       ctr = 0

       try:
          f = open(filename, 'r')
       except IOError:
          print "Unable to open file [%s] " % filename
          print "Program terminating."
          sys.exit(1)

       todos         = dict()  # populated from #+SEQ_TODO line
       todos['TODO'] = ''   # default values
       todos['DONE'] = ''   # default values
       level         = 0
       heading       = ""
       bodytext      = ""
       tag1          = ""      # The first tag enclosed in ::
       alltags       = []      # list of all tags in headline
       sched_date    = ''
       deadline_date = ''
       nodelist      = []
       propdict      = dict()
   
       for line in f:
           ctr += 1     
           hdng = re.search('^(\*+)\s(.*?)\s*$', line)
           if hdng:
              if heading:  # we are processing a heading line
                 thisNode = Orgnode(level, heading, bodytext, tag1, alltags)
                 if sched_date:
                    thisNode.setScheduled(sched_date)
                    sched_date = ""
                 if deadline_date:
                    thisNode.setDeadline(deadline_date)
                    deadline_date = ''
                 thisNode.setProperties(propdict)
                 nodelist.append( thisNode )
                 propdict = dict()
              level = hdng.group(1)
              heading =  hdng.group(2)
              bodytext = ""
              tag1 = ""
              alltags = []       # list of all tags in headline
              tagsrch = re.search('(.*?)\s*:(.*?):(.*?)$',heading)
              if tagsrch:
                  heading = tagsrch.group(1)
                  tag1 = tagsrch.group(2)
                  alltags.append(tag1)
                  tag2 = tagsrch.group(3)
                  if tag2:
                     for t in tag2.split(':'):
                        if t != '': alltags.append(t)
           else:      # we are processing a non-heading line
               if line[:10] == '#+SEQ_TODO':
                  kwlist = re.findall('([A-Z]+)\(', line)
                  for kw in kwlist: todos[kw] = ""

               if line[:1] != '#':
                   bodytext = bodytext + line

               if re.search(':PROPERTIES:', line): continue
               if re.search(':END:', line): continue
               prop_srch = re.search('^\s*:(.*?):\s*(.*?)\s*$', line)
               if prop_srch:
                  propdict[prop_srch.group(1)] = prop_srch.group(2)
                  continue
               sd_re = re.search('SCHEDULED:\s+<([0-9]+)\-([0-9]+)\-([0-9]+)', line)
               if sd_re:
                  sched_date = datetime.date(int(sd_re.group(1)),
                                             int(sd_re.group(2)),
                                             int(sd_re.group(3)) )
               dd_re = re.search('DEADLINE:\s*<(\d+)\-(\d+)\-(\d+)', line)
               if dd_re:
                  deadline_date = datetime.date(int(dd_re.group(1)),
                                                int(dd_re.group(2)),
                                                int(dd_re.group(3)) )

       # write out last node              
       thisNode = Orgnode(level, heading, bodytext, tag1, alltags)
       thisNode.setProperties(propdict)   
       if sched_date:
          thisNode.setScheduled(sched_date)
       if deadline_date:
          thisNode.setDeadline(deadline_date)
       nodelist.append( thisNode )
              
       # using the list of TODO keywords found in the file
       # process the headings searching for TODO keywords
       for n in nodelist:
           h = n.Heading()
           todoSrch = re.search('([A-Z]+)\s(.*?)$', h)
           if todoSrch:
               if todos.has_key( todoSrch.group(1) ):
                   n.setHeading( todoSrch.group(2) )
                   n.setTodo ( todoSrch.group(1) )
           prtysrch = re.search('^\[\#(A|B|C)\] (.*?)$', n.Heading())
           if prtysrch:
              n.setPriority(prtysrch.group(1))
              n.setHeading(prtysrch.group(2))
                            
       return nodelist

    ######################
    class Orgnode(object):
        """
        Orgnode class represents a headline, tags and text associated
        with the headline.
        """
        def __init__(self, level, headline, body, tag, alltags):
            """
            Create an Orgnode object given the parameters of level (as the
            raw asterisks), headline text (including the TODO tag), and
            first tag. The makelist routine postprocesses the list to
            identify TODO tags and updates headline and todo fields.
            """
            self.level = len(level)
            self.headline = headline
            self.body = body
            self.tag = tag            # The first tag in the list
            self.tags = dict()        # All tags in the headline
            self.todo = ""
            self.prty = ""            # empty of A, B or C
            self.scheduled = ""       # Scheduled date
            self.deadline = ""        # Deadline date
            self.properties = dict()
            for t in alltags:
               self.tags[t] = ''

            # Look for priority in headline and transfer to prty field
        
        def Heading(self):
            """
            Return the Heading text of the node without the TODO tag
            """
            return self.headline

        def setHeading(self, newhdng):
            """
            Change the heading to the supplied string
            """
            self.headline = newhdng

        def Body(self):
            """
            Returns all lines of text of the body of this node except the
            Property Drawer
            """
            return self.body

        def Level(self):
            """
            Returns an integer corresponding to the level of the node.
            Top level (one asterisk) has a level of 1.
            """
            return self.level

        def Priority(self):
            """
            Returns the priority of this headline: 'A', 'B', 'C' or empty
            string if priority has not been set.
            """
            return self.prty

        def setPriority(self, newprty):
            """
            Change the value of the priority of this headline.
            Values values are '', 'A', 'B', 'C'
            """
            self.prty = newprty
    
        def Tag(self):
            """
            Returns the value of the first tag.
            For example, :HOME:COMPUTER: would return HOME
            """
            return self.tag

        def Tags(self):
            """
            Returns a list of all tags 
            For example, :HOME:COMPUTER: would return ['HOME', 'COMPUTER']
            """
            return self.tags.keys()

        def hasTag(self, srch):
            """
            Returns True if the supplied tag is present in this headline
            For example, hasTag('COMPUTER') on headling containing
            :HOME:COMPUTER: would return True.
            """
            return self.tags.has_key(srch)
        
        def setTag(self, newtag):
            """
            Change the value of the first tag to the supplied string
            """
            self.tag = newtag

        def setTags(self, taglist):
            """
            Store all the tags found in the headline. The first tag will
            also be stored as if the setTag method was called.
            """
            for t in taglist:
               self.tags[t] = ''
        
        def Todo(self):
            """
            Return the value of the TODO tag
            """
            return self.todo

        def setTodo(self, value):
            """
            Set the value of the TODO tag to the supplied string
            """
            self.todo = value

        def setProperties(self, dictval):
            """
            Sets all properties using the supplied dictionary of
            name/value pairs
            """
            self.properties = dictval

        def Property(self, keyval):
            """
            Returns the value of the requested property or null if the
            property does not exist.
            """
            return self.properties.get(keyval, "")
    
        def setScheduled(self, dateval):
            """
            Set the scheduled date using the supplied date object
            """
            self.scheduled = dateval

        def Scheduled(self):
            """
            Return the scheduled date object or null if nonexistent
            """
            return self.scheduled
    
        def setDeadline(self, dateval):
            """
            Set the deadline (due) date using the supplied date object
            """
            self.deadline = dateval

        def Deadline(self):
            """
            Return the deadline date object or null if nonexistent
            """
            return self.deadline

        def __repr__(self):
            """
            Print the level, heading text and tag of a node and the body
            text as used to construct the node.
            """
            # This method is not completed yet.
            n = ''
            for i in range(0, self.level):
               n = n + '*'
            n = n + ' ' + self.todo + ' '
            if self.prty:
               n = n +  '[#' + self.prty + '] '
            n = n + self.headline
            n = "%-60s " % n     # hack - tags will start in column 62
            closecolon = ''
            for t in self.tags.keys():
               n = n + ':' + t
               closecolon = ':'   
            n = n + closecolon
    # Need to output Scheduled Date, Deadline Date, property tags The
    # following will output the text used to construct the object
            n = n + "\n" + self.body
        
            return n


    

    #!/usr/local/bin/python
    from orgnode import *

    import sys
    nodelist = makelist('/tmp/test.org')

    print "\n--------- PROJECT LIST ----------------"
    for node in nodelist:
        s = node
        print '*'*node.level,' ', node.headline

    brew install ditaa

    #+begin_src ditaa :file /tmp/some_filename.png :cmdline -r -s 0.8 -e utf-8
              up1   up2   up3   up4                     Input Traffic
               ^     ^     ^     ^                            |
               |     |     |     |                            |
               |     |     |     |                            |
               v     v     v     v                            v
        +-----+--+--+--+--+--+--+--+-------------------------+--+------------------+
        |     |  |  |  |  |  |  |  | 1G/s                    |  | 10G/s            |
        |     ++-+  ++-+  ++-+  ++-+ eth[0~3]                ++-+ eth6             |
        |      ^     ^     ^     ^                            |                    |
        |      |     |     |     |                            |                    |
        |      |     |     |     |            +---------------+---------------+    |
        |      |     |     |     |            |                               |    |
        |      |     |     |     +----------->+                               |    |
        |      |     |     |                  |        你好       你好        |    |
        |      |     |     +----------------->+                               |    |
        |      |     |                        |           bridge-eth6         |    |
        |      |     +----------------------->+                               |    |
        |      |                              |                               |    |
        |      +----------------------------->+                               |    |
        |                                     +-+-------+-------+-------+-----+    |
        |                                       |       |       |       |          |
        |                                      ++-+    ++-+    ++-+    ++-+        |
        |                                      |  |    |  |    |  |    |  |  ...   |
        |                                      +--+    +--+    +--+    +--+        |
        |                                      vm1     vm2     vm3     vm5         |
        +--------------------------------------------------------------------------+
    #+end_src

    ;;; set ibuffer display as group
    (setq ibuffer-saved-filter-groups
          (quote (("default"
                   ("dired" (mode . dired-mode))
                   ;; ("perl" (mode . cperl-mode))
                   ("python" (mode . python-mode))
                   ;; ("erc" (mode . erc-mode))
                   ("emacs" (or
                             (name . "^\\*scratch\\*$")
                             (name . "^\\*Messages\\*$")
                             (mode . emacs-lisp-mode)
                             ))
                   ("w3m" (or
                             (mode . w3m-mode)
                             ))
                   ("planner" (or
                               (name . "^Calendar$")
                               (name . "^diary$")
                               (name . "^inbox.org$")
                               (name . "^Tips.org$")
                               (name . "^note.org$")
                               (name . "^daily.org$")
                               (name . "^test.org$")
                               (mode . muse-mode)
                               ))
                   ("org" (mode . org-mode))
                   ;; ("gnus" (or
                   ;;          (mode . message-mode)
                   ;;          (mode . bbdb-mode)
                   ;;          (mode . mail-mode)
                   ;;          (mode . gnus-group-mode)
                   ;;          (mode . gnus-summary-mode)
                   ;;          (mode . gnus-article-mode)
                   ;;          (name . "^\\.bbdb$")
                   ;;          (name . "^\\.newsrc-dribble")))
                   ))))
    (add-hook 'ibuffer-mode-hook
              (lambda ()
                (ibuffer-switch-to-saved-filter-groups "default")))

    ;; Use human readable Size column instead of original one
    (define-ibuffer-column size-h
      (:name "Size" :inline t)
      (cond
       ((> (buffer-size) 1000000) (format "%7.1fM" (/ (buffer-size) 1000000.0)))
       ((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0)))
       ((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0)))
       (t (format "%8d" (buffer-size)))))

    ;; Modify the default ibuffer-formats
      (setq ibuffer-formats
            '((mark modified read-only " "
                    (name 18 18 :left :elide)
                    " "
                    (size-h 9 -1 :right)
                    " "
                    (mode 16 16 :left :elide)
                    " "
                    filename-and-process)))

    (defun my-test (x)
      "print argument received"
      (interactive "P")
      (message "%s" x)
      ;; value of x is from universal argument, or nil if universal-argument isn't called
    )

    ;;; Read File Content into a String
    (defun get-string-from-file (filePath)
      "Return filePath's file content."
      (with-temp-buffer
        (insert-file-contents filePath)
        (buffer-string)))
    ;; thanks to “Pascal J Bourguignon” and “TheFlyingDutchman 〔zzbba…@aol.com〕”. 2010-09-02

    ;;; Read File Content as List of Lines
    (defun read-lines (filePath)
      "Return a list of lines of a file at filePath."
      (with-temp-buffer
        (insert-file-contents filePath)
        (split-string (buffer-string) "\n" t)))


    ;;; save variable `ivy-views' to file, it will overide the file
    (with-temp-file "/tmp/elisp.el"
      (insert (format "%s" ivy-views)))

    ;;; read from string
    (read "(xie peng ni hoa)")

    ;;; read from file
    (with-temp-buffer 
      (insert-file-contents "/tmp/elisp.el")
      (goto-char (point-min))
      (read (current-buffer)))

    (ivy-read "Pick:" (mapcar #'number-to-string (number-sequence 1 10)))

    (helm
     :sources
     (helm-build-sync-source "one-to-ten"
                             :candidates
                             (mapcar #'number-to-string (number-sequence 1 10))
                             :fuzzy-match t)
     :buffer
     "*helm one-to-ten*")

    (helm-comp-read "Pick:" (mapcar #'number-to-string (number-sequence 1 10)))

    (progn (profiler-start 'cpu) (org-publish "blog") (profiler-report))

    (remove-hook 'find-file-hooks 'vc-find-file-hook)

    (defun peng-test (arg)
      (interactive "P")
      (if arg
          (message "yes")
        (message "no")))

    sudo service lightdm stop
    sudo killall /usr/bin/X

    xinit -- -vt01

    (defun peng-test ()
      (interactive)
      (let (current-prefix-arg)
        (setq current-prefix-arg '(4))
        (call-interactively 'counsel-gtags-update-tags)
        ))

find -name '*.[hc]'|grep -v '^./hal'|grep -v '^./third_party'|grep -v '^./linux/' > cscope.files
cscope -b -q -i cscope.files
cat cscope.files|gtags -f -

(if (require 'toc-org nil t)
    (add-hook 'org-mode-hook 'toc-org-enable)
  (warn "toc-org not found"))

* 目录                                                                  :TOC:

* test
  :PROPERTIES:
  :header-args: :tangle /tmp/nihaotangle/main.c :mkdirp yes :main no
  :END:

  #+BEGIN_SRC C
 printf("xieng"); 
  #+END_SRC

  #+BEGIN_SRC C
 printf("hi"); 
  #+END_SRC

(call-interactively 'compile)

  #+BEGIN_SRC sh :dir /sudo::
apt-get update 
  #+END_SRC