[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 35c6b1b: * examples/*.el: Use lexical-binding
|
From: |
Stefan Monnier |
|
Subject: |
[elpa] master 35c6b1b: * examples/*.el: Use lexical-binding |
|
Date: |
Tue, 31 Mar 2020 18:30:09 -0400 (EDT) |
branch: master
commit 35c6b1b82155f14bf7714030e9171ee68db1af34
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* examples/*.el: Use lexical-binding
---
packages/web-server/examples/000-hello-world.el | 4 +--
.../web-server/examples/001-hello-world-utf8.el | 4 +--
.../web-server/examples/002-hello-world-html.el | 4 +--
packages/web-server/examples/003-file-server.el | 8 +++---
packages/web-server/examples/004-url-param-echo.el | 30 ++++++++++----------
packages/web-server/examples/005-post-echo.el | 32 +++++++++++-----------
.../examples/006-basic-authentication.el | 8 +++---
.../examples/007-org-mode-file-server.el | 8 +++---
packages/web-server/examples/008-file-upload.el | 20 +++++++-------
packages/web-server/examples/009-web-socket.el | 10 +++----
packages/web-server/examples/010-current-buffer.el | 4 +--
packages/web-server/examples/011-org-agenda.el | 4 +--
packages/web-server/examples/012-search-bbdb.el | 4 +--
.../web-server/examples/013-org-export-service.el | 4 +--
packages/web-server/examples/014-org-json.el | 6 ++--
.../examples/016-content-encoding-gzip.el | 4 +--
.../examples/017-transfer-encoding-chunked.el | 4 +--
packages/web-server/examples/018-web-shell.el | 6 ++--
18 files changed, 82 insertions(+), 82 deletions(-)
diff --git a/packages/web-server/examples/000-hello-world.el
b/packages/web-server/examples/000-hello-world.el
index c428052..61902b8 100644
--- a/packages/web-server/examples/000-hello-world.el
+++ b/packages/web-server/examples/000-hello-world.el
@@ -1,5 +1,5 @@
-;;; hello-world.el --- simple hello world server using Emacs Web Server
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;;; hello-world.el --- simple hello world server using Emacs Web Server -*-
lexical-binding: t; -*-
+;; Copyright (C) 2014-2020 Free Software Foundation, Inc.
(ws-start
(lambda (request)
diff --git a/packages/web-server/examples/001-hello-world-utf8.el
b/packages/web-server/examples/001-hello-world-utf8.el
index 667b2ac..3013745 100644
--- a/packages/web-server/examples/001-hello-world-utf8.el
+++ b/packages/web-server/examples/001-hello-world-utf8.el
@@ -1,5 +1,5 @@
-;;; hello-world-utf8.el --- utf8 hello world server using Emacs Web Server
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;;; hello-world-utf8.el --- utf8 hello world server using Emacs Web Server
-*- lexical-binding: t; -*-
+;; Copyright (C) 2014-2020 Free Software Foundation, Inc.
(ws-start
(lambda (request)
diff --git a/packages/web-server/examples/002-hello-world-html.el
b/packages/web-server/examples/002-hello-world-html.el
index ea46b13..8e17e3d 100644
--- a/packages/web-server/examples/002-hello-world-html.el
+++ b/packages/web-server/examples/002-hello-world-html.el
@@ -1,5 +1,5 @@
-;;; hello-world-html.el --- html hello world server using Emacs Web Server
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;;; hello-world-html.el --- html hello world server using Emacs Web Server
-*- lexical-binding: t; -*-
+;; Copyright (C) 2014-2020 Free Software Foundation, Inc.
(ws-start
(lambda (request)
diff --git a/packages/web-server/examples/003-file-server.el
b/packages/web-server/examples/003-file-server.el
index c96d0f5..8be084a 100644
--- a/packages/web-server/examples/003-file-server.el
+++ b/packages/web-server/examples/003-file-server.el
@@ -1,7 +1,7 @@
-;;; file-server.el --- serve any files using Emacs Web Server
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;;; file-server.el --- serve any files using Emacs Web Server -*-
lexical-binding: t; -*-
+;; Copyright (C) 2014-2020 Free Software Foundation, Inc.
-(lexical-let ((docroot default-directory))
+(let ((docroot default-directory))
(ws-start
(lambda (request)
(with-slots (process headers) request
@@ -9,7 +9,7 @@
(if (ws-in-directory-p docroot path)
(if (file-directory-p path)
(ws-send-directory-list process
- (expand-file-name path docroot) "^[^\.]")
+ (expand-file-name path docroot) "^[^.]")
(ws-send-file process (expand-file-name path docroot)))
(ws-send-404 process)))))
9003))
diff --git a/packages/web-server/examples/004-url-param-echo.el
b/packages/web-server/examples/004-url-param-echo.el
index b77f3f8..ac53bee 100644
--- a/packages/web-server/examples/004-url-param-echo.el
+++ b/packages/web-server/examples/004-url-param-echo.el
@@ -1,18 +1,18 @@
-;;; url-param-echo.el --- echo back url-paramed message using Emacs Web Server
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;;; url-param-echo.el --- echo back url-paramed message using Emacs Web Server
-*- lexical-binding: t; -*-
+;; Copyright (C) 2014-2020 Free Software Foundation, Inc.
(ws-start
- '(((:GET . ".*") .
- (lambda (request)
- (with-slots (process headers) request
- (ws-response-header process 200 '("Content-type" . "text/html"))
- (process-send-string process
- (concat "URL Parameters:</br><table><tr>"
- (mapconcat (lambda (pair)
- (format "<th>%s</th><td>%s</td>"
- (car pair) (cdr pair)))
- (cl-remove-if-not (lambda (el) (stringp (car el)))
- headers)
- "</tr><tr>")
- "</tr></table>"))))))
+ `(((:GET . ".*") .
+ ,(lambda (request)
+ (with-slots (process headers) request
+ (ws-response-header process 200 '("Content-type" . "text/html"))
+ (process-send-string process
+ (concat "URL Parameters:</br><table><tr>"
+ (mapconcat (lambda (pair)
+ (format "<th>%s</th><td>%s</td>"
+ (car pair) (cdr pair)))
+ (cl-remove-if-not (lambda (el) (stringp (car
el)))
+ headers)
+ "</tr><tr>")
+ "</tr></table>"))))))
9004)
diff --git a/packages/web-server/examples/005-post-echo.el
b/packages/web-server/examples/005-post-echo.el
index df44266..a39a3ae 100644
--- a/packages/web-server/examples/005-post-echo.el
+++ b/packages/web-server/examples/005-post-echo.el
@@ -1,20 +1,20 @@
-;;; post-echo.el --- echo back posted message using Emacs Web Server
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;;; post-echo.el --- echo back posted message using Emacs Web Server -*-
lexical-binding: t; -*-
+;; Copyright (C) 2014-2020 Free Software Foundation, Inc.
(ws-start
- '(((:POST . ".*") .
- (lambda (request)
- (with-slots (process headers) request
- (let ((message (cdr (assoc "message" headers))))
- (ws-response-header process 200 '("Content-type" . "text/plain"))
- (process-send-string process
- (if message
- (format "you said %S\n" (cdr (assoc 'content message)))
- "This is a POST request, but it has no \"message\".\n"))))))
+ `(((:POST . ".*") .
+ ,(lambda (request)
+ (with-slots (process headers) request
+ (let ((message (cdr (assoc "message" headers))))
+ (ws-response-header process 200 '("Content-type" . "text/plain"))
+ (process-send-string process
+ (if message
+ (format "you said %S\n" (cdr (assoc
'content message)))
+ "This is a POST request, but it has no
\"message\".\n"))))))
((:GET . ".*") .
- (lambda (request)
- (with-slots (process) request
- (ws-response-header process 200 '("Content-type" . "text/plain"))
- (process-send-string process
- "This is a GET request not a POST request.\n")))))
+ ,(lambda (request)
+ (with-slots (process) request
+ (ws-response-header process 200 '("Content-type" . "text/plain"))
+ (process-send-string process
+ "This is a GET request not a POST
request.\n")))))
9005)
diff --git a/packages/web-server/examples/006-basic-authentication.el
b/packages/web-server/examples/006-basic-authentication.el
index 85ad216..0d3f354 100644
--- a/packages/web-server/examples/006-basic-authentication.el
+++ b/packages/web-server/examples/006-basic-authentication.el
@@ -1,8 +1,8 @@
-;;; basic-authentication.el --- basic authentication
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;;; basic-authentication.el --- basic authentication -*- lexical-binding: t;
-*-
+;; Copyright (C) 2014-2020 Free Software Foundation, Inc.
-(lexical-let ((users '(("foo" . "bar")
- ("baz" . "qux"))))
+(let ((users '(("foo" . "bar")
+ ("baz" . "qux"))))
(ws-start
(ws-with-authentication
(lambda (request)
diff --git a/packages/web-server/examples/007-org-mode-file-server.el
b/packages/web-server/examples/007-org-mode-file-server.el
index ff4f403..1b3bc9e 100644
--- a/packages/web-server/examples/007-org-mode-file-server.el
+++ b/packages/web-server/examples/007-org-mode-file-server.el
@@ -1,7 +1,7 @@
-;;; org-mode-file-server.el --- serve on-demand exported Org-mode files
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;;; org-mode-file-server.el --- serve on-demand exported Org-mode files -*-
lexical-binding: t; -*-
+;; Copyright (C) 2014-2020 Free Software Foundation, Inc.
-(lexical-let ((docroot "/tmp/"))
+(let ((docroot "/tmp/"))
(ws-start
(lambda (request)
(with-slots (process headers) request
@@ -27,7 +27,7 @@
(concat f ".html")))
(mapcar #'file-name-sans-extension
(directory-files path nil
- "^[^\.].*org$"))))
+ "^[^.].*org\\'"))))
"\n") "</ul>")))
;; Export the file as requested and return the result
(let* ((base (file-name-sans-extension path))
diff --git a/packages/web-server/examples/008-file-upload.el
b/packages/web-server/examples/008-file-upload.el
index 9e9c095..979f520 100644
--- a/packages/web-server/examples/008-file-upload.el
+++ b/packages/web-server/examples/008-file-upload.el
@@ -1,13 +1,13 @@
-;;; file-upload.el --- use an uploaded file
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;;; file-upload.el --- use an uploaded file -*- lexical-binding: t; -*-
+;; Copyright (C) 2014-2020 Free Software Foundation, Inc.
(ws-start
- '(((:POST . ".*") .
- (lambda (request)
- (with-slots (process headers) request
- (ws-response-header process 200 '("Content-type" . "text/plain"))
- (let ((file (cdr (assoc "file" headers))))
- (process-send-string process
- (concat (sha1 (cdr (assoc 'content file))) " "
- (cdr (assoc 'filename file)) "\n")))))))
+ `(((:POST . ".*") .
+ ,(lambda (request)
+ (with-slots (process headers) request
+ (ws-response-header process 200 '("Content-type" . "text/plain"))
+ (let ((file (cdr (assoc "file" headers))))
+ (process-send-string process
+ (concat (sha1 (cdr (assoc 'content file))) " "
+ (cdr (assoc 'filename file)) "\n")))))))
9008)
diff --git a/packages/web-server/examples/009-web-socket.el
b/packages/web-server/examples/009-web-socket.el
index 4b0c27d..d7bbd1a 100644
--- a/packages/web-server/examples/009-web-socket.el
+++ b/packages/web-server/examples/009-web-socket.el
@@ -1,9 +1,9 @@
-;;; web-sockets.el --- communicate via web-sockets
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;;; web-sockets.el --- communicate via web-sockets -*- lexical-binding: t; -*-
+;; Copyright (C) 2014-2020 Free Software Foundation, Inc.
-(lexical-let* ((web-socket-port 9009)
- (web-socket-page
- (format "<html>
+(let* ((web-socket-port 9009)
+ (web-socket-page
+ (format "<html>
<head>
<script type=\"text/javascript\">
var ws;
diff --git a/packages/web-server/examples/010-current-buffer.el
b/packages/web-server/examples/010-current-buffer.el
index bb68974..0233abf 100644
--- a/packages/web-server/examples/010-current-buffer.el
+++ b/packages/web-server/examples/010-current-buffer.el
@@ -1,5 +1,5 @@
-;;; current-buffer.el --- Show the current Emacs buffer
-;; Copyright (C) 2014, 2016 Free Software Foundation, Inc.
+;;; current-buffer.el --- Show the current Emacs buffer -*- lexical-binding:
t; -*-
+;; Copyright (C) 2014-2020 Free Software Foundation, Inc.
(if t (require 'htmlize)) ;Don't require during compilation.
diff --git a/packages/web-server/examples/011-org-agenda.el
b/packages/web-server/examples/011-org-agenda.el
index 8e2ee8b..6ec55c3 100644
--- a/packages/web-server/examples/011-org-agenda.el
+++ b/packages/web-server/examples/011-org-agenda.el
@@ -1,5 +1,5 @@
-;;; org-agenda.el --- display the Org-mode agenda
-;; Copyright (C) 2014, 2016 Free Software Foundation, Inc.
+;;; org-agenda.el --- display the Org-mode agenda -*- lexical-binding: t; -*-
+;; Copyright (C) 2014-2020 Free Software Foundation, Inc.
(if t (require 'htmlize)) ;Don't require during compilation.
diff --git a/packages/web-server/examples/012-search-bbdb.el
b/packages/web-server/examples/012-search-bbdb.el
index 0f29820..f54cc24 100644
--- a/packages/web-server/examples/012-search-bbdb.el
+++ b/packages/web-server/examples/012-search-bbdb.el
@@ -1,5 +1,5 @@
-;;; search-bbdb.el --- search the Big Brother Data Base for a supplied name
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;;; search-bbdb.el --- search the Big Brother Data Base for a supplied name
-*- lexical-binding: t; -*-
+;; Copyright (C) 2014-2020 Free Software Foundation, Inc.
(ws-start
(lambda (request)
diff --git a/packages/web-server/examples/013-org-export-service.el
b/packages/web-server/examples/013-org-export-service.el
index fb3f76a..67a8a7e 100644
--- a/packages/web-server/examples/013-org-export-service.el
+++ b/packages/web-server/examples/013-org-export-service.el
@@ -1,5 +1,5 @@
-;;; 013-org-export-service.el --- upload and export Org-mode files
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;;; 013-org-export-service.el --- upload and export Org-mode files -*-
lexical-binding: t; -*-
+;; Copyright (C) 2014-2020 Free Software Foundation, Inc.
(ws-start
(lambda (request)
diff --git a/packages/web-server/examples/014-org-json.el
b/packages/web-server/examples/014-org-json.el
index fb578f2..f49b823 100644
--- a/packages/web-server/examples/014-org-json.el
+++ b/packages/web-server/examples/014-org-json.el
@@ -1,9 +1,9 @@
-;;; org-json.el --- Serve Org-mode pages as json
+;;; org-json.el --- Serve Org-mode pages as json -*- lexical-binding: t; -*-
;; suggested by nicferrier
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;; Copyright (C) 2014-2020 Free Software Foundation, Inc.
(require 'json)
-(lexical-let ((docroot "/tmp/"))
+(let ((docroot "/tmp/"))
(ws-start
(lambda (request)
(with-slots (process headers) request
diff --git a/packages/web-server/examples/016-content-encoding-gzip.el
b/packages/web-server/examples/016-content-encoding-gzip.el
index e3f3280..622e274 100644
--- a/packages/web-server/examples/016-content-encoding-gzip.el
+++ b/packages/web-server/examples/016-content-encoding-gzip.el
@@ -1,5 +1,5 @@
-;;; content-encoding-gzip.el -- gzip content encoding
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;;; content-encoding-gzip.el -- gzip content encoding -*- lexical-binding: t;
-*-
+;; Copyright (C) 2014-2020 Free Software Foundation, Inc.
(ws-start
(lambda (request)
diff --git a/packages/web-server/examples/017-transfer-encoding-chunked.el
b/packages/web-server/examples/017-transfer-encoding-chunked.el
index c53fd2f..bf54a98 100644
--- a/packages/web-server/examples/017-transfer-encoding-chunked.el
+++ b/packages/web-server/examples/017-transfer-encoding-chunked.el
@@ -1,5 +1,5 @@
-;;; transfer-encoding-chunked.el -- chunked transfer encoding
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;;; transfer-encoding-chunked.el -- chunked transfer encoding -*-
lexical-binding: t; -*-
+;; Copyright (C) 2014-2020 Free Software Foundation, Inc.
(ws-start
(lambda (request)
diff --git a/packages/web-server/examples/018-web-shell.el
b/packages/web-server/examples/018-web-shell.el
index 90ba86a..37fc702 100644
--- a/packages/web-server/examples/018-web-shell.el
+++ b/packages/web-server/examples/018-web-shell.el
@@ -1,6 +1,6 @@
-;;; web-shell.el --- interact with a SHELL through a web interface
+;;; web-shell.el --- interact with a SHELL through a web interface -*-
lexical-binding: t; -*-
-;; Copyright (C) 2013-2014 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2020 Free Software Foundation, Inc.
;; This software is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
@@ -71,4 +71,4 @@
(process-send-string process
(format web-shell-html (format web-shell-js web-shell-port))))))
-(ws-start 'web-shell-handler 9018)
+(ws-start #'web-shell-handler 9018)
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 35c6b1b: * examples/*.el: Use lexical-binding,
Stefan Monnier <=