[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 2136dd5 14/20: snippet: Fix for older pcase
From: |
Daiki Ueno |
Subject: |
[elpa] master 2136dd5 14/20: snippet: Fix for older pcase |
Date: |
Wed, 10 Feb 2016 08:37:44 +0000 |
branch: master
commit 2136dd551ac21455fc7dcee43d0e4ec79fa05c3f
Author: Daiki Ueno <address@hidden>
Commit: Daiki Ueno <address@hidden>
snippet: Fix for older pcase
---
gnome-c-snippet.el | 27 +++++++++++++++------------
1 files changed, 15 insertions(+), 12 deletions(-)
diff --git a/gnome-c-snippet.el b/gnome-c-snippet.el
index 86dbae3..d720c76 100644
--- a/gnome-c-snippet.el
+++ b/gnome-c-snippet.el
@@ -126,14 +126,17 @@
(nreverse capitalized-class)))))
(defun gnome-c-snippet--find-header-buffer ()
- (when (equal (file-name-extension buffer-file-name) "c")
- (let ((header-file-name
- (concat (file-name-sans-extension buffer-file-name) ".h")))
- (cl-find-if
- (lambda (buffer)
- (with-current-buffer buffer
- (equal buffer-file-name header-file-name)))
- (buffer-list)))))
+ (pcase (file-name-extension buffer-file-name)
+ ("h"
+ (current-buffer))
+ ("c"
+ (let ((header-file-name
+ (concat (file-name-sans-extension buffer-file-name) ".h")))
+ (cl-find-if
+ (lambda (buffer)
+ (with-current-buffer buffer
+ (equal buffer-file-name header-file-name)))
+ (buffer-list))))))
(defun gnome-c-snippet--guess-name-from-header-buffer (symbol)
(let ((header-buffer (gnome-c-snippet--find-header-buffer)))
@@ -154,8 +157,8 @@
region))
(when names
(pcase symbol
- ('package (car names))
- ('class (nth 1 names)))))))))))
+ (`package (car names))
+ (`class (nth 1 names)))))))))))
(defun gnome-c-snippet--guess-name-from-file-name (symbol)
(when (memq symbol '(package class))
@@ -164,8 +167,8 @@
(when (string-match-p "-" filename)
(let ((names (split-string filename "-")))
(pcase symbol
- ('package (list (upcase-initials (car names))))
- ('class (mapcar #'upcase-initials (cdr names)))))))))
+ (`package (list (upcase-initials (car names))))
+ (`class (mapcar #'upcase-initials (cdr names)))))))))
(defun gnome-c-snippet--parse-name (name)
(with-temp-buffer
- [elpa] master 6a18372 04/20: README.md: Use inline code blocks properly, (continued)
- [elpa] master 6a18372 04/20: README.md: Use inline code blocks properly, Daiki Ueno, 2016/02/10
- [elpa] master 76e929a 05/20: README.md: Use inline code blocks properly, Daiki Ueno, 2016/02/10
- [elpa] master 25184d6 06/20: Fix typo in README.md, Daiki Ueno, 2016/02/10
- [elpa] master 79f77aa 07/20: snippet: Fix typo, Daiki Ueno, 2016/02/10
- [elpa] master 34132ba 08/20: README.md: Fix typo, Daiki Ueno, 2016/02/10
- [elpa] master 4cd7696 09/20: align: Expand documentation of align-region, Daiki Ueno, 2016/02/10
- [elpa] master b23b5a3 10/20: snippet: Upcase the first letter of names, Daiki Ueno, 2016/02/10
- [elpa] master df2906e 11/20: snippet: Always require subword, Daiki Ueno, 2016/02/10
- [elpa] master 82c34eb 12/20: snippet: Refactor name prompt, Daiki Ueno, 2016/02/10
- [elpa] master 9db7ee5 13/20: snippet: Support guessing package/class names, Daiki Ueno, 2016/02/10
- [elpa] master 2136dd5 14/20: snippet: Fix for older pcase,
Daiki Ueno <=
- [elpa] master f3c2b22 15/20: tests: Add snippt tests, Daiki Ueno, 2016/02/10
- [elpa] master 2bfe1ad 16/20: snippet: Support guessing parent package/class, Daiki Ueno, 2016/02/10
- [elpa] master 4ea87a1 17/20: tests: Add tests for guess-name-from-file-name, Daiki Ueno, 2016/02/10
- [elpa] master ab8b3ae 18/20: snippet: Add _{class_,}init, Daiki Ueno, 2016/02/10
- [elpa] master d827bb5 19/20: snippet: Improve _init prompt, Daiki Ueno, 2016/02/10
- [elpa] master 1abce8e 20/20: Merge commit 'd827bb511203a64da3ae5cc6910b87b7c99d233b', Daiki Ueno, 2016/02/10