u/naryl/qsp-txt2web Files · src/main-macros.lisp

RhodeCode Free Hosting

- This repo
- ?
- Use '/' key to quickly access this field. - Enter a name of repository, or repository group for quick search. - Prefix query to allow special search: user:admin, to search for usernames, always global user_group:devops, to search for user groups, always global pr:303, to search for pull request number, title, or description, always global commit:efced4, to search for commits, scoped to repositories or groups file:models.py, to search for file paths, scoped to repositories or groups For advanced full text search visit: repository search
Home
Public journal
Gists
Sign in

u » naryl » qsp-txt2web

RSS

Clone from https://hg.sr.ht/~naryl/qsp-txt2web

Null indexes

naryl - - Load All Authors

File last commit:

r25:4adc2646 default


                r38:de154bb9

default

Download file

             main-macros.lisp
        
                    15 lines
            
             | 308 B
            
                | text/x-common-lisp
            
             |
                CommonLispLexer
            
             / src / main-macros.lisp
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

      (in-package sugar-qsp.main)

      (defpsmacro by-id (id)

        `(chain document (get-element-by-id ,id)))

      (defmacro+ps api-call (name &rest args)

        `(,(intern (string-upcase name) "API") ,@args))

      (defpsmacro root (&rest path)

        `(@ data ,@path))

      (defpsmacro in (key obj)

        `(chain ,obj (has-own-property ,key)))

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages


				(in-package sugar-qsp.main)


				(defpsmacro by-id (id)
				`(chain document (get-element-by-id ,id)))

				(defmacro+ps api-call (name &rest args)
				`(,(intern (string-upcase name) "API") ,@args))

				(defpsmacro root (&rest path)
				`(@ data ,@path))

				(defpsmacro in (key obj)
				`(chain ,obj (has-own-property ,key)))